---

Hallo Leute,

hat jemand eine idee wie ich die laufrichtung einer Polylinie ändern kann ohne sie neu zu erstellen ?
Hintergrund dieser aktion ist das ich mehrere macros habe welche in Laufrichtung links eine schraffur erstellen.

Bei 3d Polylinien habe ich vor einiger zeit was geschrieben wo ich die einzelnen stützpunkte der linie auslese und eine neue linie von der anderen seite her zeichne... ist jedoch meiner meinung nach nicht elegant gelöst.. funktioniert aber 

Vielen dank im voraus
henrym

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

---

..die Coords (getcoords)auslesen -> daraus die Stützpunkte ermitteln .. die zu den Stützpunkten gehörenden Bulges auslesen (getbulge).. die Dicken auslesen (getwidth)..
, dann die Stützpunktliste umkehren wirder Coords draus machen und zurückschreiben.. die Bulges und Dicken umkehren und um 1 versetzt zurückschreiben .. fertig.
Code kann ich dir leider keinen anbieten, da ich bloß ne Lisplösung hab.

------------------
      - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hi,

Hier Mal eine Lösung die ich im Internet gefunden habe.

Option Explicit

Public Sub testReversePline()
Dim oDoc As AcadDocument, oPline As AcadLWPolyline, vp As Variant
Set oDoc = ThisDrawing
oDoc.Utility.GetEntity oPline, vp, "Pick pline to reverse"

Dim oPline2 As AcadLWPolyline
Dim a As Integer
Dim oBLk As AcadBlock
Set oBLk = oDoc.ObjectIdToObject(oPline.OwnerID)

Dim points
points = oPline.Coordinates

Dim Points2() As Double
ReDim Preserve Points2(0 To UBound(points)) As Double

'create second array of points, last point from the
'selected line first etc.
For a = LBound(points) To UBound(points) Step 2
Points2(a) = points(UBound(points) - a - 1)
Points2(a + 1) = points(UBound(points) - a)
Next

'create new polyline in reversed direction
Set oPline2 = oBLk.AddLightWeightPolyline(Points2)
Dim c As Integer

'create reversed bulges
c = (UBound(points) - 3) / 2
For a = 0 To c
oPline2.SetBulge (c - a), -oPline.GetBulge(a)
Next

'delete original
oPline.Delete

Set oPline2 = Nothing

End Sub

Gruß, Carsten

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

---

vielen dank leute, hab meine lösung gefunden und werde mich an die arbeit machen 

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