Umkehren Sie zwei Punkte in Lisp, bei umgekehrter Richtung

[mazzetti68]

Hallo, alle!

Ich muß zwei Punkte rückgängig machen, falls die Reihenfolge der Punkte gegen den im ISP gesetzten Punkt steht, der sonst den Code praktisch verdoppeln sollte

Dies ist ein Beispiel dafür, was ich gerne tun möchte:

(setq p1 (getpoint "\nindiziert den Ausgangspunkt der Linie: "
p2 (getpoint "\nindiziert den Endpunkt der Linie: "
)

(setq ang (Winkel p1 p1)

(cond)


(* pi 0.5) ang (* pi 1.5) (Zeile links)
[COLOR="#FF0000"](Befehl "_line" p2 p1)[/COLOR])


(oder (< ang (* pi 0.5) (> ang (* pi 1.5))) (alert "line right")
[COLOR="#008000"](Befehl "_line" p1 p2) [/COLOR])


)

wenn die Richtung von links nach rechts umgekehrt in p1 p2 wird und p2 p1 wird, dann (nicht richtig):

(setq p1 (getpoint "\nindiziert den Ausgangspunkt der Linie: "
p2 (getpoint "\nindiziert den Endpunkt der Linie: "
)

(setq ang (Winkel p1 p1)

(cond)


(* pi 0.5) ang (* pi 1.5) (Zeile links)
[COLOR="#FF0000"](setq p1=p2 & p2=p1)[/COLOR] ; umgekehrte Punkte
[COLOR="#FF0000"](Befehl "_line" p1 p2)[/COLOR])


(oder (< ang (* pi 0.5) (> ang (* pi 1.5))) (alert "line right")
[COLOR="#008000"](Befehl "_line" p1 p2) [/COLOR])


)

Kann mir jemand helfen?

Vielen Dank im Voraus

Guten Tag!

 

[GP.]

(Setq p p1 p2 p2 p2 p2 p2 p2 p2 p)

 

[mazzetti68]

Vielen Dank!
Guten Tag