命令替换

DuanJinHui · 发表于 2022-7-5 18:47:43

朋友们好。

双击属性块。默认使用“eattedit”编辑。
我想用命令“attedit”双击属性块。可以吗？

这个反应堆怎么用？


(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 "My Dialog")
;;(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) " ")
     )
   )
 )
)