用户可以使用 AutoCAD 创建各种曲线对象，包括样条曲线、圆、圆弧和椭圆。所有的曲线都在当前 WCS 的 XY 平面上创建。
本例使用三点 (0,0,0)、(5,5,0) 和 (10,0,0) 在模型空间中创建样条曲线。该样条曲线的起点切向和端点切向为 (0.5,0.5,0.0)。
Sub Ch4_CreateSpline()
' 本例在模型空间中创建样条曲线对象。
' 声明所需的变量
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)
ZoomAll
End Sub
有关样条曲线的详细信息，请参见 AutoCAD《ActiveX and VBA Reference》中的 Spline 对象和 AddSpline 方法的文档。