Makro rysujące polilinie 2D przechodzącą przez podane punkty.

Public Sub polilinia()

Dim polilinia As ZwcadPolyline

Dim points(0 To 11) As Double

points(0) = 0: points(1) = 0: points(2) = 0

points(3) = 40: points(4) = 40: points(5) = 0

points(6) = 80: points(7) = 40: points(8) = 0

points(9) = 80: points(10) = 120: points(11) = 0

Set polilinia = ThisDocument.ModelSpace.AddPolyline(points)

polilinia.Update

polilinia.Color = zcGreen

End Sub

dane punktów (0,0,0),(40,40,0),(80,40,0),(80,120,0) przechodzi przez nie zielona polilinia, w wierszu kodu points(0),points(1),points(2) są zawarte współrzędne x,y,z pierwszego punktu.

---