Command Replace

Hello friends.

Double-click on the attribute block. default use "eattedit" edit.

I want Double-click on the attribute block with command "attedit " . Can do ?

How use this reactor ?

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

A reactor is not necessary - simply alter the double-click action for attributed blocks in the CUI:

A reactor is not necessary - simply alter the double-click action for attributed blocks in the CUI:

 

[ATTACH]55108[/ATTACH]

Thank you lee ,

You're welcome - I would always suggest searching the web & AutoCAD help first before requesting a customisation.

You're welcome - I would always suggest searching the web & AutoCAD help first before requesting a customisation.

I'm sorry. I'll remember