Dim StartTan(0 To 2) As Double
Dim EndTan(0 To 2) As Double

StartTan(0) = 1
StartTan(1) = 2
StartTan(2) = 3

EndTan(0) = 47
EndTan(1) = 58
EndTan(2) = 69

Dim SzXiePaoDianYiwei(302) As Single
Dim I As Integer
Dim K As Integer
For I = 0 To 302
    SzXiePaoDianYiwei(I) = 10 * I + 1
Next
Dim Splineboj As AcadSpline
Set Splineboj = Acadapp.ActiveDocument.ModelSpace.AddSpline(SzXiePaoDianYiwei, StartTan, EndTan)

感谢您的及时回复，我找到原因了是引用那里CAD的版本选择错了。