(defun c:eecp ()
(setq etxt1 (ssget))
(setq etxt2 (sslength etxt1))
(setq count 0 )
(repeat etxt2
(setq etxt3 (ssname etxt1 count))
(setq etxt4 (entget etxt3))
(setq etxt5 (cdr (assoc 0 etxt4)))
(if (= etxt5 “lwpolyline”)
(progn
(entdel etxt3)
))
(if (= etxt5 “circle”)
(progn
(entdel etxt3)
))
(setq count (1+ count))
)
(princ)
)
지우고자 하는게 원(circle)하고 폴리라인만 지우고 싶어서 말입니다.
해보니 지워질 생각을 안하는군요.
어디가 잘못 된건지 조언 부탁 드립니다..