退出CAD的时候，想找个工具自动做些事情

lisp_beginner

退出CAD的时候，我想自动做下面事情：

1、转换的图纸空间
2、ZOOME E
3、关闭所有的如WIPEOUT的边界显示
4、设置图层到0层
5、Purge ALL
6、QSAVE
7、退出

如果有个程序能做，那就太惬意了。


谢谢！！

ssddssdd

全自动的呀。不知道反应器行不行？

Lispboy

定义个命令，退出前执行下它

1. (defun c:goodbye (/ actdoc obj)
   
2.   (vl-load-com)
   
3.   (setq actdoc (vla-get-activedocument (setq obj (vlax-get-acad-object))))
   
4.   (vla-put-activespace actdoc 0)
   
5.   (vla-zoomextents obj)
   
6.   (vla-put-activelayer actdoc (vla-item (vla-get-layers actdoc) "0"))
   
7.   (repeat 3
   
8.     (vla-purgeall actdoc)
   
9.   )
   
10.   (command "_.wipeout" "_f" "_off")
    
11.   (vla-save actdoc)
    
12.   (command "_.close")
    
13.   (princ)
    
14. )
    
15. 
    

(defun c:goodbye (/ actdoc obj)<br />   (vl-load-com)<br />   (setq actdoc (vla-get-activedocument (setq obj (vlax-get-acad-object))))<br />   (vla-put-activespace actdoc 0)<br />   (vla-zoomextents obj)<br />   (vla-put-activelayer actdoc (vla-item (vla-get-layers actdoc) "0"))<br />   (repeat 3<br />     (vla-purgeall actdoc)<br />   )<br />   (command "_.wipeout" "_f" "_off")<br />   (vla-save actdoc)<br />   (command "_.close")<br />   (princ)<br /> )<br /> <br />

lisp_beginner

ssddssdd 发表于 2016-9-10 12:13
全自动的呀。不知道反应器行不行？

你说的对，如果能自动执行就更好了，懒人:P

lisp_beginner

Lispboy 发表于 2016-9-10 12:44
定义个命令，退出前执行下它

很棒，谢谢LISPBOY，能像2楼的朋友说的那样，做成反映器吗？

Lispboy

lisp_beginner 发表于 2016-9-10 13:26
很棒，谢谢LISPBOY，能像2楼的朋友说的那样，做成反映器吗？

试试

1. (defun create_close_reactor ()
   
2.   (vl-load-com)
   
3.   (if (not close:reactor)
   
4.     (setq close:reactor (vlr-editor-reactor nil '((:vlr-beginclose . closereaction))))
   
5.   )                                     
   
6.   (princ)
   
7. )
   
8. (defun closereaction (args reac / actdoc)
   
9.   (setq actdoc (vla-get-activedocument (vlax-get-acad-object)))
   
10.   (vla-put-activespace actdoc 0)
    
11.   (vla-zoomextents (vlax-get-acad-object))
    
12.   (vla-put-activelayer actdoc (vla-item (vla-get-layers actdoc) "0"))
    
13.   (repeat 3
    
14.     (vla-purgeall actdoc)
    
15.   )
    
16.   (vla-save actdoc)
    
17.   (princ)
    
18. )
    
19. 
    

(defun create_close_reactor ()<br />   (vl-load-com)<br />   (if (not close:reactor)<br />     (setq close:reactor (vlr-editor-reactor nil '((:vlr-beginclose . closereaction))))<br />   )                                      <br />   (princ)<br /> )<br /> (defun closereaction (args reac / actdoc)<br />   (setq actdoc (vla-get-activedocument (vlax-get-acad-object)))<br />   (vla-put-activespace actdoc 0)<br />   (vla-zoomextents (vlax-get-acad-object))<br />   (vla-put-activelayer actdoc (vla-item (vla-get-layers actdoc) "0"))<br />   (repeat 3<br />     (vla-purgeall actdoc)<br />   )<br />   (vla-save actdoc)<br />   (princ)<br /> )<br /> <br />

Lisphk

楼主这个想法赞一个，谢谢lispboy的代码，我想修改下就可以用到我的工作中了。

sicky111

不错的代码，收藏了。

yufeng37

每次关图都要Purge ALL并不是什么好习惯。因为图纸可能有一些有用的图块，图层、标注、文字样式等等以后可能还用的到，每次都清理掉，下次再开图就找不到了。

winerfjy

这个想法不错