pline in lisp

I am trying to draw a polyline from within lisp with an unknown number of
points. Is there a simple way to loop until enter is hit and then move on
the next function. Something like:
(command "pline" pause "w" "1" "" [infinite pauses until enter])
(my_next_function)

Thanks
Cliff

 

I'm not sure about that other verbose answer, but try this:

(command "._pline")
(while (eq 1 (logand 1 (getvar "CMDACTIVE")))
(if a (command (setq a (getpoint a)))
(command (setq a (getpoint)))
)
)

 

try this set of code for example:

(set pl-w-old (getvar "PLINEWID"))

(setvar "PLINEWID" 1)

(command "pline")
(setq dg "N")
(SETVAR "CMDECHO" 1)
(while (= dg "N")
(if (= (getvar "cmdnames") "PLINE")
(command pause)
(setq dg nil)
)
)

(setvar "PLINEWID" pl-w-old)

Michel

 

Works like a charm, as usual this newsgroup is a lifesaver.
Thanks a million
Cliff