请教图形关闭时的永久反应器如何实现？

carrot1983

目的： 想要实现永久反应器，记录到DWG图纸当中，发给别人的图纸后，
实现当DWG关闭的时候自动实现图纸清理、缩放并保存。
问题：第一次可以成功，以后就无效了。

打开图纸提示
; 错误: VLISP: internal: Document application(.VLX) not found; 错误: VLISP: internal: Document application(.VLX) not found

2. 
   
3. (VL-LOAD-COM)
   
4. 
   
5. (DEFUN BEGINCLOSE (REACTOR PARAMS / ACAD_OBJ THIS_DWG)
   
6.   (SETQ ACAD_OBJ (VLAX-GET-ACAD-OBJECT))
   
7.   (SETQ THIS_DWG (VLA-GET-ACTIVEDOCUMENT ACAD_OBJ))
   
8. 
   
9.   (VLA-PURGEALL THIS_DWG)
   
10.   (VLA-ZOOMEXTENTS ACAD_OBJ)
    
11.   (VLA-SAVE THIS_DWG)
    
12. )
    
13. 
    
14. (IF (NOT DWG_REACTOR)
    
15.   (PROGN
    
16.     (SETQ DWG_REACTOR
    
17.            (VLR-SET-NOTIFICATION
    
18.              (VLR-DWG-REACTOR
    
19.                "drawing reactor"
    
20.                '((:VLR-BEGINCLOSE
    
21.                   .
    
22.                   BEGINCLOSE
    
23.                  )
    
24.                 )
    
25.              )
    
26.              'ACTIVE-DOCUMENT-ONLY
    
27.            )
    
28.     )
    
29.     (VLR-PERS DWG_REACTOR)
    
30.   )
    
31. )
    

<br /> (VL-LOAD-COM)<br /> <br /> (DEFUN BEGINCLOSE (REACTOR PARAMS / ACAD_OBJ THIS_DWG)<br />   (SETQ ACAD_OBJ (VLAX-GET-ACAD-OBJECT))<br />   (SETQ THIS_DWG (VLA-GET-ACTIVEDOCUMENT ACAD_OBJ))<br /> <br />   (VLA-PURGEALL THIS_DWG)<br />   (VLA-ZOOMEXTENTS ACAD_OBJ)<br />   (VLA-SAVE THIS_DWG)<br /> )<br /> <br /> (IF (NOT DWG_REACTOR)<br />   (PROGN<br />     (SETQ DWG_REACTOR<br />            (VLR-SET-NOTIFICATION<br />              (VLR-DWG-REACTOR<br />                "drawing reactor"<br />                '((:VLR-BEGINCLOSE<br />                   .<br />                   BEGINCLOSE<br />                  )<br />                 )<br />              )<br />              'ACTIVE-DOCUMENT-ONLY<br />            )<br />     )<br />     (VLR-PERS DWG_REACTOR)<br />   )<br /> )<br />

牢固

仅仅图纸发给别人是不够的，连同程序要一块发给别人！否则，程序不加载，反应器找不到回调函数，当然不起作用啦！

carrot1983

原来如此，还以为可以实现程序直接附在图纸当中，图纸运行时，即可自动运行。

newer

carrot1983 发表于 2013-4-10 11:07
原来如此，还以为可以实现程序直接附在图纸当中，图纸运行时，即可自动运行。

反应器是反应器，回调函数是回调函数。

weehuwei

哎，基础不扎实，不懂！

sujia

回调函数能写入图。就是智能图纸了