pline in lisp

- C
- Cliff Davis
  
  Contact options for registered users
posted
18 years ago

Fri, Aug 15, 2003 3:47 PM

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

- S
- Smackypete
  
  Contact options for registered users
posted
18 years ago

Sat, Aug 16, 2003 12:11 AM

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))) ) )

- M
- m.h.schuur
  
  Contact options for registered users
posted
18 years ago

Mon, Aug 18, 2003 8:06 AM

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...

- C
- Cliff Davis
  
  Contact options for registered users
posted
18 years ago

Mon, Aug 18, 2003 12:38 PM

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

pline in lisp

Further Reading

Lisp?

PLINE Lisp Offset Question

lisp to count polyline ends

Flange with bolt circle LISP

Searching within LISP files

lisp

Lisp

lisp

trying to do a lisp routine- help

calling LISP commands within the setq funtion in R14

Move UCS with Lisp

How to connect to SQL server database in my Visual Lisp routine ?

mtext lisp

Lisp needed

file selector in lisp..

PLOTTING LAYOUTS

Yesterday's outage affected CAD settings....need a little help please...