;CODING STARTS HERE

(vl-load-com)
;------------
(vlr-mouse-reactor "Edit text Object" '((:vlr-beginDoubleClick . DC-Edit)))
(defun DC-Edit (theReactor thePoint / app doc)
(setq app (vlax-get-acad-object)
doc (vla-get-activedocument app)
)
(vla-sendcommand doc "ddedit ")
(princ)
)

;CODING ENDS HERE

Craig Green