code not working

[Angelo2449]

Hello everyone,
provided that all variables are valued, these few lines of code :

 (setq davsx (polar psex agsx 0.05))
;;(command "_circle" davsx 0.05)
(setq davsx1 (polar davsx agsu 0.05)
;;(command "_circle" davsx1 0.05)
(command "_line" davsx1 davsx "")

They're acting weird.
if I draw the circles also the line is drawn, otherwise I get the message :
"internal point: zero length line created in point (-1100.06, 59.85, 0.00)"
How is it possible?
Thank you.

 

[Cristallo]

makes a test, insert before the first row
(Setvar "osmode" 0)
Let's see if something changes.

 

[Angelo2449]

Thank you! ! !
I never remember to restore the osnap!
I put it anyway.

(setvar "osmode" 16384)

Thanks again crystal, I was freaking out.

 

[Cristallo]

Why 16384? What is it?
You understand, don't you, what was going on? in practice the osnap intercepted the first point and therefore the line was of zero length.

I use this sequence always, in the lisp, so that it is transparent to the user.

(setq oldosmode (getvar "osmode")
(Setvar "osmode" 0)
...
...
...
(setvar "osmode" oldosmode)+

 

[Cristallo]

Sooner or later, you're gonna have to pass me one of your lisp, figure out what they do... Since half of the problems I have solved them to you:
I'm kidding!