Verwendung von getpoint

[Angelo2449]

Hallo alle,
Ich schrieb eine ähnliche Nachricht, aber ich kann sie nicht mehr finden, also wiederhole ich.
Ich habe diesen einfachen Code geschrieben;

(Defun c) org (/ pt1 pt2)

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

(falls pt1 (setq point pt1))

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

(falls pt2 (setq point2 pt2))

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

(setq organg (angle point2))
(sofern zutreffend)

(pr "n")
(Prince organg)
(pr "n")

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

Wie Sie sehen können, wird es verwendet, um einen Referenzvektor einzustellen, ich erhalten einen Fehler in Zeile :

(Setq organg)

Ich retrace den Code, aber ich kann nicht den Grund für den Fehler finden.
Danke.

 

[GP.]

(princ (rtos organg)

 

[Angelo2449]

Danke.
Ich mache eine Menge Berechnungen, dann verliere ich mich in einem Glas Wasser!
Danke noch mal.