社区 › Auto Lisp › 命令替换

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) " ")
   )
   )
)
)

Lee Mac 发表于 2022-7-5 19:03:04

不需要反应器-只需更改CUI中属性块的双击操作：
 

DuanJinHui 发表于 2022-7-5 19:21:31

 
谢谢李，

Lee Mac 发表于 2022-7-5 19:46:46

不客气-我总是建议在请求自定义之前先搜索web和AutoCAD帮助。

DuanJinHui 发表于 2022-7-5 19:51:41

 
我很抱歉。我会记得的

查看完整版本: 命令替换