use di getpoint

[Angelo2449]

Hello everyone,
I wrote a message similar to this, but I can't find it anymore, so I repeat.
I have written this simple code;

(defun c: org (/ pt1 pt2)

(setq pt1 nil)
(while
(= pt1 nil)
(by "npunto base <")
(pin)
(by ">:")
(setq pt1 (getpoint))
)

(if pt1 (setq point pt1))

(setq pt2 nil)
(while
(= pt2 nil)
(prc "\ nsecondo punto <")
(POINT POINT2)
(by ">:")
(setq pt2 (getpoint))
)

(if pt2 (setq point2 pt2))

(pr "n")
(pin)
(pr "n")
(POINT POINT2)
(pr "n")

(setq organg (angle point point2))
(setq origine t)

(pr "n")
(prince organg)
(pr "n")

(alert "orientamento per il tracciamento polar imposto")
)

As you can see, it is used to set a reference vector, I receive an error in line :

(setq organg (le pint pot2)

I continue to retrace the code but I can't find the reason for the error.
Thank you.

 

[GP.]

(princ (rtos organg)

 

[Angelo2449]

thanks gp,
I make a lot of calculations then I lose myself in a glass of water!
Thanks again.