Add3dPoly method example

  

Sub Add3DPolExample()
' This example creates a 3DPolyline line and adds it to the drawing using the
' Add3DPoly method.
    Dim my3DPoly As Acad3DPolyline
    Dim myPoints(0 To 8) As Double
    myPoints(0) = 0: myPoints(1) = 0: myPoints(2) = 0
    myPoints(3) = 7: myPoints(4) = 2: myPoints(5) = 3
    myPoints(6) = 9: myPoints(7) = 8: myPoints(8) = 7
    Set my3DPoly = ThisDrawing.ModelSpace.Add3DPoly(myPoints)
    ThisDrawing.Application.ZoomExtents
End Sub