---

Hallo an Alle,

hat irgend jemand schon mal Polylinien mit Kreisbögen erstellt?

Ich bin bisher bei:

Sub Example_AddPolyline()
    Dim plineObj As AcadPolyline
    Dim points(0 To 14) As Double
    points(0) = 1: points(1) = 1: points(2) = 0
    points(3) = 1: points(4) = 2: points(5) = 0
    points(6) = 2: points(7) = 2: points(8) = 0
    points(9) = 3: points(10) = 2: points(11) = 0
    points(12) = 4: points(13) = 4: points(14) = 0
     
    Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points)
End Sub

Aber das erzeugt ja nur gerade Liniensegmente. Kann ich auch Bögen mit erstellen?

Danke, Theo

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

---

google mal nach VBA und BULGE ... BSPund Bsp2

------------------
      - 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

---

Danke, das hat mir weiter geholfen.

Gruß, Theo

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