编辑样条曲线

编辑多段线

编辑对象

编辑图案填充

 

ActiveX/VBA 开发人员手册 > 创建和编辑 AutoCAD 图元 > 编辑对象 > 

编辑样条曲线

使用以下可编辑特性来更改样条曲线：

ControlPoints

指定样条曲线的控制点。

EndTangent

指定样条曲线的端点切向作为方向矢量。

FitPoints

指定样条曲线的所有拟合点。

FitTolerance

使用新的公差值将样条曲线重新拟合至现有点。

Knots

指定样条曲线的节点矢量。

StartTangent

指定样条曲线的起点切向。

此外，用户还可以使用以下方法编辑样条曲线：

AddFitPoint

在给定的索引处向样条曲线添加一个拟合点。

DeleteFitPoint

在给定的索引处删除样条曲线的拟合点。

ElevateOrder

将样条曲线的阶数提高到给定的阶数。

GetFitPoint

在给定索引处获取样条曲线的拟合点。（仅获取一个拟合点。要查询样条曲线的所有拟合点，请使用 FitPoints 特性。）

Reverse

反转样条曲线的方向。

SetControlPoint

在给定的索引处设置样条曲线的控制点。

SetFitPoint

在给定的索引处设置样条曲线的拟合点。（仅设置一个拟合点。要更改样条曲线的所有拟合点，请使用 FitPoints 特性。）

SetWeight

在给定的索引处设置控制点的权值。

使用以下只读特性来查询样条曲线：

Area

获取样条曲线包围的面积。

Closed

指示此样条曲线为开放还是闭合。

阶数

获取样条曲线的多项式表示的阶数。

IsPeriodic

指定给定的样条曲线是否是周期性的。

IsPlanar

指定给定的样条曲线是否是平面的。

IsRational

指定给定的样条曲线是否是有理的。

NumberOfControlPoints

获取样条曲线的控制点数目。

NumberOfFitPoints

获取样条曲线的拟合点数目。

有关编辑样条曲线的详细信息，请参见《用户手册》中的“修改样条曲线”。

Sub Ch4_ChangeSplineControlPoint()

    ' 创建样条曲线

    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
      
      
    ' 更改第一个拟合点的坐标
      
    Dim controlPoint(0 To 2) As Double
      
    controlPoint(0) = 0
      
    controlPoint(1) = 3
      
    controlPoint(2) = 0
      
    splineObj.SetControlPoint 0, controlPoint
      
    splineObj.Update
      
End Sub