End of while loop...

[marko_ribar]

Whats wrong in these lines... I want to end while loop by setting its condition to nil (setq q 1)... This should imitate command PLINE - closed, and when start point eqauls end point it should end loop, and make polyline from sequence of lines...

(setq sslin (ssadd))
(setq q -1)
(setq pt (getpoint))
(setq ptt pt)
(while (< q 0)
(progn
(command "line" pt (setq pt (getpoint pt)) "")
(ssadd (entlast) sslin)
(if (eq pt ptt) (setq q 1))
))
(command "pedit" (entlast) "" "j" sslin "" "")

Thanks...
M.R.

[marko_ribar]

I have found solution. It was (equal pt ptt) insted of (eq pt ptt)...

(setq sslin (ssadd))
(setq q -1)
(setq pt (getpoint))
(setq ptt pt)
(while (< q 0)
(progn
(command "line" pt (setq pt (getpoint pt)) "")
(ssadd (entlast) sslin)
(if (equal pt ptt) (setq q 1))
))
(command "pedit" (entlast) "" "j" sslin "" "")

[alanjt]

Just use the PLine command.

[marko_ribar]

I can't use pline command, for it doesn't end quietly... Try to continue routine after pline command like (setq e (entlast)) where (entlast) would be that pline... Instead this functions, but only thing is that it would be prettier if it would have option "C" - close, like pline has... Any idea how to add that "C" option to (getpoint) function where it would pass that "c" to my ptt point - start=end point...

or return nil after (getpoint), like I explained in next post

M.R.

[marko_ribar]

In another word, I want to manipulate with that polyline after its created, like I selected it here :

(defun c:plsel ()
(setq sslin (ssadd))
(setq q -1)
(setq pt (getpoint "\nPick first point of polyline"))
(setq ptt pt)
(while (< q 0)
(progn
(command "line" pt (setq pt (getpoint pt)) "")
(ssadd (entlast) sslin)
(if (or (equal pt ptt) (eq pt nil)) (setq q 1))
))
(command "pedit" (entlast) "" "j" sslin "" "")
(setq s (ssadd))
(ssadd (entlast) s)
(sssetfirst s s)
(princ)
)

but, unfortunately when I enter "c" close option (getpoint) returns invalid point, and when I type ENTER to exit (getpoint) it returns nil witch I used to also terminate while loop...

[marko_ribar]

I have solved the problem :

(defun c:plsel ()
(setq sslin (ssadd))
(setq q -1)
(setq pt (getpoint "\nPick first point of polyline"))
(setq ptt pt)
(while (< q 0)
(progn
(initget 8 "c C Close")
(command "line" pt (if (equal (setq pt (getpoint pt "\nor type <c/C/Close> to close pline : ")) "C")(setq pt ptt)(setq pt pt)) "")
(ssadd (entlast) sslin)
(if (or (equal pt ptt) (eq pt nil)) (setq q 1))
))
(command "pedit" (entlast) "" "j" sslin "" "")
(setq s (ssadd))
(ssadd (entlast) s)
(sssetfirst s s)
(princ)
)

It now has "Close" option...

[marko_ribar]

I can't use pline command, for it doesn't end quietly... Try to continue routine after pline command like (setq e (entlast)) where (entlast) would be that pline...

Look at the code and you'll see that with (command "pline" pt (while...(command pt)) ""), command terminates with :; error: Function cancelled, and then it continues to execute pline command like there aren't "") sign for quiet exit, and after this it doesn't continue to execute next lines in routine...

(defun c:plsel ()
(setq pt (getpoint "\nPick first point of polyline"))
(setq ptt pt)
(setq q -1)
(command "pline" pt 
(while (< q 0)
(progn
(initget 8 "c C Close")
(command (if (equal (setq pt (getpoint pt "\nor type <c,C,Close> to close polyline : ")) "C")(setq pt ptt)(setq pt pt)) )
(if (or (equal pt ptt)(eq pt nil))(setq q 1))
))
"")
(setq el (entlast))
(setq s (ssadd))
(ssadd el s)
(sssetfirst s s)
(princ)
)

Any corrections to given code will be appreciated...

M.R.

[alanjt]

(Command "_.pline")
(While (eq 1 (logand 1 (getvar 'cmdactive))) (command pause))

Stupid titlecase on my phone

[marko_ribar]

Thanks, Alanjt...

this works, although I don't know how...
and it looks simple - in 3 lines...

[alanjt]

Actually, you don't need the last line (shows what happens when you type code from a phone).

It uses while and as long as the command is running active commands (cmdactive), it will supply it with (command PAUSE).