Se puede cambiar el ángulo de los arcos y la longitud de las líneas abiertas, arcos, polilíneas abiertas, arcos elípticos y splines abiertas. Se obtiene un resultado muy parecido al del alargamiento y recorte de objetos.
Los objetos se pueden alargar y recortar si se modifican sus propiedades. Por ejemplo, para alargar una línea, cambie las coordenadas de las propiedades StartPoint o EndPoint. Para cambiar el ángulo de un arco, modifique las propiedades StartAngle o EndAngle del arco. Después de modificar propiedades de un objeto, debe utilizarse el método Update para ver los cambios en el dibujo.
Para obtener más información acerca del alargamiento y recorte de objetos, véase “Ajuste del tamaño o la forma de los objetos” en el Manual del usuario.
En este ejemplo se crea una línea y se cambia su punto final, con lo que aumenta su longitud.
Sub Ch4_LengthenLine()
' Define and create the line
Dim lineObj As AcadLine
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double
startPoint(0) = 0
startPoint(1) = 0
startPoint(2) = 0
endPoint(0) = 1
endPoint(1) = 1
endPoint(2) = 1
Set lineObj = ThisDrawing.ModelSpace. _
AddLine(startPoint, endPoint)
lineObj.Update
' Lengthen the line by changing the
' endpoint to 4, 4, 4
endPoint(0) = 4
endPoint(1) = 4
endPoint(2) = 4
lineObj.endPoint = endPoint
lineObj.Update
End Sub