[求助]基本建模失败？

sharksun

我在调用生成样条函数的程序： Call AddSpline(fitPoints, StartTan, EndTan)
（addspline是一个addspline的基函数）
提示：AutoCAD中发生基本建模失败。错误行为：
'创建样条曲线,vecSt:起点的切向，vecEn:终点的切向
Public Function AddSpline(ByRef ptArr() As Double, ByVal vecSt As Variant, ByVal vecEn As Variant) As AcadSpline

'错误处理：判断数组的有效性
If (UBound(ptArr) + 1) Mod 3 <> 0 Then
MsgBox "数组参数无法创建样条曲线！"
Exit Function
End If

Set AddSpline = AcadApp.ActiveDocument.ModelSpace.AddSpline(ptArr, vecSt, vecEn)
End Function
我查看了一下参数的有效性，确实没有问题。另外，这个函数在前面已经调用了多次，没有发生任何错误，搞不明白是怎么回事。
请赐教。十分感谢。

awei

这个问题版主也不能回答吗

jieli

{ 我在调用生成样条函数的程序：

Call AddSpline(fitPoints, StartTan, EndTan)
（addspline是一个addspline的基函数）
提示：autocad中发生基本建模失败。错误行为：
'创建样条曲线,vecSt:起点的切向，vecEn:终点的切向
Public Function AddSpline(ByRef ptArr() As Double, ByVal vecSt As Variant, ByVal vecEn As Variant) As AcadSpline
   
    '错误处理：判断数组的有效性
    If (UBound(ptArr) + 1) Mod 3 <> 0 Then
        MsgBox "数组参数无法创建样条曲线！"
        Exit Function
    End If
   
    Set AddSpline = AcadApp.ActiveDocument.ModelSpace.AddSpline(ptArr, vecSt, vecEn)
End Function
我查看了一下参数的有效性，确实没有问题。另外，这个函数在前面已经调用了多次，没有发生任何错误，搞不明白是怎么回事。
请赐教。十分感谢。}

你是否已经找到问题的所在，我也碰到这样的问题，我是调用Excel表格里的坐标数据来绘制样条曲线的，数组有效性也是没有问题，可就是建模失败，把函数改为AddPolyline就没有问题，为什么使用样条曲线就不行了呢，如果是用手动定义数组元素也能进行样条绘制，我检查过Excel表格里的坐标数据的调用过程，也是没有问题的。