真正高手帮忙 实现lisp程序

acnhb123

求助 ！！用lisp实现功能：我d盘有个dwg.txt文本文件里面放了 各个目录下的dwg文件名和路径。想用lisp将dwg.txt文件中指定的，各个dwg文件自动打开. 打开后批量替换指定的属性块.可就是打不开各个dwg文件，dwg.txt文件已成功打开。
: [" l3 a/ d; n2 Q3 ^7 R4 W1 s# N8 n程序如下，请高手指教
(defun c:ff()ni i  
! ?- q& S: ^$ D1 y0 E9 I      (setq f(open "d:/dwg.txt" "r"))
      (while (setq fd (read-line  f));读入单个dwg文件
          (princ  fd)
          (princ "\n")
8 C( p3 ~% P  |          (open fd "r")
    )
      (close f)
)
* b( j8 o& b$ [" s7 p  V5 a$ g
% \! i5 k5 f0 [1 e. z4 Z( Y附件是dwg.txt文本文件

wenwengg

;;;打开DWG文件
, f0 x3 B. P  x. V2 M(vla-open dbxdoc filename)
5 p3 A5 X! Z+ m;;;保存文件: filename是文件名,不知道为什么用 vla-save不可以保存
(vla-saveas dbxdoc filename)