天下第三 发表于 2015-8-4 15:31:52

请教反应器

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

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

本帖最后由 Gu_xl 于 2015-8-4 15:57 编辑

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

天下第三 发表于 2015-8-4 15:58:52

本帖最后由 天下第三 于 2015-8-4 16:59 编辑

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

sibelle_hu 发表于 2015-8-4 16:03:25

Gu_xl 发表于 2015-8-4 15:49 static/image/common/back.gif


版主,你好
请问这个怎么运行呀?
双击属性块默认是用eattedit 打开, 如果用attedit 打开呢?
页: [1]
查看完整版本: 请教反应器