홈/ 질문/Q 63764
다음
진행 중
Lv.0
등록일: 2006-12-01T10:21:11+09:00 카테고리:

revcloud에 두께를 주고 싶은데효

그림 첨부했구효 저렇게 선 두께를 줄려면 어떻게 줘야하지여?

**pedit에서 주게 되면 처음 부터 끝까지 똑같이 되는데

처음 그릴때부터 선두께를 처음과 끝은 달리그리고 싶습니다.

첫번째 그림처럼 ……

**그리고 다 그려놓은상태에서 호의길이를 수정할려면 어떻게 하지혀?

공유

    관련 있는 질문들

    4 답변

    1. aalan

    2. 음.. revcloud는 잘 모르겠네요. 첫번째 뽈록이(?)는 수정이 되는데 두번째거 부터는 안되네요 ㅎ~아마도.. 3rd파티에서 만든게 아닌가 싶은데요. 그리고 호는.. 각을 알면 수정 가능하네요..

      • 0
    3. Lv.25

      밑에 세번째에 해당하는 리습 입니다…
      사용해보세요….//
      명령어:W1

      • 0
    4. (defun c:plw (/ ss spw epw index ent count old new)
        (setq ss (ssget (list (cons 0 “lwpolyline”))))
        (if ss
          (progn
            (setq spw (getreal “n 시작점 선폭 : “))
            (if (not spw) (setq spw 0))
            (setq epw (getreal “n 끝점 선폭 : “))
            (if (not epw) (setq epw 0))
            (setq index 0)
            (repeat (sslength ss)
              (setq ent (entget (ssname ss index)))
              (setq count 0)
              (repeat (length ent)
                (setq old (nth count ent))
                (cond
                  ((= (car old) 40)
                    (setq new (cons 40 spw))
                    (setq ent (subst new old ent))
                  )
                  ((= (car old) 41)
                    (setq new (cons 41 epw))
                    (setq ent (subst new old ent))
                  )
                  ((= (car old) 43)
                    (setq ent (append (reverse (cdr (member old (reverse ent)))) (cdr (member old ent))))
                  )
                )
                (setq count (1+ count))
              )
              (entmod ent)
              (entupd (ssname ss index))
              (setq index (1+ index))
            )
          )
        )
        (princ)
      )
      • 0
    5. Lv.25

      2006버젼에선 않되네요….//수정쩜

      • 0