CAD开发者社区 › 首页 ›AutoCAD二次开发指南› ActiveX 开发指南› ActiveX：开发人员指南› 创建和编辑 AutoCAD 实体› 关于修改对象（VBA/ActiveX） › 查看内容

ActiveX 开发指南

关于编辑样条曲线（VBA/ActiveX）

2023-1-5 00:45| 发布者: admin| 查看: 733| 评论: 0|来自: AutoCAD

摘要: 可以使用对象的属性和方法编辑现有样条对象。

可以使用对象的属性和方法编辑现有样条对象。

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

控制点: 指定样条曲线的控制点。
端切线: 将样条的端切指定为方向矢量。
健身积分: 指定样条曲线的所有拟合点。
适合公差: 使用新的公差值将样条重新拟合到现有点。
结: 指定样条曲线的节点矢量。
开始切线: 指定样条的起始切线。

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

添加健身点: 将单个拟合点添加到给定索引处的样条曲线。
删除健身点: 删除样条曲线在给定索引处的拟合点。
提升顺序: 将样条的顺序提升到给定的顺序。
GetFitPoint: 获取样条在给定索引处的拟合点。（仅获取一个适合点。若要查询样条曲线的所有拟合点，请使用属性。FitPoints
反向: 反转样条曲线的方向。
设置控制点: 设置样条在给定索引处的控制点。
SetFitPoint: 设置样条在给定索引处的拟合点。（仅设置一个适合点。若要更改样条曲线的所有拟合点，请使用该属性。FitPoints
设置重量: 设置给定索引处控制点的权重。

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

面积: 获取样条曲线的封闭区域。
闭: 指示样条是打开还是关闭。
度: 获取样条的多项式表示的度数。
是周期性的: 指定给定样条曲线是否为周期性样条曲线。
伊斯普拉纳尔: 指定给定样条曲线是否为平面。
是理性的: 指定给定样条曲线是否为有理数。
控制点数: 获取样条的控制点数。
健身积分数量: 获取样条曲线的拟合点数。

更改样条上的控制点

本示例创建一个样条曲线，然后更改该样条的第一个控制点。

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