Makro rysujące polilinię 3D przez podane punkty.

Public Sub polilinias()

Dim polilinias As Zwcad3DPolyline

Dim points(0 To 11) As Double

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

points(3) = 30: points(4) = 40: points(5) = 20

points(6) = 50: points(7) = 50: points(8) = 40

points(9) = 90: points(10) = 110: points(11) = 60

Set polilinias = ThisDocument.ModelSpace.Add3DPoly(points)

polilinias.Update

polilinias.Color = zcRed

ThisDocument.Regen

End Sub

---