---

Hallo

Ich zeichne und versetze eine Polylinie mit folgendem Code

Dim Punktliste() As Double
Dim plineObj  As AcadPolyline
Set plineObj = ThisDrawing.ModelSpace.AddPolyline(Punktliste)
plineObj.Offset 10

wie bekomme ich die Eckpunkte (Punkteliste) der versetzten Polyline?

Danke für Tipps 

------------------

gruss Oli

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

---

Die Hilfe sagt:

   
    ' Offset the polyline
    Dim offsetObj As Variant
    offsetObj = plineObj.offset(0.25)
   
Damit kannst Du dann auf die Koordinaten zugreifen 

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

---

Hallo KlaK

Danke für den Tipp

besteht auch die Möglichkeit das ich das Resultat als Typ AcadPolyline erhalte?

------------------

gruss Oli

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

---

Hi,

>> besteht auch die Möglichkeit das ich das Resultat als Typ AcadPolyline erhalte?

Nein, denn das Versetzen einer Polylinie erzeugt nicht zwangsweise EINE Polylinie als Ergebnis (es können mehrere Polylinien werden), und da kommen wir zu dem Ergebnistyp aus Klak's Beispiel zurück, es wird ein Array von Elementen geliefert, die kannst Du dann weiterverwenden.

- alfred -

------------------
www.hollaus.at

---

Hi Alfred

Danke für die Antwort

------------------

gruss Oli

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