Can a polyline be drawn at runtime?

[Johntosh]

...by me that is (physically)!

 

Using DCL I have a button that when I click I'd like to draw a polyline, now I can do this if I end my script with...

 

(command "_.PLINE")

 

..but what if I want to continue running my script immediately after I have exited the polyline command with...

 

(setq e (entlast))

 

..without a further call with entsel? Presently I get the Invalid point error message.

 

Here's calling for you help!

[Lee Mac]

Add something like this to your script:

 

(while (> (getvar 'CmdActive) 0) (command pause))

i.e.

 

(defun c:pltry ()
   (command "pline"
       (while (> (getvar 'CmdActive) 0) (command pause)) 
   ) ; end pline
   (alert "It Worked!")
   (princ)
)

Or, as in your example with "entlast" ....

 

(defun c:plent (/ pl1)
   (command "pline"
       (while (> (getvar 'CmdActive) 0) (command pause)) 
   ) ; end pline
   (setq pl1 (entlast))

;    [b][color=Red] A bunch of extra commands you might want to add go here....[/color][/b]

   (princ)
)

[Johntosh]

Thanks, Lee!

 

That's helped me a great deal.

 

God bless you.

[Lee Mac]

No Problem John, glad I could help.