AddInfiniteLine method example

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