[求助]如何自定义双击反应器

cag

我想写个反应器，在双击一个AutoCAD的实体后，不执行系统默认的命令，而是执行一段自定义的函数。

我在双击事件的反应器的回调函数里把AcDblClkEdit.arx卸载了，然后再执行自己定义的函数之后，再把AcDblClkEdit.arx加载，结果，自定义的函数是执行了，但是系统默认的命令也被执行，该怎么做才能不执行系统默认的命令???

谢。

飞诗(fsxm)

兄弟用过fsxmzbbz坐标标注么？试试里面的双击反应器吧！
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=59742
在写fsxmzbbz时已将双击反应器做成了通用函数了
更多lisp源程序请参见:http://fsxm.bokee.com/

3. (if (null *fsxm-DoubleClick-Reactor*)
4.   (setq *fsxm-DoubleClick-Reactor*
5.   (vlr-mouse-Reactor
6.     "Fsxm.app"
7.     '((:vlr-beginDoubleClick . fsxm-mouse-DoubleClick-callback))
8.   )
9.   )
10. )
11. (vl-catch-all-apply 'arxunload '("acdblclkedit.arx"))
12. (vl-catch-all-apply 'arxload '("acdblclkedit.arx"))
13. (defun Fsxm-Mouse-DoubleClick-Callback
14.        (Reactor Point / selp_date strFun)
15.   (setq DoubleClick_Point (trans (car Point) 0 1))
16.   (if (setq selp_date (nentselp DoubleClick_Point))
17.     (progn
18.       (if (> (length selp_date) 2)
19. (setq DoubleClick_en (last (last selp_date)))
20. (setq DoubleClick_en (car selp_date))
21.       )
22.       (if (and (setq strFun (vlax-ldata-get
23.          DoubleClick_en
24.          "Fsxm-DoubleClick-Function"
25.        )
26.         )
27.         (vl-symbol-value (read strFun))
28.    )
29. (progn
30.    (vl-catch-all-apply 'arxunload '("acdblclkedit.arx"))
31.    (sssetfirst nil)
32.    (if (= (substr strFun 1 1) ":")
33.      (vl-catch-all-apply
34.        (read strFun)
35.        (list DoubleClick_en DoubleClick_Point)
36.      )
37.      (vla-SendCommand
38.        (vla-get-ActiveDocument (vlax-get-acad-object))
39.        (strcat "("   strFun
40.         " DoubleClick_en"  " DoubleClick_Point"
41.         ") "
42.        )
43.      )
44.    )
45.    (vl-catch-all-apply 'arxload '("acdblclkedit.arx"))
46. )
47.       )
48.     )
49.   )
50. )
51. (defun Fsxm-Reactor-DoubleClick (en strFun)
52.   (cond ((null strFun)
53.   (vlax-ldata-delete en "Fsxm-DoubleClick-Function")
54. )
55. ((= (type strFun) 'str)
56.   (vlax-ldata-put en "Fsxm-DoubleClick-Function" strFun)
57. )
58. (t
59.   (vlax-ldata-get en "Fsxm-DoubleClick-Function" strFun)
60. )
61.   )
62. )
63. ;;;(setq en (car (entsel)))
64. ;;;(Fsxm-Reactor-DoubleClick en "test")
65. ;;;(defun test (DoubleClick_en DoubleClick_Point) .......
66. ;;;适用于想轻松拥有双击时屏避系统自带编缉对话框,且调用自定义函数!
67. ;;;如果你还不太会双击反应器或你需要一个通用而简单的调用过程我相信这就是你需要的!
68. ;;;一个简单的调用,即可让你轻松拥有专业的双击效果!还不快试试!
69. ;;;如果回调中没有交流函数可以用":"开头做函数名，这样回调时不会在命今行回显！
70. 测试代码:
71. (setq en (car (entsel)))
72. (Fsxm-Reactor-DoubleClick en "test")
73. (defun test (DoubleClick_en DoubleClick_Point)
74.   (alert
75.     (strcat "你双击的对像是："
76.      (VL-PRINC-TO-STRING DoubleClick_en)
77.      "双击时的点是："
78.      (VL-PRINC-TO-STRING DoubleClick_Point)
79.     )
80.   )
81. )

(if (null *fsxm-DoubleClick-Reactor*)   (setq *fsxm-DoubleClick-Reactor*   (vlr-mouse-Reactor     "Fsxm.app"     '((:vlr-beginDoubleClick . fsxm-mouse-DoubleClick-callback))   )   ) ) (vl-catch-all-apply 'arxunload '("acdblclkedit.arx")) (vl-catch-all-apply 'arxload '("acdblclkedit.arx")) (defun Fsxm-Mouse-DoubleClick-Callback        (Reactor Point / selp_date strFun)   (setq DoubleClick_Point (trans (car Point) 0 1))   (if (setq selp_date (nentselp DoubleClick_Point))     (progn       (if (> (length selp_date) 2) (setq DoubleClick_en (last (last selp_date))) (setq DoubleClick_en (car selp_date))       )       (if (and (setq strFun (vlax-ldata-get          DoubleClick_en          "Fsxm-DoubleClick-Function"        )         )         (vl-symbol-value (read strFun))    ) (progn    (vl-catch-all-apply 'arxunload '("acdblclkedit.arx"))    (sssetfirst nil)    (if (= (substr strFun 1 1) ":")      (vl-catch-all-apply        (read strFun)        (list DoubleClick_en DoubleClick_Point)      )      (vla-SendCommand        (vla-get-ActiveDocument (vlax-get-acad-object))        (strcat "("   strFun         " DoubleClick_en"  " DoubleClick_Point"         ") "        )      )    )    (vl-catch-all-apply 'arxload '("acdblclkedit.arx")) )       )     )   ) ) (defun Fsxm-Reactor-DoubleClick (en strFun)   (cond ((null strFun)   (vlax-ldata-delete en "Fsxm-DoubleClick-Function") ) ((= (type strFun) 'str)   (vlax-ldata-put en "Fsxm-DoubleClick-Function" strFun) ) (t   (vlax-ldata-get en "Fsxm-DoubleClick-Function" strFun) )   ) ) ;;;(setq en (car (entsel))) ;;;(Fsxm-Reactor-DoubleClick en "test") ;;;(defun test (DoubleClick_en DoubleClick_Point) ....... ;;;适用于想轻松拥有双击时屏避系统自带编缉对话框,且调用自定义函数! ;;;如果你还不太会双击反应器或你需要一个通用而简单的调用过程我相信这就是你需要的! ;;;一个简单的调用,即可让你轻松拥有专业的双击效果!还不快试试! ;;;如果回调中没有交流函数可以用":"开头做函数名，这样回调时不会在命今行回显！ 测试代码: (setq en (car (entsel))) (Fsxm-Reactor-DoubleClick en "test") (defun test (DoubleClick_en DoubleClick_Point)   (alert     (strcat "你双击的对像是："      (VL-PRINC-TO-STRING DoubleClick_en)      "双击时的点是："      (VL-PRINC-TO-STRING DoubleClick_Point)     )   ) )

cag

太感谢了，我就是看了你写的坐标标注，才想搞清这个是怎么实现的。

不用在2008里，双击时还是会执行系统默认的命令，我用的是2008英文版，如果去卸载acdblclkeditpe.arx后，也是正常的

2004和2006都是正常的，2002没试过。

感谢分享。

cag

试了一下，如果是属性块，当双击属性时，还是会跳出属性修改对话框，其他倒正常

飞诗(fsxm)

可能这样说：

属性不是insert中的对象，它只是与insert放在一起的组合。对属性不能当作insert一起处理.

试试将属性也附上：(Fsxm-Reactor-DoubleClick en  ...)

zag0666

感觉很近 可又遥不可及

怎样才能双击编辑标注啊？

zml84

zml84说：fsxm 是好人。