아래는 다른 분의 작업물입니다.
다름이 아니라 txt 선택시 일반적인 선택시 나타나는 점선(?) 효과가 있었으면 하는데…
제가 다른 lisp파일로 따라해보아도 관련 부분이 아닌지 되지를 않더군요…
어떻게 수정해야 하는 것인지 답변 부탁드립니다.
;;—————————————————————————
;; 선택한 문자를 다른문자에 복사해 준다.[명령어:tc] (최종수정:2006.09.28.목)
;;—————————————————————————
(defun c:tc (/ 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:tcc (/ 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)
)
;;—————————————————————————
;; 문자를 복제후 원본은 지운다.[명령어:tt] (최종수정:2007.03.21.수)
;;—————————————————————————
(defun c:tt (/ TEE txt1 alrim txt_lst)
(setq TEE (entsel “n>>> 복사할 문자를 선택:”))
(setq txt1 (cdr (assoc 1 (entget (car TEE)))))
(setq alrim (strcat “n >>교체할 문자를 선택: [” (print txt1) “]”))
(setq txt_lst (entget (car (entsel alrim))))
(entmod (subst (cons 1 txt1) (assoc 1 txt_lst) txt_lst))
(command “erase” TEE “”)
(princ)
)