레이어가 title 이고 text 크기는 9와 10 인 것만 삭제하는 리습으로 만들었는데요.. 해당 객체 하나만 선택하면 되는데.. 전체 선택하면 삭제가 안되네요 함 봐주세요.. ;;
(DEFUN C:int2(/ E EO EL NLA NO E ZO ZL OLD NEW)
(SETVAR “CMDECHO” 0)
(PROMPT “n>>> Select Entities To Change….. “)
(setq EO (ssget ‘((0 . “text”)(8 . “title”))))
(if (/= EO nil)
(progn
(setq sn (sslength EO) NO 0 NO1 0 NO2 0)
(repeat sn
(SETQ E (SSNAME EO NO))
(SETQ ZO (ENTGET E))
(SETQ OLD (ASSOC 8 ZO))
(setq en3 (cdr (assoc 40 ZO))) ; height
(setq en4 (rtos en3))
(if (or (= “9.00” en4) (= “10.00” en4)) <== 이부분
(progn
(ENTDEL E)
(SETQ NO (1+ NO))
)
)
(SETQ NO2 (1+ NO2)))
))
(princ “n>> == “)(princ NO) (princ ” == 를 삭제 했습니다.”)
(PRIN1)
)