(defun c:Q6() ;
(graphscr)
(command “zoom” “e”)
(command “layer” “s” “0” “n” “CONDU-GUGAN” “c” “140” “CONDU-GUGAN” “”)
(setq list1 (list “T???” “T???-?” “T???-??”
“?? TO L? ?L” “CON ??CX*(?)” “CON*X*” “*X*(*)” “H*X*” “TRAY*X*” “RTY*X*” ))
(setq count1 (length list1))
(setq n 0)
(repeat count1
(setq nx (nth n list1))
(if ;( = list1 list2)
(/=
(setq ss1 (ssget “x” (list (cons 1 nx) (cons 8 “COMA-TEXT”)))) nil)
(command “ERASE” “p” “”)
);exit if
(setq n (+ n 1))
);exit repeat
(command “purge” “a” “” “n”)
(command “layer” “m” “NUMBER” “c” “11” “” “”)
(command “zoom” “e” )
(princ)
)
예)u01,u02,u03,u04 란 문자에서 u로 시작돼는 문자를 다지우려고 합니다.
위 리습에서 수정할부분좀 알려주세요