求一个监视命令的反应器

myjping

求一个监视命令的反应器

ahwx0814

2. (defun wx-cmd (x1 x2)
   
3.   (setq        cmdstr (car x2))
   
4.   (setq layer (getvar "CLAYER"))
   
5.   (princ "\n开始命令:")
   
6.   (if (= (strcase cmdstr t) "line")
   
7.     (setq en (entlast)))
   
8.   )
   
9. (defun wx-cmd1 (x1 x2)
   
10.   (princ "\n结束命令:")
    
11.   (setq a1 x1 a2 x2)
    
12.   (setvar "CLAYER" layer)
    
13.   )
    
14. (defun wx-cmd2 (x1 x2)
    
15.   (princ "\n取消命令:")
    
16.   (setq a1 x1 a2 x2)
    
17.   (setvar "CLAYER" layer)
    
18.   )
    
19. (or :vlr-wx-cmd
    
20.   (setq :vlr-wx-cmd (vlr-command-reactor nil (list
    
21.                                              (cons :vlr-commandWillStart (function wx-cmd));开始命令
    
22.                                              (cons :vlr-commandEnded (function wx-cmd1));结束命令
    
23.                                              (cons :vlr-commandCancelled (function wx-cmd2));取消命令
    
24.                                              )))
    
25.   )

(defun wx-cmd (x1 x2)<br />   (setq        cmdstr (car x2))<br />   (setq layer (getvar "CLAYER"))<br />   (princ "\n开始命令:")<br />   (if (= (strcase cmdstr t) "line")<br />     (setq en (entlast)))<br />   )<br /> (defun wx-cmd1 (x1 x2)<br />   (princ "\n结束命令:")<br />   (setq a1 x1 a2 x2)<br />   (setvar "CLAYER" layer)<br />   )<br /> (defun wx-cmd2 (x1 x2)<br />   (princ "\n取消命令:")<br />   (setq a1 x1 a2 x2)<br />   (setvar "CLAYER" layer)<br />   )<br /> (or :vlr-wx-cmd<br />   (setq :vlr-wx-cmd (vlr-command-reactor nil (list<br />                                              (cons :vlr-commandWillStart (function wx-cmd));开始命令<br />                                              (cons :vlr-commandEnded (function wx-cmd1));结束命令<br />                                              (cons :vlr-commandCancelled (function wx-cmd2));取消命令<br />                                              )))<br />   )