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
Add pictures here
✖
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload
to say:

on
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))) ) )
Add pictures here
✖
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload
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

Add pictures here
✖
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload
Works like a charm, as usual this newsgroup is a lifesaver. Thanks a million Cliff

of
on
Add pictures here
✖
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload

Site Timeline

Related Threads

Polytechforum.com is a website by engineers for engineers. It is not affiliated with any of manufacturers or vendors discussed here. All logos and trade names are the property of their respective owners.