여기에서 구한 리습인데 제대로 실행이 되지 않네요…
문제점 아시는 고수님들 해결부탁드려요.
(defun c:textx()
(alert “글씨크기가 %%U 인 텍스트를 삭제합니다”)
(setq ssl (ssget “x” ‘((0 . “text”))))
(setq num (sslength ssl))
(setq index 0 i 0)
(repeat num
(setq en (ssname ssl index)
ent (entget en))
(setq index (1+ index))
(setq a (cdr (assoc 1 ent)))
(if (eq a “%%u”) (setq a “%%U”))
(if (= a “%%U”)
(command “erase” en “”)
(setq i (1+ i))
)
)
(prompt ” Delete %%U Text …….”) (princ)
)