COMMAND AND MOUSE REACTOR
13-09-2012 03:20 . pm | View his/her posts only
Hai
Command and Mouse reactor in autolisp not working in ZWCAD. Even sample code given in the help also have not work.
Please give me the workable code with user guideline for how to run and test it.
Command and Mouse reactor in autolisp not working in ZWCAD. Even sample code given in the help also have not work.
Please give me the workable code with user guideline for how to run and test it.
COMMAND AND MOUSE REACTOR
14-09-2012 03:19 . pm | View his/her posts only
I don't know about Zwcad.
Just tested our lisp code in Zwcad+.
Command and mouse reactor working correctly.
Just tested our lisp code in Zwcad+.
Command and mouse reactor working correctly.
COMMAND AND MOUSE REACTOR
14-09-2012 04:10 . pm | View his/her posts only
Thanks for your replay.
Please give me a sample code and user guideline for how to run it
Please give me a sample code and user guideline for how to run it
COMMAND AND MOUSE REACTOR
14-09-2012 05:28 . pm | View his/her posts only
; This code runs once after loading
(if (not $vlrloaded)
(progn
(defun CmdEndFun (robj cmd)
(princ "\nCmdEndFun ! :")
(princ cmd)
)
(defun RClickFun (robj plist)
(princ "\nRClick !")
)
(defun CleanReactors (robj plist)
(vlr-remove-all)
)
(vl-load-com)
(vlr-remove-all)
(vlr-command-reactor nil (list (cons :vlr-commandEnded 'CmdEndFun)))
(vlr-mouse-reactor nil (list (cons :vlr-beginRightClick 'RClickFun)))
(vlr-dwg-reactor nil (list (cons :vlr-beginClose 'CleanReactors)))
(setq $vlrloaded T)
)
)
(if (not $vlrloaded)
(progn
(defun CmdEndFun (robj cmd)
(princ "\nCmdEndFun ! :")
(princ cmd)
)
(defun RClickFun (robj plist)
(princ "\nRClick !")
)
(defun CleanReactors (robj plist)
(vlr-remove-all)
)
(vl-load-com)
(vlr-remove-all)
(vlr-command-reactor nil (list (cons :vlr-commandEnded 'CmdEndFun)))
(vlr-mouse-reactor nil (list (cons :vlr-beginRightClick 'RClickFun)))
(vlr-dwg-reactor nil (list (cons :vlr-beginClose 'CleanReactors)))
(setq $vlrloaded T)
)
)
COMMAND AND MOUSE REACTOR
15-09-2012 11:26 . am | View his/her posts only
Hai Seav735587
Excellent job, It's work fine. Thanks.....
Excellent job, It's work fine. Thanks.....



