[讨论]保存并关闭、不保存关闭所有文档
www.dimcax.com
[讨论]保存并关闭、不保存关闭所有文档
我这里的两个函数，第一个函数执行没问题，但是第二个函数则出错，为何？有人能帮修改一下吗？
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35;;不保存关闭所有文档
( c:usave-closeall ( acadobj docs doc)
()
( "sdi" 0)
( acadobj ()
docs (vla-get-documents acadobj)
doc (vla-get-activedocument acadobj)
)
( d docs
( ( ( doc d))
(vla-close d :vlax-false)
)
)
( "vbastmt" "acadapplication.activedocument.close false ")
;;最后关闭当前活动的文档,这样就把所有的文档都关闭了 false 不保存关闭当前文档，true 保存然后关闭当前文档
()
)
;;保存并关闭所有文档
( c:save-closeall ( acadobj docs doc)
()
( "sdi" 0)
( acadobj ()
docs (vla-get-documents acadobj)
doc (vla-get-activedocument acadobj)
)
( d docs
( ( ( doc d))
(vla-close d :vlax-true) ;_改为:vlax-true表示保存后关闭
)
)
( "vbastmt" "acadapplication.activedocument.close true ")
;;最后关闭当前活动的文档,这样就把所有的文档都关闭了 false 不保存关闭当前文档，true 保存然后关闭当前文档
()
)
命令: save-closeall
; 错误: automation 错误。 图形忙
d