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

ActiveX 开发指南

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

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

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

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

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

控制点: 指定样条的控制点。
端切: 将样条曲线的端切指定为方向向量。
健身积分: 指定样条曲线的所有拟合点。
FitTolerance（健身耐受性）: 使用新的公差值将样条调整到现有点。
结: 指定样条曲线的结向量。
StartTangent （开始切线）: 指定样条曲线的起始切线。

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

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

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

面积: 获取样条曲线的封闭区域。
闭: 指示样条曲线是打开的还是闭合的。
度: 获取样条的多项式表示的度数。
IsPeriodic: 指定给定样条是否为周期性样条曲线。
是平面的: 指定给定样条是否为平面样条。
IsRational的: 指定给定样条是否为有理数。
NumberOfControlPoints（控制点数）: 获取样条的控制点数。
健身点数: 获取样条曲线的拟合点数。

更改样条上的控制点

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

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