;;문자 앞 기호 추가/삭제하기 ;;추가 : 부호/기호/문자 불분 ;;삭제 : 모든 문자만 가능 -12345...ACBD... ! @ # $ % ^ & * - + =  /    ... ;;%%C, %%P, %%D... 같은 부호는 추가 가능 / 삭제 불가 (defun c:addsym(/ ss k ed txt ntxt sym) (prompt "n>> 문자앞 기호추가 삭제(문자)하기..") (setq ss (ssget (list (cons 0 "text,mtext")))) (setq k 0) (setq sym (getstring "n 추가할 부호 : ")) (command "undo" "be") (command "justifytext" ss "" "mr") (repeat (sslength ss)   (setq ed (entget (ssname ss k)))   (setq txt (cdr (assoc 1 ed)))   (if (= (substr txt 1 1) sym)    (setq ntxt (substr txt 2 (- (strlen txt) 1)))    (setq ntxt (strcat sym txt))   )   (entmod (subst (cons 1 ntxt) (assoc 1 ed) ed))   (setq k (1+ k)) ) (command "undo" "e") (princ) )