revcloud에 두께를 주고 싶은데효

Question

Lv.0

등록일: 2006-12-012006-12-01T10:21:11+09:00 2006-12-01T10:21:11+09:00카테고리: AutoCAD & CADian

revcloud에 두께를 주고 싶은데효

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

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

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

첫번째 그림처럼 ……

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

4 답변

주왕 · Answer 1 · 2006-12-01T13:37:12+09:00

주왕 Lv.25

2006-12-01T13:37:12+09:00답변 등록 답변 등록 일시 2006-12-01 1:37 pm

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

0

공유
공유
- 공유 Facebook
- 공유 Twitter

[Deleted User] · Answer 2 · 2006-12-01T12:22:05+09:00

(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)
)