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

프로그램이 가진 목적보다는 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)
)
저작자 표시 비영리 동일 조건 변경 허락
신고

'CAD > Lisp' 카테고리의 다른 글

선택 세트의 DXF 코드 내용을 변경하는 보조함수  (0) 2015.03.05
오토캐드 배경색 변경  (0) 2015.02.18
mapcar 의 활용예 - 문자남기고 삭제  (0) 2015.02.12
치수관련 변수 목록  (0) 2015.01.03
문자 또는 숫자 자동 증가  (0) 2014.11.22
grread 옵션 정리  (0) 2014.11.10

+ Recent posts