;;—————————————————————————
;; 선택한 문자를 다른문자에 복사해 준다.[명령어:sa] (최종수정:2006.09.28.목)
;;—————————————————————————
(defun c:sa (/ txt1 alrim txt_lst)
(setq txt1 (cdr (assoc 1 (entget (car (entsel “n>>> 복사할 문자를 선택하삼.:”))))))
(setq alrim (strcat “n >>교체할 문자를 선택하삼. [” (print txt1) “]:”))
(setq txt_lst (entget (car (entsel alrim))))
(entmod (subst (cons 1 txt1) (assoc 1 txt_lst) txt_lst))
(princ)
)
(defun c:saa (/ txt1 alrim txt_lst)
(setq txt1 (cdr (assoc 1 (entget (car (entsel “n>>> 복사할 문자를 선택하삼.:”))))))
(WHILE (setq alrim (strcat “n >>교체할 문자를 선택하삼. [” (print txt1) “]:”))
(PROGN
(setq txt_lst (entget (car (entsel alrim))))
(entmod (subst (cons 1 txt1) (assoc 1 txt_lst) txt_lst))
)
)
(princ)
)
sa명령어를 쓰고있는데 문자내용바뀌면서 색상도 바뀌었으면 좋겠습니다.
도와주세요!