mapcar 의 활용예 - 문자남기고 삭제

치수선을 폭파해서, 문자만 남기고 나머지를 삭제하는 구문입니다.

프로그램이 가진 목적보다는 mapcar 의 활용을 잘 볼 수 있어서 기록해 둡니다.

 

출처 : 아키모아, 올빼미님

 

 

(defun c:TX () 
   (mapcar 
      '(lambda (x / f ss1)
         (setq f (entlast))
         (vl-cmdf "_.explode" x)
         (setq ss1 (ssadd))
         (while (setq f (entnext f)) (setq ss1 (ssadd f ss1)))
         (mapcar 
            '(lambda (e)
               (if (not (= (cdr (assoc 0 (entget e))) "MTEXT")) (entdel e))
            )
            (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss1)))
         )
      )
      (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "DIMENSION"))))))
   )
   (princ)
)