1. 파일이름들어갈곳에 아무 글자나 넣어둡니다..

   리습에서 텍스트로 안만들어주는건.. 텍스트 위치때문에 그렇습니다.

 

2. 명령어 실행후 해당 글자 선택하면 해당 텍스트가 파일이름으로 변하게 됩니다.

 

(defun c:fname(/ dn len p1 ndn ss)
  (prompt "n>>파일이름 표기하기..")
  (setq dn (getvar "dwgname")
        len (strlen dn))
  (setq ndn (substr dn 1 (- len 4)))
  (if (setq ss (entsel "n파일이름 표기할 텍스트 클릭:"))
   (progn (setq ed (entget (car ss)))
     (entmod (subst (cons 1 ndn) (assoc 1 ed) ed))
   );progn
  );if
(princ)
);defun