here's mine, didn't look at le's, but i bet his is a lot nicer
(DEFUN begindoubleclick (reactorobject listofsomething / cmd doc obj ownerobj point)
(IF (NOT (AND (= (GETVAR "cmdactive") 0) (SSGET "I")))
(EXIT)
)
(SETQ cmd "_.PROPERTIES"
point listofsomething
obj (SSNAME (SSGET "I") 0)
doc (VLAX-GET (VLAX-GET-ACAD-OBJECT) "activedocument")
)
(IF obj
(PROGN (SETQ ownerobj (STRCASE (VLAX-GET (VLAX-ENAME->VLA-OBJECT obj)
"objectname"
)
)
)
(COND ((= ownerobj "ACDBBLOCKREFERENCE")
(SETQ gbl_wd_rightclick_ent obj)
(VLA-SENDCOMMAND doc "(princ (c:menueditwire) ) ")
)
((= ownerobj "ACDBMTEXT")
(VLA-SENDCOMMAND doc "_.MTEDIT ")
)
(T (VLA-SENDCOMMAND doc (STRCAT cmd " ")))
)
)
)
)
(DEFUN loaddoublclick (/)
(IF (/= (TYPE doubleclickreactor) 'VLR-MOUSE-REACTOR)
(SETQ doubleclickreactor
(VLR-MOUSE-REACTOR
nil
'((:VLR-BEGINDOUBLECLICK . begindoubleclick))
)
)
)
(IF (NOT (VLR-ADDED-P doubleclickreactor))
(VLR-ADD doubleclickreactor)
)
(IF (MEMBER "acdblclkedit.arx" (ARX))
(ARXUNLOAD "acdblclkedit.arx" nil)
)
(PRINC)
)