如何解决在AutoCAD2008中(vla-Close DwgDoc)无法关闭文件的问题

namezg

问题一：
;下面的为什么错误？; 错误: 语法错误
(mapcar 'setq '(a b) (1 2))

问题二：
下面的代码在AutoCAD2008中打开DwgDoc后，用(vla-Close DwgDoc)无法关闭，提示“Automation 错误。 图形忙。”，
而在AutoCAD2010中却可以关闭。如何解决在AutoCAD2008中无法关闭文件的问题？
(setq DwgDoc (vla-Open (vla-get-Documents (vlax-get-acad-object)) (getfiled "请选择要要去除教育版打印戳记的文件" "" "dwg" 4)))
(vla-Close DwgDoc)

如果判断(vla-Close DwgDoc)是否成功关闭文件呢？

我用调用vba的关闭功能可能关闭文件，但2010以上有的机器没安装vba，这样不通用，能不能利用系统ActiveX 和脚本技术的功能关闭文件呢？



该贴已经同步到 namezg的微博

后倁后觉☆．

路过。。。

xshrimp

(mapcar 'set '(a b) '(1 25))

nzl1116

如果DwgDoc是活动文档，那么在当前文档中关闭当前文档，就会出现你这样的错误：图形忙
至于2010能关闭，我就不清楚了，没用过

namezg

(mapcar 'set '(a b) '(1 25))这个可以我也知道，可为什么set换成setq就不行了呢这就不明白了。


DwgDoc是不是活动文档出现的上面的情况

nzl1116

当在文档Doc1中加载lsp，调用vla-open方法打开文档Doc2以后，Doc2文档就成了活动文档，而Doc1不是活动文档，lsp文件中，(vla-open ...)后面的表达式都暂停运行，直到Doc1重新成为活动文档，才会继续执行剩下的表达式。

xshrimp

经过测试
(setq DwgDoc (vla-Open (vla-get-Documents (vlax-get-acad-object)) (getfiled "请选择要要去除教育版打印戳记的文件" "" "dwg" 4)))
(vla-Close DwgDoc)
cad2004 2006 2008 都测试通过.没有问题啊.

namezg

怪了，在我这边就不行，我都试了好多回了，lisp调用vba就可以关闭。