[求助]基本建模失败？

sharksun · 发表于 2004-6-18 11:25:00

我在调用生成样条函数的程序：
Call AddSpline(fitPoints, StartTan, EndTan)
（addspline是一个addspline的基函数）
提示：中发生基本建模失败。错误行为：
'创建样条曲线,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

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

awei · 发表于 2005-8-8 16:08:00

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

jieli · 发表于 2007-5-30 10:47:00

{ 我在调用生成样条函数的程序：
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表格里的坐标数据的调用过程，也是没有问题的。

[求助]基本建模失败？

发表回复

精选推荐