(getpoint) wont set new coordinates to "LASTPOINT" variable...why?

[samifox]

(setq plst (cons (getpoint "\nPick first point") plts ))
   
   (while
    (setq plst (cons  (getpoint  (getvar "LASTPOINT") "\nPick next point") plst ))

   )

[jdiala]

Shay,

 

Don't really understand your question. I think you are implying about the rubber band effect of getpoint function.

 

try this:

 

(setq plst (cons (getpoint "\nPick first point") plst ))
  
   (while plst
    (setq plst (cons  (getpoint  (car plst) "\nPick next point") plst ))
	;(entmakex (list (cons 0 "LINE") (cons 10 (car plst)) (cons 11 (cadr plst))))
)

 

(setq plst (cons (getpoint "\nPick first point") [color="red"]plst[/color] )) change this
   
   (while
    (setq plst (cons  (getpoint  (getvar "LASTPOINT") "\nPick next point") plst ))

   )

[samifox]

Shay,

 

Don't really understand your question. I think you are implying about the rubber band effect of getpoint function.

 

try this:

 

(setq plst (cons (getpoint "\nPick first point") plst ))
  
   (while plst
    (setq plst (cons  (getpoint  (car plst) "\nPick next point") plst ))
	;(entmakex (list (cons 0 "LINE") (cons 10 (car plst)) (cons 11 (cadr plst))))
)

 

thanks

didnt think about this

 

why (getpoint) clicks are not saved in lastpoint?

[jdiala]

thanks

didnt think about this

 

why (getpoint) clicks are not saved in lastpoint?

 

Bump, sorry don't know the answer.

 

On your code that lastpoint was saved on your plst list but just didn't show the visual effect that you want to achieve.

[samifox]

Bdw have u notice the code store nil recevied by getpoint?

[BIGAL]

This is short and sweet may be usefull, lots of get pline pts code then just erase last but points still exist.

 

; create pline by picking points press enter when finished
(command "_pline") 
(while (= (getvar "cmdactive") 1 ) (command pause)
)

[MSasu]

Samifox, from what it seems, that system variable is set only by native commands, not AutoLISP.

[samifox]

This is short and sweet may be usefull, lots of get pline pts code then just erase last but points still exist.

 

; create pline by picking points press enter when finished
(command "_pline") 
(while (= (getvar "cmdactive") 1 ) (command pause)
)

 

thanks Bigal, i didnt know about that trick

 

 

Samifox, from what it seems, that system variable is set only by native commands, not AutoLISP.

 

yap....relay on lisp...not autocad:glare:

thanks

[BIGAL]

I stumbled on the code can not remember where would acknowledge author.