---

ich möchte ein Rechteck anhand von 3 gemessenen Punkten zeichen. Jetzt dachte ich mir nichts leichter als das, aber denkste:

(if(setq P1 (getpoint "\nselect 1. point: ")
P2 (getpoint "\nselect 2. point: ")
P3 (getpoint "\nselect 3. point: ")
)
  (progn
    (command "ucs" P1 P2 "")
    (command "rectang" P1 P3)
    (command "ucs" "w" "")
    )
  )

Das funktioniert nicht, wo hackt es?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Dein Ansatz weiterverfolgt sollte es wohl so aussehen

(command "_ucs" "_w" "")
(if(setq P1 (getpoint "\nselect 1. point: ")
        P2 (getpoint "\nselect 2. point: ")
        P3 (getpoint "\nselect 3. point: ")
  )
  (progn
    (command "_ucs" P1 P2 "")
    (command "_rectang" (trans P1 0 1) (trans P3 0 1))
    (command "_ucs" "_w" "")
  )
)

die vorhereingegebenen Punkte mssen auf das neuen Koordinatensystem umgerechnet werden

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Super danke Thomas

Vom Prinzip her wird die weise Linie (Rechteck) ganz richtig gezeichnet. Allerdings mein Denkfehler, ich will ja den dritten Punkt mit einbeziehen.
Also die Basislinie bildet von P1 nach P2 und rechtwinklig soll P3 abgelotet. Kann mir einer einen Denkansatz geben, wie ich das bewerkstelligen kann.

[Diese Nachricht wurde von cadplayer am 15. Jul. 2011 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
reicht das nicht schon? Hab nämlich nicht ganz verstanden wie es gemeint war.

Code:

---

(command "_rectang" (getpoint)"D" "0" "D" (getpoint))

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Lasst Euch gern Zeit mit der Anwort - ich bin mal 2 Wochen weg

Sorry gleich gepostet

(command "_rectang" (getpoint)
"D"  ...
"0"  ...was machen denn die Einträge, weil sie bei der englisch-version nicht anspringen
"D"  ...
(getpoint))

[Diese Nachricht wurde von cadplayer am 15. Jul. 2011 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Natürlich das "D" (Drehung) durch den Englischen kürzel ersetzen.

[Diese Nachricht wurde von Meldin am 15. Jul. 2011 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Warum kompliziert, wenn es auch einfach geht...
Besten Dank für den Kommentar.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP