AddRay method example

Private Sub AddRayExample()

     ' This example creates a ray and adds it to the drawing using the AddRay

     ' method.

     Dim myDoc As IntelliCAD.Document

     Dim myRay As IntelliCAD.Ray

     Dim myStartPt As IntelliCAD.Point

     Dim myEndPt As IntelliCAD.Point

     Set myDoc = ActiveDocument

     Set myStartPt = Library.CreatePoint(3, 3)

     Set myEndPt = Library.CreatePoint(7, 4)

     Set myRay = myDoc.ModelSpace.AddRay(myStartPt, myEndPt)

     myRay.Update

     ThisDocument.ActiveViewport.ZoomExtents

End Sub