---

Hallo lieber Leser,
...
Dim xlinie1 As Object
Set xlinie1 = linie1
xlinie1.GetOrigin pkt()
MsgBox ("x=" & pkt(0) & Chr(13) & "y=" & pkt(1) & Chr(13) & "z=" & pkt(2))
...

Dieser Text liefert zwar einen Punkt auf einer Geraden (hier xlinie1),
aber es ist kein Endpunkt.
Daten mit GetDirection gelesen stimmen. Wie komme ich an die Endpunkte?
Vielleicht hat jemand für mich einen Tip.
Besten Dank
Str

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

---

mit xlinie1.GetOrigin pkt() liest Du die Koordinaten des Ursprungspunktes der Linie, also den Anfangspunkt.
Dann kannst Du mit
xlinie1.GetDirection pkt()
den Richtungsvektor der Linie als Feldvariable ermitteln.
Danach ist es möglich durch Vektoraddition den Endpunkt zu ermitteln.
mfg
l_c

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