真正高手帮忙 实现lisp程序

acnhb123

求助 ！！用lisp实现功能：我d盘有个dwg.txt文本文件里面放了 各个目录下的dwg文件名和路径。想用lisp将dwg.txt文件中指定的，各个dwg文件自动打开. 打开后批量替换指定的属性块.可就是打不开各个dwg文件，dwg.txt文件已成功打开。
程序如下，请高手指教
(defun c:ff()ni i  
      (setq f(open "d:/dwg.txt" "r"))
8 K' P2 H3 [+ U' V" J& t$ V      (while (setq fd (read-line  f));读入单个dwg文件
2 h$ @2 v  K. o$ l6 G* H          (princ  fd)
2 d- @. b6 v8 v  ]$ F          (princ "\n")
          (open fd "r")
" e! g$ {* d4 |# H    )
      (close f)
) ^5 {2 k* i( S2 e  ?+ O)

. Z. n8 \/ q/ x$ a/ w附件是dwg.txt文本文件

wenwengg

;;;打开DWG文件
(vla-open dbxdoc filename)
;;;保存文件: filename是文件名,不知道为什么用 vla-save不可以保存
) k" p2 o2 [0 j# `(vla-saveas dbxdoc filename)