; 错误: 参数类型错误: stringp STRING
```lisp
(defun replace-1003-in-dxf (folder-path)
(setq file-list (directory (strcat 'string folder-path "/*.dxf")))
(repeat (length file-list)
(setq dxf-file (nth it file-list))
(setq file-name (file-namestring dxf-file))
(setq new-str (strcat 'string file-name ".dxf"))
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(vla-open doc dxf-file)
(vlax-for entity (vla-get-entities doc)
(if (vl-position old-str (vla-get-textstring entity))
(vla-put-textstring entity (vl-string-replace old-str new-str (vla-get-textstring entity)))))
(vla-saveas doc dxf-file)
(vla-close doc)
(setq it (1+ it)))
(princ "All DXF files have been processed.")
)
(defun c:eee ()
(setq folder-path (strcat (vl-string-right-trim "\\" (strcase (acet-ui-pickdir "Select" (vl-string-right-trim "\\" (getvar "dwgprefix")) "Change"))) "\\" ))
(replace-1003-in-dxf-file folder-path)
)
```