Add3dPoly method example

Private Sub 3DPolyline_Example()

     Dim myDoc As IntelliCAD.Document

     Dim myPline3D As Polyline3D

     Dim myPoints As points

     Dim pt As Point

     Set myDoc = ActiveDocument

     Set myPoints = Library.CreatePoints

     Set pt = Library.CreatePoint(7, 2, 3)

     myPoints.Add

     myPoints(myPoints.Count).x = pt.x

     myPoints(myPoints.Count).y = pt.y

     myPoints(myPoints.Count).z = pt.z

     Set pt = Library.CreatePoint(9, 8, 7)

     myPoints.Add

     myPoints(myPoints.Count).x = pt.x

     myPoints(myPoints.Count).y = pt.y

     myPoints(myPoints.Count).z = pt.z

     Set myPline3D = ThisDocument.ModelSpace.Add3DPolyline(myPoints)

     myPline3D.Update

     ThisDocument.ActiveViewport.ZoomExtents

End Sub