真正高手帮忙实现lisp程序

acnhb123 · 发表于 2011-10-18 22:20

求助！！用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-line  f));读入单个dwg文件
      (princ  fd)
      (princ "\n")
      (open fd "r")
)
   (close f)
)

附件是dwg.txt文本文件

wenwengg · 发表于 2011-10-19 11:50

;;;打开DWG文件
(vla-open dbxdoc filename)
;;;保存文件: filename是文件名,不知道为什么用 vla-save不可以保存
(vla-saveas dbxdoc filename)

		自动登录	找回密码
密码			立即注册

[求助] 真正高手帮忙实现lisp程序

本帖子中包含更多资源

浏览过的版块

[求助] 真正高手帮忙 实现lisp程序

本帖子中包含更多资源

浏览过的版块

[求助] 真正高手帮忙实现lisp程序