反应器的回调函数是怎么调用的？

user123

请看如下一个简单的测试程序，运行命令后提示选择一个点，此时右键，程序就响应了该事件，然后顺序执行回调函数中的程序。在第一次运行命令时，回调函数中打印的值是没问题的，可是重复运行该命令时，打印的值就相应的增加了，真是很奇怪，按道理程序运行一开始就让rtclk_num置0了啊，所以每次右键都应该显示为"1a"，怎么会显示为"1a2a3a4a5a......"，回调函数的调用难道不是像中断那样调用吗？

2. (defun c:test1 ()
   
3.   (vl-load-com)
   
4.   (setq rtclk_num 0)
   
5.   (setq  *dblclkCircleReactor*
   
6.         (VLR-Mouse-Reactor
   
7.           nil
   
8.           '((:VLR-beginRightClick . rtclkedit))
   
9.         )
   
10.   )
    
11.   (setq pt (getpoint "\n选取一点："))
    
12. )
    
13. 
    
14. ;;;回调函数
    
15. (defun rtclkedit (reactorObject point)
    
16.   (setq rtclk_num (1+ rtclk_num))
    
17.   (princ rtclk_num)
    
18.   (princ "a")
    
19. )
    

(defun c:test1 ()<br />   (vl-load-com)<br />   (setq rtclk_num 0)<br />   (setq  *dblclkCircleReactor*<br />         (VLR-Mouse-Reactor<br />           nil<br />           '((:VLR-beginRightClick . rtclkedit))<br />         )<br />   )<br />   (setq pt (getpoint "\n选取一点："))<br /> )<br /> <br /> ;;;回调函数<br /> (defun rtclkedit (reactorObject point)<br />   (setq rtclk_num (1+ rtclk_num))<br />   (princ rtclk_num)<br />   (princ "a")<br /> )<br />

cabinsummer

rtclk_num是全局变量，只是在加载时被赋初值。以后一直存在于内存中，调用rtclkedit函数仅仅将内存中的rtclk_num数值加一，并没有重新赋值。