---

Hallo Forum,

ich versuche gerade, die Koordinaten einer versetzten Polyline zu bekommen. Wenn ich eine Polyline versetze, gibt mir VBA ein Datenfeld mit Objekten als Variant zurück. Ich benötige daraus die Koordinaten, die ich am besten in einer Matrix speichern möchte. Weiß jemand wie man diese aus dem Datenfeld auslesen kann?

Hier der kleine Teil des unvollständigen Programms:

' draw polylines
Set BrisePL = ThisDrawing.ModelSpace.AddLightWeightPolyline(PtsSingleArch)

' offset polylines
        Dim offsetBrise As Variant
        offsetBrisePL = BrisePL.Offset(0.4)

' get coordinates of offsetBrisePL ???
        'xPoint(i) = ???
        'yPoint(i) = ???
        '...

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

---

Code:

---

' draw polylines
Set BrisePL = ThisDrawing.ModelSpace.AddLightWeightPolyline(PtsSingleArch)

' offset polylines
        Dim offsetBrise As Variant
        offsetBrisePL = BrisePL.Offset(0.4)

' get coordinates of offsetBrisePL ???
    If TypeOf offsetBrisePL(0) Is AcadLWPolyline Then
        Dim retCoord As Variant
        retCoord = offsetBrisePL(0).Coordinates
    End If

---

------------------
Roland

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

---

Wahnsinn Roland!!!

vielen Dank für die erneute, sehr kompetente Hilfe!
Die Lösung funktioniert und schaut wieder mal sehr
logisch aus, wenn man sie sieht. Danke, danke.

Shaker

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

---

Hallo,

hat auch mir sehr geholfen! Hier die 10 Unities!! 

------------------
Grüse Benny

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