wait for line to be drawn

[Anonymous]

i want to start a lisp routine and let the user draw a line of what ever length they want, and end it by pressing enter, then i want my lisp routine to continue and finish the routine

;;REVCLOUD
(defun c:rev ()
(setq oldlayer (getvar "clayer"))
(command "layer" "new" "REVISION" "color" "6" "REVISION" "")
(setvar "clayer" "REVISION")

(command "pline" "\npress enter when done")

this where i want it to wait til the user hits enter

(command "revcloud" "a" ".25" ".25" "o" "last" "")
(setvar "clayer" oldlayer))

[ВeekeeCZ]

(command "pline")
(while (< 0 (getvar 'cmdactive))
(command pause))

[Anonymous]

Or just kill the existing command

(command "UNDEFINE" "_PLINE")

and define your own pline function

(defun c:pline ()
 (command-s "._PLINE")
 (alert (strcat "The length of the PLINE is: " (rtos(getpropertyvalue  (entlast)  "length"))))
)

[ВeekeeCZ]

wow, this is new to me... 

(command-s "._PLINE")

Could this replace my construction using 'cmdactive anywhere in the code? Any other tricks like this? 🙂