Creación de rayos
Trazado de líneas auxiliares
Cálculo de puntos y valores
Una vez creado el rayo, puede utilizar la propiedad BasePoint para consultar su primer punto. El segundo punto utilizado en la creación del rayo no se almacena con el objeto. En su lugar, utilice la propiedad DirectionVector para obtener el vector de dirección del rayo.
Adición, consulta y edición de un objeto Ray
El código del ejemplo siguiente crea un objeto Ray utilizando los puntos (5, 0, 0) y (1, 1, 0). A continuación, consulta el punto base y el vector de dirección activos y presenta los resultados en un cuadro de mensajes. Por último, cambia el vector de dirección y consulta y muestra en pantalla el nuevo vector y el punto de base.
Sub Ch3_EditRay()
Dim rayObj As AcadRay
Dim basePoint(0 To 2) As Double
Dim secondPoint(0 To 2) As Double
' Define the ray
basePoint(0) = 3#: basePoint(1) = 3#: basePoint(2) = 0#
secondPoint(0) = 4#: secondPoint(1) = 4#: secondPoint(2) = 0#
' Creates a Ray object in model space
Set rayObj = ThisDrawing.ModelSpace.AddRay _
(basePoint, secondPoint)
ThisDrawing.Application.ZoomAll
' Find the current status of the Ray
MsgBox "The base point of the ray is: " & _
rayObj.basePoint(0) & ", " & _
rayObj.basePoint(1) & ", " & _
rayObj.basePoint(2) & vbCrLf & _
"The directional vector for the ray is: " & _
rayObj.DirectionVector(0) & ", " & _
rayObj.DirectionVector(1) & ", " & _
rayObj.DirectionVector(2), , "Edit Ray"
' Change the directional vector for the ray
Dim newVector(0 To 2) As Double
newVector(0) = -1
newVector(1) = 1
newVector(2) = 0
rayObj.DirectionVector = newVector
ThisDrawing.Regen False
MsgBox "The base point of the ray is: " & _
rayObj.basePoint(0) & ", " & _
rayObj.basePoint(1) & ", " & _
rayObj.basePoint(2) & vbCrLf & _
"The directional vector for the ray is: " & _
rayObj.DirectionVector(0) & ", " & _
rayObj.DirectionVector(1) & ", " & _
rayObj.DirectionVector(2), , "Edit Ray"
End Sub