退出CAD，不再提示是否保存文件

819534890

2. ;先关闭当前文件外的其他文件，然后在当前文件退出cad
   
3. (vl-load-com)
   
4. (defun c:gdn()
   
5. (setq docs (vla-get-documents (vlax-get-acad-object)))
   
6.   (setq cdoc (vla-get-ActiveDocument (vlax-get-acad-object)))
   
7.   (vlax-for doc docs
   
8.     (if (not (equal cdoc doc))
   
9.       (progn
   
10.        ; (vla-Close doc :vlax-true ) ;其他文件存盘关闭
    
11.                            (vla-Close doc :vlax-false ) ;其他文件不存盘关闭
    
12.         )))
    
13. ;(command "quit" "y") ;当前文件存盘并退出cad
    
14.                 (command "._quit" "n") ;当前文件不存盘并退出cad
    
15. (princ)
    
16. )

;先关闭当前文件外的其他文件，然后在当前文件退出cad<br /> (vl-load-com)<br /> (defun c:gdn()<br /> (setq docs (vla-get-documents (vlax-get-acad-object)))<br />   (setq cdoc (vla-get-ActiveDocument (vlax-get-acad-object)))<br />   (vlax-for doc docs<br />     (if (not (equal cdoc doc))<br />       (progn<br />        ; (vla-Close doc :vlax-true ) ;其他文件存盘关闭<br />                            (vla-Close doc :vlax-false ) ;其他文件不存盘关闭<br />         )))<br /> ;(command "quit" "y") ;当前文件存盘并退出cad<br />                 (command "._quit" "n") ;当前文件不存盘并退出cad<br /> (princ)<br /> )

sicky111

这个好。   

cq_qg68

这个不错，能用。但是我还需要个有提示的。
http://bbs.xdcad.net/thread-706224-1-1.html
1、保存全部，不关闭。
2、关闭全部，对有修改的或新建的未保存的文件关闭时提示保存。
3、保存，关闭全部。
4、关闭全部，不保存
5、退出，保存全部
6、退出，不保存
7、关闭并保存除当前文档外所有打开的图形
8、关闭不保存除当前文档外所有打开的图形

newer

cq_qg68 发表于 2016-11-24 00:05

你整理好后，把这个8个功能的代码都分享下啊。

kqqt6236

(command "quit" "y")

xvjiex

感谢分享退出CAD，不再提示是否保存文件