이런 리습도 있나요?

; 아키모아 운영진 “행복한하루”
; http://cafe.daum.net/archimore
; >>파일이름 표기하기..
; 2007.07.31

(defun c:fname(/ dn dp len var ndn ed)
(prompt “n>>파일이름 표기하기..”)
(setq dn (getvar “dwgname”)
dp (getvar “dwgprefix”)
len (strlen dn))
(setq var nil ss nil)
(setq var (getint “n 1.파일이름표기<1> / 2. 파일경로 및 이름<엔터>:”))
(if (= var 1) (setq ndn (substr dn 1 (- len 4)))
(setq ndn (strcat dp dn)))
(if (setq ed (entget (car (entsel “n파일이름 표기할 텍스트 클릭:”))))
(entmod (subst (cons 1 ndn) (assoc 1 ed) ed))
);if
(princ)
);defun

제가 원하는 건 아니지만 이런것두 있군요, 도움주셔서 정말 감사합니다.