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])
Reply to
Cliff Davis
Loading thread data ...
On 15 Aug 2003, "Cliff Davis" used his great knowledge to say:
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))) ) )
Reply to
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)
"Cliff Davis" schreef in bericht news:3f3d0230
Reply to
Works like a charm, as usual this newsgroup is a lifesaver. Thanks a million Cliff
Reply to
Cliff Davis

PolyTech Forum website is not affiliated with any of the manufacturers or service providers discussed here. All logos and trade names are the property of their respective owners.