(defun c:pw ()
(graphscr)
(setq hei (getreal “nInput Pline Width:”))
(pww1)
(pww2)
(command “redraw”)
)
(defun pww1(/ en1 num index entg as1 as2 con sub )
(prompt “Select Pline:”)
(setq en1 (ssget))
(setq num (sslength en1))
;;(setq hei (getreal “nInput Pline Width:”))
(setq index 0)
(repeat num
(setq entg (entget (ssname en1 index)))
(setq index (1+ index))
(setq as1 (assoc 0 entg))
(if (= “LWPOLYLINE” (cdr as1))
(progn
(setq as2 (assoc 40 entg))
(setq con (cons 40 hei))
(setq sub (subst con as2 entg))
(entmod sub)
)
)
)
)
(defun pww2(/ en1 num index entg as1 as2 con sub )
(prompt “Select Pline:”)
(setq en1 (ssget “p”))
(setq num (sslength en1))
;(setq hei hei)
(setq index 0)
(repeat num
(setq entg (entget (ssname en1 index)))
(setq index (1+ index))
(setq as1 (assoc 0 entg))
(if (= “LWPOLYLINE” (cdr as1))
(progn
(setq as2 (assoc 41 entg))
(setq con (cons 41 hei))
(setq sub (subst con as2 entg))
(entmod sub)
)
)
(prin1)
)
)
(princ)
위의 내용은 제가 12때 사용하던 리습인데 선택된 PLINE을 한번에 두께를
조정하는겁니다.
그런데 14에서 다시쓰러고 했더니 PLINE의 이름이 바꿔서그런지 작동을안
하네요. 그래서 “POLYLINE”(?)대신에 “LWPOLYLINE”라고 해놨는데도 안되네요.
혹시 아시는분 계세요.
그럼 좋은 시간되세요……