真正高手帮忙 实现lisp程序

acnhb123

求助 ！！用lisp实现功能：我d盘有个dwg.txt文本文件里面放了 各个目录下的dwg文件名和路径。想用lisp将dwg.txt文件中指定的，各个dwg文件自动打开. 打开后批量替换指定的属性块.可就是打不开各个dwg文件，dwg.txt文件已成功打开。
( v0 [* ?9 _3 C1 d& G& O% h! T程序如下，请高手指教
; k$ |0 F9 r" T) N* l% u& g(defun c:ff()ni i  
      (setq f(open "d:/dwg.txt" "r"))
      (while (setq fd (read-line  f));读入单个dwg文件
# n% K( \: Q6 x2 D7 a  G          (princ  fd)
1 m" X- F, ^& J7 L8 a# D          (princ "\n")
          (open fd "r")
    )
      (close f)
& x% Q) j- H8 e6 Y' R6 }  t! K)

附件是dwg.txt文本文件

wenwengg

;;;打开DWG文件
(vla-open dbxdoc filename)
* O0 S. d3 h3 l2 }- c. F3 u2 p6 G, M. \;;;保存文件: filename是文件名,不知道为什么用 vla-save不可以保存
% e0 h" q5 ]" J) V& c(vla-saveas dbxdoc filename)