Trazado de líneas auxiliares
Trazado de líneas auxiliares
Consulta de líneas auxiliares
La líneas auxiliares se pueden colocar en cualquier lugar del espacio 3D y se extienden hasta el infinito en ambas direcciones. Para crear una línea auxiliar, utilice el método AddXLine Con este método se utiliza la técnica de dos puntos para precisar la línea: el usuario introduce o designa dos puntos para definir la orientación. El primer punto, el punto raíz, se considerará como el punto medio de la línea auxiliar.
El siguiente código del ejemplo crea un objeto XLine mediante los dos puntos (5, 0, 0) y (1, 1, 0).
Sub Ch3_AddXLine()
Dim xlineObj As AcadXline
Dim basePoint(0 To 2) As Double
Dim directionVec(0 To 2) As Double
' Define the xline
basePoint(0) = 2#: basePoint(1) = 2#: basePoint(2) = 0#
directionVec(0) = 1#: directionVec(1) = 1#: directionVec(2) = 0#
' Create the xline in model space
Set xlineObj = ThisDrawing.ModelSpace.AddXLine _
(basePoint, directionVec)
ThisDrawing.Application.ZoomAll
End Sub