真正高手帮忙 实现lisp程序

acnhb123

求助 ！！用lisp实现功能：我d盘有个dwg.txt文本文件里面放了 各个目录下的dwg文件名和路径。想用lisp将dwg.txt文件中指定的，各个dwg文件自动打开. 打开后批量替换指定的属性块.可就是打不开各个dwg文件，dwg.txt文件已成功打开。
' w0 D6 t- d% F4 Y9 E3 y4 T程序如下，请高手指教
(defun c:ff()ni i  
      (setq f(open "d:/dwg.txt" "r"))
      (while (setq fd (read-line  f));读入单个dwg文件
          (princ  fd)
          (princ "\n")
5 T9 }4 A4 n! h- w! t0 G0 e          (open fd "r")
    )
7 X- u4 @( [# Q* t8 J7 Y      (close f)
)

附件是dwg.txt文本文件

wenwengg

;;;打开DWG文件
(vla-open dbxdoc filename)
, @! Z" I% z$ j) G3 s;;;保存文件: filename是文件名,不知道为什么用 vla-save不可以保存
(vla-saveas dbxdoc filename)