Modificación de splines

Edición de polilíneas

Modificación de objetos

Edición de sombreados

 

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

Modificación de splines

Utilice las siguientes propiedades modificables para cambiar curvas spline:

ControlPoints

Especifica los puntos de apoyo de la spline.

EndTangent

Establece la tangente final de la spline como vector de dirección.

FitPoints

Especifica todos los puntos de ajuste de la spline.

FitTolerance

Vuelve a ajustar la curva Spline a los puntos existentes con los valores de tolerancia nuevos.

Knots

Especifica el vector nodal de la spline.

StartTangent

Especifica la tangente inicial de la spline.

También puede utilizar estos métodos para editar splines:

AddFitPoint

Agrega un punto de ajuste a la spline en el índice indicado.

DeleteFitPoint

Suprime el punto de ajuste de una spline en el índice indicado.

ElevateOrder

Eleva el orden de la spline hasta el orden indicado.

GetFitPoint

Define el punto de ajuste en el índice indicado (sólo un punto de ajuste. (Sólo un punto de ajuste. Para consultar todos los puntos de ajuste de la spline, utilice la propiedad FitPoints).

Invertir

Invierte la dirección de la spline.

SetControlPoint

Define el punto de apoyo de la spline en el índice indicado.

SetFitPoint

Define el punto de ajuste en el índice indicado. (Sólo un punto de ajuste. Para consultar todos los puntos de ajuste de la spline, utilice la propiedad FitPoints).

SetWeight

Define el grosor del punto de apoyo en un índice dado.

Utilice las siguientes propiedades de sólo lectura para consultar splines:

Area

Obtiene el área cerrada de una spline.

Closed

Indica si la spline está abierta o cerrada.

Degree

Obtiene el grado de la representación polinómica de la spline.

IsPeriodic

Especifica si la spline dada es periódica.

IsPlanar

Especifica si la spline dada es plana.

IsRational

Especifica si la spline dada es racional.

NumberOfControlPoints

Obtiene el número de puntos de apoyo de la spline.

NumberOfFitPoints

Obtiene el número de puntos de ajuste de la spline.

Para obtener más información acerca de la modificación de curvas spline, véase “Modificación de splines” en el Manual del usuario.

Sub Ch4_ChangeSplineControlPoint()

    ' Create the spline

    Dim splineObj As AcadSpline

    Dim startTan(0 To 2) As Double

    Dim endTan(0 To 2) As Double

    Dim fitPoints(0 To 8) As Double

      
    startTan(0) = 0.5: startTan(1) = 0.5: startTan(2) = 0
      
    endTan(0) = 0.5: endTan(1) = 0.5: endTan(2) = 0
      
    fitPoints(0) = 1: fitPoints(1) = 1: fitPoints(2) = 0
      
    fitPoints(3) = 5: fitPoints(4) = 5: fitPoints(5) = 0
      
    fitPoints(6) = 10: fitPoints(7) = 0: fitPoints(8) = 0
      
    Set splineObj = ThisDrawing.ModelSpace. _
      
                   AddSpline(fitPoints, startTan, endTan)
      
    splineObj.Update
      
      
    ' Change the coordinate of the first fit point
      
    Dim controlPoint(0 To 2) As Double
      
    controlPoint(0) = 0
      
    controlPoint(1) = 3
      
    controlPoint(2) = 0
      
    splineObj.SetControlPoint 0, controlPoint
      
    splineObj.Update
      
End Sub