Puede crear una línea directriz desde cualquier punto o característica de un dibujo y controlar los parámetros que determinan su aspecto durante el proceso de creación. Una línea directriz puede consistir en una serie de segmentos de línea recta o en una suave curva spline. El color de la directriz se controla mediante el color de la línea de cota actual. La escala de la directriz se controla con la escala general de cotas que tenga definida el estilo de cota activo. El tipo y tamaño de los extremos de cotas (flechas), si se designa alguno, se controla mediante el primer extremo que se haya definido en el estilo activo.
Por lo general, la directriz y la anotación se conectan mediante una pequeña línea conocida como línea de conexión. Las líneas de conexión aparecen con cuadros de control de características y MText cuando el último segmento de la directriz tiene un ángulo mayor de 15 grados desde la horizontal. La longitud de la línea de conexión es igual a la de una sola flecha. Cuando la directriz no tiene anotaciones, tampoco cuenta con línea de conexión.
Para crear una línea directriz, utilice el método AddLeader. Este método requiere tres valores de entrada: la matriz de coordenadas que especifican dónde crear la directriz, el objeto de anotación (o NULL si la línea directriz no tiene anotación, y el tipo de directriz que se va a crear. El tipo determina si la directriz será una línea recta o una curva spline suave. También determina si tendrá flechas o no. Use una de las constantes siguientes para especificar el tipo de directriz: acLineNoArrow, acLineWithArrow, acSplineNoArrow, o acSplineWithArrow. Estas constantes se excluyen mutuamente.
Creación de una línea directriz
Este ejemplo crea una línea directriz en espacio modelo. La directriz no tiene asociadas anotaciones.
Sub Ch5_CreateLeader()
Dim leaderObj As AcadLeader
Dim points(0 To 9) As Double
Dim leaderType As Integer
Dim annotationObject As AcadObject
points(0) = 0: points(1) = 0: points(2) = 0
points(3) = 4: points(4) = 4: points(5) = 0
points(6) = 4: points(7) = 5: points(8) = 0
leaderType = acLineWithArrow
Set annotationObject = Nothing
' Create the leader object in model space
Set leaderObj = ThisDrawing.ModelSpace. _
AddLeader(points, annotationObject, leaderType)
ZoomAll
End Sub