Modificación de splines

AutoCAD ActiveX

 
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.

Modificación de un punto de apoyo en una curva spline

Este ejemplo crea una curva spline y cambia su primer punto de apoyo.

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