따리지님 이거 안되는데요(도명바꾸는 lisp)

(defun c:Dwt ()
(prompt “nPick line of text to be changed.”)
(setq ent (entget (car (entsel))))
(setq oldtxt (cdr (assoc 1 ent)))
(terpri)
(terpri)
(terpri)
(princ ” “) (prompt oldtxt)
(terpri)
(setq newtxt (getvar “dwgname”)
ent3 (subst newtxt (assoc 1 ent) ent)
ent4 (subst (assoc 7 ent2) (assoc 7 ent3) ent3))
(entmod ent4)
)