---

Winkel.JPG

Hallo zusammen

Ich habe die Koordinaten von 6 Punkten siehe Anhang

ich muss nun den nächstgelegenen Punkt auf der linken und rechten Seite von Punkt2 bestimmen
meine Überlegung war, dass ich den Winkel zwischen P1-P2 bestimme
danach die Winkel P1-P3, P1-P4, P1-P5, P1-P6,
und diese mit den Winkel P1-P2 vergleiche.

P1 ist ein Hilfspunkt und kommt für die Auswahl nicht in Frage.

Gibt es für die Winkelbestimmung eine Funktion?
oder wie könnte man das sonst lösen?

Danke im voraus

Karl

[Diese Nachricht wurde von Karl01 am 04. Jan. 2005 editiert.]

[Diese Nachricht wurde von Karl01 am 04. Jan. 2005 editiert.]

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

---

Sorry,

ich verstehe dein Problem nicht so recht... Versuch doch einfach mal, dein Problem präzise zu schildern und nicht gleich Hilfskonstruktionen (p1) ins Spiel zu bringen.

Was ist denn die "linke" bzw. "rechte" Seite von p2?

Grüße von der Cassiopeia, Axel Strube-Zettler

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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

---

Winkel2.JPG

Hallo Axel

Gegeben sind die Koordinaten von 6 Punkten (siehe Anhang).
Punkt 2 ist der Ausgangspunkt. Aus den übrigen Koordinaten sollen der nächstgelegene Punkt auf beiden Seiten ermittelt werden.

Gruß

Karl

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

---

So viel ich weiß kann man mit VBA die Distanz bzw. Strecke zwischen 2 Punkten berechnen. Kleinste Strecke, kleinster Abstand.
Weiß aber leider die Funktion nicht.
Ist vielleicht ein Anstoß für Wissende.

Grüße
Ralph

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

---

Mir ist eventuell eine Lösung eingefallen.

Erstelle Acadlines mit den entsprechenden Punkten. Dann kannst Du über die Eigenschaft lenght den Abstand abfragen und untereinander vergleichen. Solange Du den Add Befehl für die Linie nicht machst, werden diese nicht mal in die Zeichnung eingtragen.

Hoffe das hilft Dir

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

---

Hallo Ralph

Ich kann die Distanz zwischen den Punkten bestimmen, aber ich weiß nicht auf welcher Seite sich der Punkt befindet.
Die zwei Punkte mit dem kleinsten Abstand müssen nicht unbedingt die richtigen sein.

Gruß

Karl

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

---

Zitat:

---

Original erstellt von Karl01:
Hallo Ralph

Ich kann die Distanz zwischen den Punkten bestimmen, aber ich weiß nicht auf welcher Seite sich der Punkt befindet.
Die zwei Punkte mit dem kleinsten Abstand müssen nicht unbedingt die richtigen sein.

Gruß

Karl

---

Und wenn Du den Winkel des Strahls noch miteinbeziehst??
Dann sollts doch gehen oder?

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

---

...die beiden nächstgelegenen Punkte über minimalen Abstand hast du also .. wenn 2 der Ausgangspunkt ist dann guck dir die Vorzeichen der Differenzen (x3-x2) und (x1-x2) sowie (y3-y2) und (y1-y2) an und vergleiche sie. Sind sie jeweils gleich liegen die Punkte wohl auf der gleichen Seite . ( die Punkte liegen auf was geradeähnlichem und so .. ) . Hilfts?

Nochwas .. ist der Abstand zwischen P1 und P3 kleiner als der größere Abstand von P1-P2 und P3-P2 so liegen P1 und P3 auch auf der "gleichen Seite" ..
------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

[Diese Nachricht wurde von CADmium am 05. Jan. 2005 editiert.]

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

---

Hallo Thomas

Danke für deinen Tip. Es funktioniert

Karl

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

---

Mag ja sein, dass ihr euch jetzt alle versteht - aber nun klärt mich auch noch auf, was unter "auf einer Seite eines Punkts zu verstehen ist".

Gruß, Axel Strube-Zettler

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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

---

Hi Axel,

anbei eine Skizze die auch dir das Dilemma mit links und rechts und oben und unten veranschaulichen soll... 

Skizze

Hoffentlich kann es die allgemeine Verwirrung lösen... 

[Ich weis, dass du nicht der Freund des links und rechts und oben und unten in Koordinatensystemen bist, da sie ja an und für sich deshalb eingeführt wurden, um eine allgemein gültige Bezeichnung herbeizuführen (sind wir auf der Erde oben oder unten - und wie sieht das ein Australier - ist der immer "down"; oder doch nur "down under" ?)]

Fragen über Fragen... 

------------------
Grüsse

Thomas

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

---

ja, das sehe ich nun mehr als "auf einer Seite eines Vektors", nämlich dem Vektor (P1 P2). Bloß: in der zweiten Skizze liegen alle Punkte auf der Geraden durch P1 und P2. Der Grenzfall als Beispielskizze?

Gruß, Axel Strube-Zettler

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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

---

Ich will mich mal nicht an dieser 2. Skizze aufhalten und halte mich einfach an die Skizze von Tunnelbauer:

1. Den Winkel p1 p2 ermitteln

a = Utility.AngleFromXAxis(p1, p2) (das ist auch die Antwort auf die ganz am Anfang gestellte Frage nach einer Funktion für die Winkelbestimmung!)

2. Eine Transformationsmatrix erzeugen:

Code:

---

cos(a)  sin(a)  0    0
-sin(a)  cos(a)  0    0
0      0        1    0
0      0        0    1

---

3. Alle anderen Punkte mit Object.TransformBy(Matrix) umrechnen

Die beiden mit der geringsten positiven bzw. negativen X-Koordinate sind die gesuchten.

Gruß, Axel

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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