真正高手帮忙 实现lisp程序
求助 ！！用lisp实现功能：我d盘有个dwg.txt文本文件里面放了 各个目录下的dwg文件名和路径。想用lisp将dwg.txt文件中指定的，各个dwg文件自动打开. 打开后批量替换指定的属性块.可就是打不开各个dwg文件，dwg.txt文件已成功打开。程序如下，请高手指教
(defun c:ff()ni i
(setq f(open "d:/dwg.txt" "r"))
(while (setq fd (read-linef));读入单个dwg文件
(princfd)
(princ "\n")
(open fd "r")
)
(close f)
)
附件是dwg.txt文本文件 ;;;打开DWG文件
(vla-open dbxdoc filename)
;;;保存文件: filename是文件名,不知道为什么用 vla-save不可以保存
(vla-saveas dbxdoc filename)
页:
[1]