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
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))) ) )
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
"Cliff Davis" schreef in bericht news:3f3d0230 snipped-for-privacy@news.athenanews.com...
Works like a charm, as usual this newsgroup is a lifesaver. Thanks a million Cliff
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.