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