Bill Lape
Integrator.com
Here is one that will emulate 2000i - double click ability...
Regards,
Luis Esquivel
Using LspBOX you can quickly an easily generate drawings.
http://www.arqcom.com.mx/lspbox.htm
;; example provided by Luis Esquivel July 2001
;; to emulate the same ability of A2Ki
;; last modified: March 2002
(vl-load-com)
(if (not *doc*)
(setq *doc* (vla-get-activedocument (vlax-get-acad-object)))
)
(defun mouse-reactor (data)
(setq reactor
(vlr-mouse-reactor
data
'(
(:vlr-begindoubleclick
.
mouse-begindoubleclick
)
)
)
)
(vlr-set-notification reactor 'active-document-only)
(princ)
)
(defun mouse-begindoubleclick (obj lst / *object* compare pt ent ss)
(if lst
(progn
(if
(and
(eq 1
(logand
1
(vlax-variant-value (vla-getvariable *doc* "pickfirst"))
)
)
(setq ss (ssget "_i"))
(eq 1 (sslength ss))
)
(progn
(setq ent (ssname ss 0))
(setq pt (osnap (car lst) "_nea"))
(setq *object* (vlax-ename->vla-object ent))
(sssetfirst nil nil)
)
)
(if
(and
*object*
(equal (vlax-variant-value (vla-getvariable *doc* "cmdnames"))
""
)
)
(progn
(setq compare (strcase (vla-get-objectname *object*)))
(cond
((wcmatch compare "*DIM*,*TEXT*")
(vla-sendcommand *doc* "_.ddedit (princ pt) ")
)
((wcmatch compare "ACDBMLINE")
(vla-sendcommand *doc* "_.mledit ")
)
((wcmatch compare "*HATCH")
(vla-sendcommand *doc* "_.hatchedit (princ pt) ")
)
((wcmatch compare "ACDBLINE")
(vla-sendcommand *doc* "_.line ")
)
((wcmatch compare "*BLOCK*")
(initdia)
(vla-sendcommand *doc* "_.attedit (princ pt) ")
)
;; add here more ....
)
)
)
)
)
(princ)
)
(defun remove-mouse-system ()
(if (vlr-reactors :vlr-mouse-reactor)
(progn
(vlr-remove-all :vlr-mouse-reactor)
(setq reactor nil)
)
)
(princ)
)
(defun load-mouse-system ()
(if mouse-reactor
(mouse-reactor nil)
)
(princ)
)
(remove-mouse-system)
(load-mouse-system)
(princ)
HTH
--
Kevin Nehls
"Bill Lape" <Bill...@integrator.com> wrote in message
news:EEE9DFF603B0058A...@in.WebX.maYIadrTaRb...
"Kevin Nehls" <kevinn at safeworks dot com> wrote in message
news:2EADF6E78D27B830...@in.WebX.maYIadrTaRb...
Here is the DCPROPS info from the ET help file:
DCPROPS
----------------------------------------------------------------------------
----
Configures double-clicking to open the Properties dialog box
Command: DCPROPS
Enter mode [ON/OFF] : Enter ON or OFF
Use the DCPROPS command to turn DCPROPS mode on or off. When DCPROPS mode is
on, double clicking an object opens the Properties dialog, which contains
property data for the selected object.
----------------------------------------------------------------------------
----
Express menu: Tools Double-click Properties
Command line: DCPROPS
HTH
--
Kevin Nehls
"Bill Lape" <Bill...@integrator.com> wrote in message
news:AF76D8A180D44E27...@in.WebX.maYIadrTaRb...