反应器学习经典案例解析及测试

林霄云

防止捕捉丢失——一个案例体会反应器博大
通俗讲，反应器原理就是程序内部捕捉到的事件后，执行与其关联的事件处理函数（即回调函数被动执行）。上案例

2. (setq HH:Osmode (getvar "osmode"));定义初始化。在初始时和你需要的时候重置之。
   
3. 
   
4. (defun ResetOsmode (v1 v2)
   
5.   (if (/= (getvar "osmode") HH:Osmode)
   
6.     (setvar "osmode" HH:Osmode)
   
7.   )
   
8.    (princ)
   
9. );defun 定义回调函数
   
10. (vlr-editor-reactor
    
11.   nil
    
12.   '((:vlr-lispEnded . ResetOsmode)
    
13.     (:vlr-lispCancelled . ResetOsmode)
    
14.    )
    
15. );反应器构造函数关联事件与回调函数。事件名称及其说明请查开发人员文档

(setq HH:Osmode (getvar "osmode"));定义初始化。在初始时和你需要的时候重置之。<br /> <br /> (defun ResetOsmode (v1 v2)<br />   (if (/= (getvar "osmode") HH:Osmode)<br />     (setvar "osmode" HH:Osmode)<br />   )<br />    (princ)<br /> );defun 定义回调函数<br /> (vlr-editor-reactor <br />   nil<br />   '((:vlr-lispEnded . ResetOsmode) <br />     (:vlr-lispCancelled . ResetOsmode) <br />    )<br /> );反应器构造函数关联事件与回调函数。事件名称及其说明请查开发人员文档

;;*************防止lisp程序改变捕捉 By free-Lancer
;;http://www.xdcad.net/forum/thread-670615-1-1.html

为了深刻理解:vlr-lispEnded和:vlr-lispCancelled 事件处理过程，做测试代码testos

2. (defun testos()
   
3.   (VL-CMDF "line" (getpoint "点位置?") '(0 0) "")
   
4.   (command "line" (getpoint "点位置?") '(0 0) "")
   
5.   (princ (getvar "osmode"))
   
6.   
   
7.   (setvar "osmode" 0);修改
   
8.   
   
9.   (VL-CMDF "line" (getpoint "点位置?") '(0 0) "")
   
10.   (command "line" (getpoint "点位置?") '(0 0) "")
    
11.   (princ (getvar "osmode"))
    
12.   
    
13.   (princ)
    
14.   )

(defun testos()<br />   (VL-CMDF "line" (getpoint "点位置?") '(0 0) "")<br />   (command "line" (getpoint "点位置?") '(0 0) "") <br />   (princ (getvar "osmode"))<br />   <br />   (setvar "osmode" 0);修改<br />   <br />   (VL-CMDF "line" (getpoint "点位置?") '(0 0) "") <br />   (command "line" (getpoint "点位置?") '(0 0) "") <br />   (princ (getvar "osmode"))<br />   <br />   (princ)<br />   )

1. (princ "run once \n");此句代码替换回调函数ResetOsmode最末的（princ)以记录事件调用次数。

复制代码

结果：
(testos) 点位置?点位置?15359点位置?点位置?0
run once
run once

(testos) 点位置?点位置?15359点位置?点位置?0
run once
run once

在cad命令窗口，当用(setvar "osmode" 2303)失败。当在cad中用ds命令能设置成功。

在testos执行中修改osmode可以顺利进行。当退出函数时，在cad命令窗口中检查(getvar "osmode")，osmode值为成功重置。
初步结论：用反应器事件解决osmode丢失的gifted牛人比粗暴的做函数调用setvar要灵活轻巧许多。


该贴已经同步到 林霄云的微博

s678z

图纸序号和明细表内的序号能否用反应器关联？

林霄云

s678z 发表于 2014-1-2 08:51
图纸序号和明细表内的序号能否用反应器关联？

这是一个不错的想法。
反应器的主要任务就是找出与需要对应的事件，定义事件处理函数。
最近画图忙，有时间再想这个逻辑。

hnfsf

图纸目录用这个不是很科学，还是考虑重新生成比较好

尘缘一生

到底怎么用的？这个问题一头雾水，还没有解决的好办法，说一些东西，不告诉别人用法，有什么用？

Gu_xl

尘缘一生 发表于 2014-10-29 18:31
到底怎么用的？这个问题一头雾水，还没有解决的好办法，说一些东西，不告诉别人用法，有什么用？

将这段代码保存为lsp文件,添加到启动组或加到acad.lsp中即可!

1. (or *osmodemonitor*     (setq *osmodemonitor*
   
2.            (vlr-lisp-reactor
   
3.              nil
   
4.              '((:VLR-lispWillStart . SaveOsmode)
   
5.                (:vlr-lispEnded . ResetOsmode)
   
6.                (:vlr-lispCancelled . ResetOsmode)
   
7.               )
   
8.            )
   
9.     )
   
10. )                                ;反应器构造
    
11. ;;回调函数
    
12. (defun SaveOsmode (v1 v2)
    
13.   (setq *LastOsmode* (getvar 'osmode))
    
14.    (princ)
    
15. )
    
16. (defun ResetOsmode (v1 v2)
    
17.   (if (and *LastOsmode*
    
18.            (/= (getvar "osmode") *LastOsmode*)
    
19.            )
    
20.     (setvar "osmode" *LastOsmode*)
    
21.   )
    
22.    (princ)
    
23. )

(or *osmodemonitor*     (setq *osmodemonitor*<br />            (vlr-lisp-reactor <br />              nil<br />              '((:VLR-lispWillStart . SaveOsmode)<br />                (:vlr-lispEnded . ResetOsmode)<br />                (:vlr-lispCancelled . ResetOsmode)<br />               )<br />            )<br />     )<br /> )                                ;反应器构造<br /> ;;回调函数<br /> (defun SaveOsmode (v1 v2)<br />   (setq *LastOsmode* (getvar 'osmode))<br />    (princ)<br /> )<br /> (defun ResetOsmode (v1 v2)<br />   (if (and *LastOsmode*<br />            (/= (getvar "osmode") *LastOsmode*)<br />            )<br />     (setvar "osmode" *LastOsmode*)<br />   )<br />    (princ)<br /> )

dbqtju

正在看反应器，收藏了。