---

Hallo zusammen!

Ich habe schon gesucht, aber nichts passendes gefunden.

Wie zeichne ich eine Polyline mit VBA anhand von gepickten Punkten
(evtl. GetPoint) am Bildschirm.
Die VertListe müßte ja die Punkte hochzählen?

Code:

---

startPoint = ThisDrawing.Utility.GetPoint(, "Startpunkt wählen")

---

... und dann?

Könnte mir da bitte kurz jemand auf die Sprünge helfen.

Vielen Dank.

------------------
Gruß

Dirk

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

---

Hi,

da gibt's mal ein paar Varianten, insbesondere jedoch die Abhängigkeit, ob Du 2D-Polylinie, LW-Polylinie oder 3D-Polylinie zeichnen willst.
Und für alle diese Polylinien stehen jeweils in der Hilfe Beispiele zur Verfügung. Mehr könnte ich zur Erstellung von xx-Polylinien nicht hier als Code zur Verfügung stellen.

- alfred -

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

---

Hi Dirk,

Ich weiss zwar nicht was du vor hast (vielleicht erzählst du uns das ja noch), aber hier mal ein Beispiel, wie man es machen könnte:

Code:

---

Option Explicit
Public Sub PL_Points()
Dim Punkt As Variant
Dim Punktliste() As Double
Dim i As Long
On Error Resume Next '''Bei Fehler solls weiter laufen, Auswertung in der Schleife
For i = 0 To 999 Step 3
Punkt = ThisDrawing.Utility.GetPoint(, "aaa")
If Err.Number = -2145320928 Then '''Enter, RMT oder Leertaste gedrückt
On Error GoTo 0 '''Bei Fehler solls eine Meldung geben
GoTo Weiter_Gehts '''Schleife verlassen und PL zeichnen
End If
If Err.Number = -2147352567 Then  '''Abbruch durch Escape
Exit Sub
End If
ReDim Preserve Punktliste(i + 2)
Punktliste(i) = Punkt(0)
Punktliste(i + 1) = Punkt(1)
Punktliste(i + 2) = Punkt(2)
Next i

Weiter_Gehts:
If UBound(Punktliste) > 5 Then
Dim plineObj As AcadPolyline
Set plineObj = ThisDrawing.ModelSpace.AddPolyline(Punktliste)
Else
MsgBox ("Es wurde nicht genug Punkte gwählt!")
End If
End Sub

---

Ist jetzt aber nur auf die schnelle gemacht, also nicht über den Programmierstil schimpfen.

Gruß, Carsten

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

---

Hi Carsten!

Vielen Dank für die Info.
Werd es mal testen.

------------------
Gruß

Dirk

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