---

Hallo lieber Leser,
dieser VBA-Text liefert zwar ein Ergebnis, aber nicht den Endpunkt.
...
Dim xlinie1 As Object
Set xlinie1 = linie1
xlinie1.GetOrigin pkt()
MsgBox ("x=" & pkt(0) & Chr(13) & "y=" & pkt(1) & Chr(13) & "z=" & pkt(2))
...
Hat jemand eine Idee?
Danke
Str

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

---

Du bekommst nur dann einen Endpunkt, wenn die Linie über LinePtPt erstellt wurde.
Ansonsten ist die Eigenschaft "Endpunkt" nicht direkt abrufbar.

Grüße
    Stoffel

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

---

Danke Stoffel für den Hinweis, es erspart mir weiteres Testen,
10 Punkte.
Weiterer Tip für andere Leser:
Da ich die Gerade in der Skizzierumgebung verwende, habe ich
der Linie dort die Eigenschaft Startpoint bzw. Endpoint zugewiesen.
also:
Set Punkt1 = Factory2D.CreatePoint(100,100)
Set Linie1 = Factory2D.CreateLine(0,0,100,100)
Linie1.Endpoint=Punkt1
usw.
Str

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