Lisp关闭文件所有文件并退出CAD

linyangmjtd

2. ;□□□□□□□□□□□□□□□□□□□□□□
   
3. ;关闭文件代码开始
   
4. ;□□□□□□□□□□□□□□□□□□□□□□
   
5. 
   
6. (defun C:yd-quit-alldoc-save(/ AcadApp docs cdoc);保存所有文档退出
   
7.   
   
8.   (setq AcadApp (vlax-get-acad-object))
   
9.   (setq docs (vla-get-documents AcadApp))
   
10.   (setq cdoc (vla-get-ActiveDocument AcadApp))
    
11.   ;缩放视口（比例为1）使文件处于未保存状态，如果图层未改动VLA-CLOSE的第二第三个参数会被忽略。
    
12.   (vla-zoomscaled AcadApp 1.0 acZoomScaledRelative)
    
13.   (vlax-for doc docs
    
14.     (if (not (equal cdoc doc))
    
15.       (if (= (Vlax-Get doc 'fullname) "")
    
16.         (vla-Close doc :vlax-false )
    
17.         (vla-close doc :vlax-true)
    
18.       )
    
19.     )
    
20.   )
    
21.   ;由于不能关闭当前活动文档，此处用Command关闭
    
22.   (if (= (Vlax-Get cdoc 'fullname) "")
    
23.     (command "quit" "y");y代表不保存
    
24.     (command "quit" "n");n代表保存
    
25.   )
    
26.   (prin1)
    
27. )
    
28. 
    
29. 
    
30. (defun C:yd-close-alldoc-save(/ AcadApp docs cdoc);保存关闭所有文档
    
31.   (setq AcadApp (vlax-get-acad-object))
    
32.   (setq docs (vla-get-documents AcadApp))
    
33.   (setq cdoc (vla-get-ActiveDocument AcadApp))
    
34.   (vla-zoomscaled AcadApp 1.0 acZoomScaledRelative)
    
35.   (vlax-for doc docs
    
36.     (if (not (equal cdoc doc))
    
37.       (if (= (vla-get-FullName doc) "")
    
38.         (progn (vla-Close doc :vlax-false) (alert (vla-get-FullName doc)))
    
39.         (vla-close doc)
    
40.       )
    
41.     )
    
42.   )
    
43.   ;由于不能关闭当前活动文档，此处用Command关闭
    
44.   (if (= (Vlax-Get cdoc 'fullname) "")
    
45.     (command "close" "y");y代表不保存
    
46.     (command "close" "n");n代表保存
    
47.   )
    
48.   (prin1)
    
49. )
    
50. 
    
51. (defun C:yd-close-otherdoc-save(/ AcadApp docs cdoc);保存关闭其他文档
    
52.   (setq AcadApp (vlax-get-acad-object))
    
53.   (setq docs (vla-get-documents AcadApp))
    
54.   (setq cdoc (vla-get-ActiveDocument AcadApp))
    
55.   (vla-zoomscaled AcadApp 1.0 acZoomScaledRelative)
    
56.   (vlax-for doc docs
    
57.     (print (vla-get-FullName doc))
    
58.     (if (not (equal cdoc doc))
    
59.       (if (= (Vlax-Get doc 'fullname) "")
    
60.         (vla-Close doc :vlax-false )
    
61.         (vla-close doc :vlax-true)
    
62.       )
    
63.     )
    
64.   )
    
65.   (princ "关闭其他文档成功！")
    
66.   (prin1)
    
67. )
    
68. 
    
69. (defun C:yd-quit-alldoc-withoutsave(/ AcadApp docs cdoc);不保存所有文档退出
    
70.   (setq AcadApp (vlax-get-acad-object))
    
71.   (setq docs (vla-get-documents AcadApp))
    
72.   (setq cdoc (vla-get-ActiveDocument AcadApp))
    
73.   (vlax-for doc docs
    
74.     (if (not (equal cdoc doc))
    
75.       (vla-close doc :vlax-false)
    
76.     )
    
77.   )
    
78.   ;由于不能关闭当前活动文档，此处用Command关闭
    
79.   (command "quit" "y");y代表不保存
    
80.   (prin1)
    
81. )
    
82. 
    
83. (defun C:yd-close-alldoc-withoutsave(/ AcadApp docs cdoc);不保存关闭所有文档
    
84.   (setq AcadApp (vlax-get-acad-object))
    
85.   (setq docs (vla-get-documents AcadApp))
    
86.   (setq cdoc (vla-get-ActiveDocument AcadApp))
    
87.   (vlax-for doc docs
    
88.     (if (not (equal cdoc doc))
    
89.       (vla-close doc :vlax-false)
    
90.     )
    
91.   )
    
92.   ;由于不能关闭当前活动文档，此处用Command关闭
    
93.   (command "close" "y");y代表不保存
    
94.   (prin1)
    
95. )
    
96. (defun C:yd-close-otherdoc-withoutsave(/ AcadApp docs cdoc);不保存关闭其他文档
    
97.   (setq AcadApp (vlax-get-acad-object))
    
98.   (setq docs (vla-get-documents AcadApp))
    
99.   (setq cdoc (vla-get-ActiveDocument AcadApp))
    
100.   (vlax-for doc docs
     
101.     (if (not (equal cdoc doc))
     
102.       (vla-close doc :vlax-false)
     
103.     )
     
104.   )
     
105.   (princ "关闭其他文档成功！")
     
106.   (prin1)
     
107. )
     
108. 
     
109. 
     
110. (defun C:gb( / mod)
     
111.   (initget "1 2 3 4 5 6")
     
112.   (setq mod (getkword "\n请选择关闭选项[保存所有文档退出(1) /保存关闭所有文档(2) /保存关闭其他文档(3) /不保存所有文档退出(4) /不保存关闭所有文档(5) /不保存关闭其他文档(6)]:"))
     
113.   (cond
     
114.     ((= mod "1") (C:yd-quit-alldoc-save))
     
115.     ((= mod "2") (C:yd-close-alldoc-save))
     
116.     ((= mod "3") (C:yd-close-otherdoc-save))
     
117.     ((= mod "4") (C:yd-quit-alldoc-withoutsave))
     
118.     ((= mod "5") (C:yd-close-alldoc-withoutsave))
     
119.     ((= mod "6") (C:yd-close-otherdoc-withoutsave))
     
120.   )
     
121.   (princ)
     
122. )
     
123. ;■■■■■■■■■■■■■■■■■■■■■■
     
124. ;关闭文件代码结束
     
125. ;■■■■■■■■■■■■■■■■■■■■■■

;□□□□□□□□□□□□□□□□□□□□□□<br /> ;关闭文件代码开始<br /> ;□□□□□□□□□□□□□□□□□□□□□□<br /> <br /> (defun C:yd-quit-alldoc-save(/ AcadApp docs cdoc);保存所有文档退出<br />   <br />   (setq AcadApp (vlax-get-acad-object))<br />   (setq docs (vla-get-documents AcadApp))<br />   (setq cdoc (vla-get-ActiveDocument AcadApp))<br />   ;缩放视口（比例为1）使文件处于未保存状态，如果图层未改动VLA-CLOSE的第二第三个参数会被忽略。<br />   (vla-zoomscaled AcadApp 1.0 acZoomScaledRelative)<br />   (vlax-for doc docs<br />     (if (not (equal cdoc doc))<br />       (if (= (Vlax-Get doc 'fullname) "")<br />         (vla-Close doc :vlax-false )<br />         (vla-close doc :vlax-true)<br />       )<br />     )<br />   )<br />   ;由于不能关闭当前活动文档，此处用Command关闭<br />   (if (= (Vlax-Get cdoc 'fullname) "")<br />     (command "quit" "y");y代表不保存<br />     (command "quit" "n");n代表保存<br />   )<br />   (prin1)<br /> )<br /> <br /> <br /> (defun C:yd-close-alldoc-save(/ AcadApp docs cdoc);保存关闭所有文档<br />   (setq AcadApp (vlax-get-acad-object))<br />   (setq docs (vla-get-documents AcadApp))<br />   (setq cdoc (vla-get-ActiveDocument AcadApp))<br />   (vla-zoomscaled AcadApp 1.0 acZoomScaledRelative)<br />   (vlax-for doc docs<br />     (if (not (equal cdoc doc))<br />       (if (= (vla-get-FullName doc) "")<br />         (progn (vla-Close doc :vlax-false) (alert (vla-get-FullName doc)))<br />         (vla-close doc)<br />       )<br />     )<br />   )<br />   ;由于不能关闭当前活动文档，此处用Command关闭<br />   (if (= (Vlax-Get cdoc 'fullname) "")<br />     (command "close" "y");y代表不保存<br />     (command "close" "n");n代表保存<br />   )<br />   (prin1)<br /> )<br /> <br /> (defun C:yd-close-otherdoc-save(/ AcadApp docs cdoc);保存关闭其他文档<br />   (setq AcadApp (vlax-get-acad-object))<br />   (setq docs (vla-get-documents AcadApp))<br />   (setq cdoc (vla-get-ActiveDocument AcadApp))<br />   (vla-zoomscaled AcadApp 1.0 acZoomScaledRelative)<br />   (vlax-for doc docs<br />     (print (vla-get-FullName doc))<br />     (if (not (equal cdoc doc))<br />       (if (= (Vlax-Get doc 'fullname) "")<br />         (vla-Close doc :vlax-false )<br />         (vla-close doc :vlax-true)<br />       )<br />     )<br />   )<br />   (princ "关闭其他文档成功！")<br />   (prin1)<br /> )<br /> <br /> (defun C:yd-quit-alldoc-withoutsave(/ AcadApp docs cdoc);不保存所有文档退出<br />   (setq AcadApp (vlax-get-acad-object))<br />   (setq docs (vla-get-documents AcadApp))<br />   (setq cdoc (vla-get-ActiveDocument AcadApp))<br />   (vlax-for doc docs<br />     (if (not (equal cdoc doc))<br />       (vla-close doc :vlax-false)<br />     )<br />   )<br />   ;由于不能关闭当前活动文档，此处用Command关闭<br />   (command "quit" "y");y代表不保存<br />   (prin1)<br /> )<br /> <br /> (defun C:yd-close-alldoc-withoutsave(/ AcadApp docs cdoc);不保存关闭所有文档<br />   (setq AcadApp (vlax-get-acad-object))<br />   (setq docs (vla-get-documents AcadApp))<br />   (setq cdoc (vla-get-ActiveDocument AcadApp))<br />   (vlax-for doc docs<br />     (if (not (equal cdoc doc))<br />       (vla-close doc :vlax-false)<br />     )<br />   )<br />   ;由于不能关闭当前活动文档，此处用Command关闭<br />   (command "close" "y");y代表不保存<br />   (prin1)<br /> )<br /> (defun C:yd-close-otherdoc-withoutsave(/ AcadApp docs cdoc);不保存关闭其他文档<br />   (setq AcadApp (vlax-get-acad-object))<br />   (setq docs (vla-get-documents AcadApp))<br />   (setq cdoc (vla-get-ActiveDocument AcadApp))<br />   (vlax-for doc docs<br />     (if (not (equal cdoc doc))<br />       (vla-close doc :vlax-false)<br />     )<br />   )<br />   (princ "关闭其他文档成功！")<br />   (prin1)<br /> )<br /> <br /> <br /> (defun C:gb( / mod)<br />   (initget "1 2 3 4 5 6")<br />   (setq mod (getkword "\n请选择关闭选项[保存所有文档退出(1) /保存关闭所有文档(2) /保存关闭其他文档(3) /不保存所有文档退出(4) /不保存关闭所有文档(5) /不保存关闭其他文档(6)]:"))<br />   (cond<br />     ((= mod "1") (C:yd-quit-alldoc-save))<br />     ((= mod "2") (C:yd-close-alldoc-save))<br />     ((= mod "3") (C:yd-close-otherdoc-save))<br />     ((= mod "4") (C:yd-quit-alldoc-withoutsave))<br />     ((= mod "5") (C:yd-close-alldoc-withoutsave))<br />     ((= mod "6") (C:yd-close-otherdoc-withoutsave))<br />   )<br />   (princ)<br /> )<br /> ;■■■■■■■■■■■■■■■■■■■■■■<br /> ;关闭文件代码结束<br /> ;■■■■■■■■■■■■■■■■■■■■■■

江南十笑

谢谢分享                        

yu960312

遇到打开的有只读文件不会自动关闭并退出,希望优化一下遇到只读文件直接关闭

chimugua

我cad2021用的倒是挺好的 但是用cad2020的话会出现乱码 4操作不了

999999

谢谢大神的分享，学习一波，优秀优秀，，一大早上就看到了分享，谢谢啦

xj6019

谢谢分享   

香远益清

经测试，很好用，收藏了，谢谢分享

tumu8420

不错，蛮好用的

ZMB7211

Aries

经测试，很好用，收藏了，谢谢分享

juliana207

error: bad function: 1
请问怎么回事?