[求助]：用反应器技术求鼠标双击时X Y Z坐标的问题

肥肥小兔子

关于用反应器技术求鼠标双击时X Y Z坐标的问题

程序如下：
(vl-load-com)
(defun xyz (dou-object A)
  (prin1 A)
)
(setq dou (vlr-mouse-reactor “A” ‘((:vlr-begindoubleclick . xyz))))

有三个问题：

一：程序加载后，在CAD模型空间双击鼠标，出现一组坐标数据。退回LISP环境，再加载一次，在CAD模型空间双击鼠标，就出现两组完全一样的坐标数据。退回LISP环境，再加载一次，在CAD模型空间双击鼠标，就出现三组完全一样的坐标数据。这样，每加载一次，执行后就多一组坐标数据。只要不退出CAD2000，这种状态就一直继续下去。退出CAD2000，再进入，又从一组数据开始，不知原因何在？

二：进入CAD2000后，如果在程序最后加上(vlr-remove dou)，初次执行后就不出数据。如果执行了至少一次之后再加上(vlr-remove dou)，就又可以出数据了，而且有了(vlr-remove dou)后无论再加载多少次，数据的组数也不再增加了。那么(vlr-remove dou)究竟在什么条件下有效，在什么条件下无效呢？

三：在不关闭CAD2000的状态下，退出这个程序，打开并执行其它程序的时候，发生鼠标双击，仍然会显示双击点的坐标值，好象这个程序还没有“死”。不知原因何在？

苦恼中：（……盼望得到指点，感激不尽

zhang8755

(setq dou (vlr-mouse-reactor “A” ‘((:vlr-begindoubleclick . xyz))))
将这一句改为如下几句
(if (/= (type dou) 'VLR-Mouse-Reactor)
        (setq dou    (VLR-Mouse-Reactor
                         "A"  '((:VLR-beginDoubleClick . xyz))
                   ) ;_ end of vlr-editor-reactor
        )
  )
  (if (not (vlr-added-p dou))
        (vlr-add dou)
  )

lijiao

将(setq dou (vlr-mouse-reactor “A” ‘((:vlr-begindoubleclick . xyz))))改为：
(if (not dou )
    (setq dou (vlr-mouse-reactor "A" '((:vlr-begindoubleclick . xyz))))
)
即可。

zhang8755

只判别dou是否为真不全面，至少改为(/= (type dou) 'VLR-Mouse-Reactor)较合适