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