[求助]基本建模失败?
我在调用生成样条函数的程序:Call AddSpline(fitPoints, StartTan, EndTan)<BR>(addspline是一个addspline的基函数)<BR>提示:autocad中发生基本建模失败。错误行为:<BR>'创建样条曲线,vecSt:起点的切向,vecEn:终点的切向<BR>Public Function AddSpline(ByRef ptArr() As Double, ByVal vecSt As Variant, ByVal vecEn As Variant) As AcadSpline<BR> <BR> '错误处理:判断数组的有效性<BR> If (UBound(ptArr) + 1) Mod 3 <> 0 Then<BR> MsgBox "数组参数无法创建样条曲线!"<BR> Exit Function<BR> End If<BR> <BR> <U><b> Set AddSpline = AcadApp.ActiveDocument.ModelSpace.AddSpline(ptArr, vecSt, vecEn)<BR></b></U>End Function<BR>
我查看了一下参数的有效性,确实没有问题。另外,这个函数在前面已经调用了多次,没有发生任何错误,搞不明白是怎么回事。<BR>
请赐教。十分感谢。 这个问题版主也不能回答吗 <div style="WIDTH: 728px; HEIGHT: 90px;"><script type="text/javascript"></script><script src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type="text/javascript"></script><iframe name="google_ads_frame" marginwidth="0" marginheight="0" src="http://pagead2.googlesyndication.com/pagead/ads?client=ca-pub-7471407183047897&dt=1180492559937&lmt=1180492559&prev_fmts=728x90_as%2C120x90_0ads_al_s&format=728x90_as&output=html&correlator=1180492558750&channel=9653521252&pv_ch=9653521252%2B&url=http%3A%2F%2Fwww.mccad.net%2FBBS%2Fdispbbs.asp%3FboardID%3D4%26ID%3D22265%26page%3D94&color_bg=FFFFFF&color_text=000000&color_link=0000FF&color_url=008000&color_border=C3D9FF&ad_type=text_image&ref=http%3A%2F%2Fwww.baidu.com%2Fs%3Fwd%3DAutoCAD%2B%25D6%25D0%25B7%25A2%25C9%25FA%25BB%25F9%25B1%25BE%25BD%25A8%25C4%25A3%25CA%25A7%25B0%25DC%25A1%25A3%26cl%3D3&cc=100&flash=9&u_h=1024&u_w=1280&u_ah=994&u_aw=1280&u_cd=32&u_tz=480&u_java=true" frameborder="0" width="728" scrolling="no" height="90" allowtransparency="allowtransparency"></iframe></div><p></p><p>{ 我在调用生成样条函数的程序: </p><p></p><p>Call AddSpline(fitPoints, StartTan, EndTan)<br/>(addspline是一个addspline的基函数)<br/>提示:autocad中发生基本建模失败。错误行为:<br/>'创建样条曲线,vecSt:起点的切向,vecEn:终点的切向<br/>Public Function AddSpline(ByRef ptArr() As Double, ByVal vecSt As Variant, ByVal vecEn As Variant) As AcadSpline<br/> <br/> '错误处理:判断数组的有效性<br/> If (UBound(ptArr) + 1) Mod 3 <> 0 Then<br/> MsgBox "数组参数无法创建样条曲线!"<br/> Exit Function<br/> End If<br/> <br/> <u><b> Set AddSpline = AcadApp.ActiveDocument.ModelSpace.AddSpline(ptArr, vecSt, vecEn)<br/></b></u>End Function<br/>我查看了一下参数的有效性,确实没有问题。另外,这个函数在前面已经调用了多次,没有发生任何错误,搞不明白是怎么回事。<br/>请赐教。十分感谢。}</p><p></p><p>你是否已经找到问题的所在,我也碰到这样的问题,我是调用Excel表格里的坐标数据来绘制样条曲线的,数组有效性也是没有问题,可就是建模失败,把函数改为AddPolyline就没有问题,为什么使用样条曲线就不行了呢,如果是用手动定义数组元素也能进行样条绘制,我检查过Excel表格里的坐标数据的调用过程,也是没有问题的。</p>
页:
[1]