;치수만 찾아서 지우는... (defun c:DSD (/ #a #b #c #index) (setq #a(ssget '((0 . "dimension,leader,mtext")))) (setq #index 0) (repeat (sslength #a) (setq #b(ssname #a #index)) (if (eq "LEADER" (strcase(cdr(assoc 0(entget #b))))) (progn (setq #c(cdr(assoc 340(entget #b)))) (mapcar 'entdel (list #b #c)) );;progn (entdel #b) );;if (setq #index(1+ #index)) );;repeat );;defun ;치수만 찾아서 레이어 바꾸는... (defun c:DSC(/ ss)   (prompt "n치수만 선택..")   (setq ss (ssget (list (cons 0 "dimension,leader,mtext"))))   (sssetfirst nil ss)   (setq sel ss)   (command "change" sel "" "p" "la" "44" "")  ; 44 사용자 지정 레이어 (princ) );defun