真正高手帮忙 实现lisp程序

acnhb123

求助 ！！用lisp实现功能：我d盘有个dwg.txt文本文件里面放了 各个目录下的dwg文件名和路径。想用lisp将dwg.txt文件中指定的，各个dwg文件自动打开. 打开后批量替换指定的属性块.可就是打不开各个dwg文件，dwg.txt文件已成功打开。
程序如下，请高手指教
' r" ]5 H, X7 L8 H% Q  n& P! L(defun c:ff()ni i  
      (setq f(open "d:/dwg.txt" "r"))
      (while (setq fd (read-line  f));读入单个dwg文件
& b# P! m/ e4 `6 k2 O1 W9 _5 `          (princ  fd)
          (princ "\n")
. b' F3 J, w. H" G! E: M          (open fd "r")
% _% P6 I+ ~/ T3 ^5 h    )
. O9 l. m  `2 L% E. l1 _      (close f)
)
0 w1 }: ?0 |- t" _, @5 F: p
附件是dwg.txt文本文件

wenwengg

;;;打开DWG文件
, x  M+ Z9 _/ v% y% j(vla-open dbxdoc filename)
;;;保存文件: filename是文件名,不知道为什么用 vla-save不可以保存
4 }7 l( t8 W0 l( u* h  ](vla-saveas dbxdoc filename)