反应器学习——命令反应器

satan421

;;发现有些通过下拉菜单执行的命令不是马上执行,而是下拉菜单关闭之后才执行
;;写了个简单的反应器,监测命令开始执行和执行结束,并作出提示

;;命令反应器
;;各命令事件的通知打印

2. (defun Cmd ()
   
3.   (vl-load-com)
   
4.   (if (not CmdReactor)
   
5.     (setq CmdReactor
   
6.            (vlr-command-reactor
   
7.              nil
   
8.              '(
   
9.                (:vlr-commandwillstart . CmdStart)
   
10.                (:vlr-commandended . CmdEnd)
    
11.                (:vlr-commandcancelled . CmdCancel)
    
12.                (:vlr-commandfailed . CmdFailed)
    
13.               )
    
14.            )
    
15.     )
    
16.   )
    
17.   (princ)
    
18. )
    
19. (defun CmdStart        (Reac Args / )
    
20.   (princ (strcat "\n" (car Args) " Run."))
    
21. )
    
22. (defun CmdEnd (Reac Args / )
    
23.   (princ (strcat "\n" (car Args) " Ended."))
    
24. )
    
25. (defun CmdCancel (Reac Args / )
    
26.   (princ (strcat "\n" (car Args) " Canceled."))
    
27. )
    
28. (defun CmdFailed        (Reac Args / )
    
29.   (princ (strcat "\n" (car Args) " Failed"))
    
30. )
    
31. (Cmd)

(defun Cmd ()<br />   (vl-load-com)<br />   (if (not CmdReactor)<br />     (setq CmdReactor<br />            (vlr-command-reactor<br />              nil<br />              '(<br />                (:vlr-commandwillstart . CmdStart)<br />                (:vlr-commandended . CmdEnd)<br />                (:vlr-commandcancelled . CmdCancel)<br />                (:vlr-commandfailed . CmdFailed)<br />               )<br />            )<br />     )<br />   )<br />   (princ)<br /> )<br /> (defun CmdStart        (Reac Args / )<br />   (princ (strcat "\n" (car Args) " Run."))<br /> )<br /> (defun CmdEnd (Reac Args / )<br />   (princ (strcat "\n" (car Args) " Ended."))<br /> )<br /> (defun CmdCancel (Reac Args / )<br />   (princ (strcat "\n" (car Args) " Canceled."))<br /> )<br /> (defun CmdFailed        (Reac Args / )<br />   (princ (strcat "\n" (car Args) " Failed"))<br /> )<br /> (Cmd)

;;用完记得 (vlr-remove CmdReactor)

newer

请编辑下帖子，选中你的代码，然后点 右上角的代码按钮，按代码格式发帖，方便查看。

sicky111

谢谢分享。

kswym88888

学习反应器，谢谢楼主的分享！

qxlonmsn

大神啊  我终于找到我需要的了  太崇拜  太感谢你了

qxlonmsn

大神  怎么只能运行一次啊   我(vlr-remove CmdReactor)完后  在(cmd)就没有作用了   不能重复的吗     新建文档  能行   

qxlonmsn

第二次来支持   一个字   犇

qxlonmsn

十分感谢大佬的代码   虽然现在论坛没有恢复  看不到内容

qxlonmsn

感谢分享!!!!