알아서 공부하면서 수정하면 좋겠지만..
할 일은 많고… (핑계~ 핑계~)
여하튼 nonno님께서 수정하신 파일에 좀더 수정을 하면 싶어서요..
XXXX라는 문자를 찾는데요 여기를 마우스로 선택하고 할수있으면 좋겠어요 ^^; 그리고 확장자도 .dwg같이 입력되게 하고싶구요..
그럼 부탁하겠습니다..
(defun c:pp()
(setq name(vl-filename-base(getvar “dwgname”)));;여기수정함 by nonno
(setq ent_lst (entget (ssname (ssget “X” ‘((0 . “TEXT”)(1 . “XXXX”))) 0))) ;; 요기를 수정해야할거 같은데;;
(entmod (subst (cons 1 name) (assoc 1 ent_lst) ent_lst)))