请教反应器

天下第三

一个块，我想自定义双击动作后弹出我自己的对话框，用反应器能实现吗？

Gu_xl

1. (or *dblclkReactor*
   
2.     (setq *dblclkReactor*
   
3.            (VLR-Mouse-Reactor
   
4.              nil
   
5.              '((:VLR-beginDoubleClick . dblclk-edit))
   
6.            )
   
7.     )
   
8. )
   
9. (defun dblclk-edit (vlrobj dblclk_point / owner dblclk_etype p)
   
10.   (setq owner (nentselp (setq p (trans (car dblclk_point) 0 1))))
    
11.   (if (and (= owner nil) (= 0 (getvar 'cmdactive)))
    
12.     (progn
    
13.       (alert "自定义双击对话框")
    
14. ;;(vla-eval (vlax-get-acad-object) "Sendkeys \"{ESC}\"")
    
15.       (vla-sendcommand
    
16.         (vla-get-activedocument (vlax-get-acad-object))
    
17.         (strcat (rtos (car p) 2 3) "," (rtos (cadr p) 2 3) " ")
    
18.       )
    
19.     )
    
20.   )
    
21. )

(or *dblclkReactor*<br />     (setq *dblclkReactor*<br />            (VLR-Mouse-Reactor<br />              nil<br />              '((:VLR-beginDoubleClick . dblclk-edit))<br />            )<br />     )<br /> )<br /> (defun dblclk-edit (vlrobj dblclk_point / owner dblclk_etype p)<br />   (setq owner (nentselp (setq p (trans (car dblclk_point) 0 1))))<br />   (if (and (= owner nil) (= 0 (getvar 'cmdactive)))<br />     (progn<br />       (alert "自定义双击对话框")<br /> ;;(vla-eval (vlax-get-acad-object) "Sendkeys \"{ESC}\"")<br />       (vla-sendcommand<br />         (vla-get-activedocument (vlax-get-acad-object))<br />         (strcat (rtos (car p) 2 3) "," (rtos (cadr p) 2 3) " ")<br />       )<br />     )<br />   )<br /> )

天下第三

谢谢老兄。反应器没学习过。看来有可能用反应器完成类似自定义实体的效果。   如果在第三方软件中，运行该软件的某命令时要该块的反应器做出回应，这个命令不是cad本身自带的，可以实现吗班主？  验证码老是错误，只好发这楼层上了

sibelle_hu

Gu_xl 发表于 2015-8-4 15:49

版主,你好
请问这个怎么运行呀?
双击属性块默认是用eattedit 打开, 如果用attedit 打开呢?