Edición de polilíneas

Descomposición de objetos

Modificación de objetos

Modificación de splines

 

Manual del desarrollador de ActiveX y VBA > Creación y edición de entidades de AutoCAD > Modificación de objetos > 

Edición de polilíneas

Las polilíneas 2D y 3D, los rectángulos, los polígonos y las mallas poligonales 3D son variantes de polilíneas y se editan de la misma manera que ellas.

AutoCAD reconoce tanto las polilíneas ajustadas como las polilíneas ajustadas en forma de splines. Una polilínea ajustada en forma de spline utiliza un ajuste de curva, similar a una B-spline. Existen dos tipos de polilíneas ajustadas en forma de spline: cuadráticas y cúbicas. Las dos polilíneas están controladas por la variable de sistema SPLINETYPE. Una polilínea ajustada utiliza curvas estándar para el ajuste de curvas y cualquier dirección tangente definida en un vértice determinado.

Para modificar una polilínea, utilice las propiedades y los métodos de los objetos LightweightPolyline o Polyline. Para abrir o cerrar una polilínea, cambiar las coordenadas de un vértice de polilínea o agregar un vértice, utilice los siguientes métodos y propiedades:

Closed (propiedad)

Abre o cierra la polilínea.

Coordinates (propiedad)

Especifica las coordenadas de cada vértice de la polilínea.

AddVertex (método)

Añade un vértice a una polilínea optimizada.

Utilice los siguientes métodos para actualizar la curvatura o la anchura de una polilínea:

SetBulge

Define la curvatura de una polilínea, dado el índice de segmentos.

SetWidth

Define las anchuras inicial y final de una polilínea, dado el índice de segmentos.

Para obtener más información acerca de la modificación de polilíneas, véase “Modificación o unión de polilíneas” en el Manual del usuario.

Sub Ch4_EditPolyline()

    Dim plineObj As AcadLWPolyline

    Dim points(0 To 9) As Double

      
    ' Define the 2D polyline points
      
    points(0) = 1: points(1) = 1
      
    points(2) = 1: points(3) = 2
      
    points(4) = 2: points(5) = 2
      
    points(6) = 3: points(7) = 2
      
    points(8) = 4: points(9) = 4
      
      
    ' Create a light weight Polyline object
      
    Set plineObj = ThisDrawing.ModelSpace. _
      
                   AddLightWeightPolyline(points)
      
      
    ' Add a bulge to segment 3
      
    plineObj.SetBulge 3, -0.5
      
      
    ' Define the new vertex
      
    Dim newVertex(0 To 1) As Double
      
    newVertex(0) = 4: newVertex(1) = 1
      
      
    ' Add the vertex to the polyline
      
    plineObj.AddVertex 5, newVertex
      
      
    ' Set the width of the new segment
      
    plineObj.SetWidth 4, 0.1, 0.5
      
      
    ' Close the polyline
      
    plineObj.Closed = True
      
    plineObj.Update
      
End Sub