反应器学习——系统变量反应器

satan421

;;最近在学习反应器
;;算是有点收获,写了个简单的系统变量反应器,用于监测当前图层的改变

;;感觉监测所有变量浪费系统资源,不知道除了反应器有没有其他方法能实现???

2. ;;系统变量反应器
   
3. ;;监视系统变量 clayer (当然也可以改成其他变量)
   
4. ;;功能 将当前图层限制为 0 图层 (改变判断条件,可以实现限制将当前图层设置为某一个等功能)
   
5. (defun autolayer ()
   
6.   (vl-load-com)
   
7.   (if (not sysvarreactor)
   
8.     (setq sysvarreactor
   
9.            (vlr-sysvar-reactor
   
10.              nil
    
11.              '((:vlr-sysVarChanged . sysvar))
    
12.            )
    
13.     )
    
14.   )
    
15. )
    
16. (defun sysvar (temp returninfo / )
    
17.   (vl-load-com)
    
18.   (if (and(equal (nth 0 returninfo) "CLAYER")(nth 1 returninfo))
    
19.     (if(/= (equal (getvar "clayer") "0") T)
    
20.       (progn
    
21.         (alert "将切换至 0 图层!")
    
22.         (setvar 'clayer "0")
    
23.       )
    
24.     )
    
25.   )
    
26. )
    
27. (autolayer)

;;系统变量反应器<br /> ;;监视系统变量 clayer (当然也可以改成其他变量)<br /> ;;功能 将当前图层限制为 0 图层 (改变判断条件,可以实现限制将当前图层设置为某一个等功能)<br /> (defun autolayer ()<br />   (vl-load-com)<br />   (if (not sysvarreactor)<br />     (setq sysvarreactor<br />            (vlr-sysvar-reactor<br />              nil<br />              '((:vlr-sysVarChanged . sysvar))<br />            )<br />     )<br />   )<br /> )<br /> (defun sysvar (temp returninfo / )<br />   (vl-load-com)<br />   (if (and(equal (nth 0 returninfo) "CLAYER")(nth 1 returninfo))<br />     (if(/= (equal (getvar "clayer") "0") T)<br />       (progn<br />         (alert "将切换至 0 图层!")<br />         (setvar 'clayer "0")<br />       )<br />     )<br />   )<br /> )<br /> (autolayer)

;;养成良好习惯
;;比如用完记得归还 (vlr-remove sysvarreactor)

marting

不会浪费资源，你不做，系统背后也无时无刻不运行着这些检测

satan421

marting 发表于 2019-2-15 14:21
不会浪费资源，你不做，系统背后也无时无刻不运行着这些检测

看了很多反应器相关的帖子，其中好多是你的，收获很多，非常感谢

fengyun7000

有点意思啊，今天看一天反应器了，费劲

sicky111

学习一下。

kswym88888

学习反应器，好样板。谢谢楼主的分享！