AddRay Method

AddRegion Method →

Collapse All Expand All

Description

Adds a ray passing through two points.

Visual Basic
Public Function AddRay( _ ByVal Point1 As Point, _ ByVal Point2 As Point _ ) As Ray

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.Application.ZoomExtents

End Sub