CAD VBA创建样条曲线

以下代码使用 CreateTypedArray 转换三个数组：样条曲线拟合点的坐标及其起点和端点切向。然后将变量传递给 AddSpline 方法，创建样条曲线。

Sub 创建样条曲线()

Dim splineObj As AcadSpline

Dim startTan As Variant

Dim endTan As Variant

Dim fitPoints As Variant

Dim utilObj As Object ' 后期绑定 Utility 对象

Set utilObj = ThisDrawing.Utility

' 定义 Spline 对象

utilObj.CreateTypedArray startTan, vbDouble, 0.5, 0.5, 0

utilObj.CreateTypedArray endTan, vbDouble, 0.5, 0.5, 0

utilObj.CreateTypedArray fitPoints, vbDouble, 0, 0, 0, 5, 5, 0, 10, 0, 0

Set splineObj = ThisDrawing.ModelSpace.AddSpline(fitPoints, startTan, endTan)

' 放大新创建的样条曲线

ZoomAll

End Sub