真正高手帮忙 实现lisp程序

acnhb123

求助 ！！用lisp实现功能：我d盘有个dwg.txt文本文件里面放了 各个目录下的dwg文件名和路径。想用lisp将dwg.txt文件中指定的，各个dwg文件自动打开. 打开后批量替换指定的属性块.可就是打不开各个dwg文件，dwg.txt文件已成功打开。
  k( }/ _* ], l  z程序如下，请高手指教
(defun c:ff()ni i  
      (setq f(open "d:/dwg.txt" "r"))
      (while (setq fd (read-line  f));读入单个dwg文件
9 J" y5 k! {$ L4 w! A          (princ  fd)
          (princ "\n")
          (open fd "r")
    )
      (close f)
5 D  w( B% @' Y)

) y: @( h3 o9 b! e附件是dwg.txt文本文件

wenwengg

;;;打开DWG文件
' C+ s4 Q% W* ]5 @" l* _(vla-open dbxdoc filename)
; L8 ~# z. C( P$ T( l- q/ X! `;;;保存文件: filename是文件名,不知道为什么用 vla-save不可以保存
(vla-saveas dbxdoc filename)