Private Sub InfiniteLineExample()
' This example creates an infinite line and adds it to the drawing using the
' AddInfiniteLine method.
Dim myDoc As IntelliCAD.Document
Dim myInfline As IntelliCAD.InfiniteLine
Dim Pt1 As IntelliCAD.Point
Dim Pt2 As IntelliCAD.Point
Set myDoc = ActiveDocument
Set Pt1 = Library.CreatePoint(2, 2)
Set Pt2 = Library.CreatePoint(1, 3)
Set myInfline = myDoc.ModelSpace.AddInfiniteLine(Pt1, Pt2)
myInfline.Update
ThisDocument.ActiveViewport.ZoomExtents
End Sub