도면상의 일부문자를 파일명으로 대체하는 방법 수정좀 해주세요??

도면 내용중에 “XXXX”라는 문자가 있을 때 이문자를 현재도면의
파일명으로 바꾸려고 합니다
아래 리습에 무슨 문제가 있을까요?
안되네요ㅡ.ㅡ

(defun c:pp()
(setq name(getvar “vl-filename-base”))
(setq ent_lst (entget (ssname (ssget “X” ‘((0 . “TEXT”) (1 . “XXXX”))) 0)))
(entmod (subst (cons 1 name) (assoc 1 ent_lst) ent_lst)))