mkhsj928 发表于 2004-9-29 17:30:00

AddSpline的怪事？请各位帮忙分析分析

Public Function m_CreateSpline(m_pts)<BR>                       <BR>                       Dim m_starttan(0 To 2) As Single, m_endtan(0 To 2) As Single<BR>                       m_starttan(0) = 0#: m_starttan(1) = 0#: m_starttan(2) = 0#<BR>                       m_endtan(0) = 0#: m_endtan(1) = 0#: m_endtan(2) = 0#



                       Dim m_plobj As AcadSpline<BR>                       Set m_plobj = ThisDrawing.ModelSpace.AddSpline(m_pts, m_starttan, m_endtan) '为什么不能建立样条曲线？！！！<BR>                       <BR>'                       Dim m_plobj As Acad3DPolyline<BR>'                       Set m_plobj = ThisDrawing.ModelSpace.Add3DPoly(m_pts)


。。。进行其他处理<BR>End Function


怎么老是运行到 Set 语句就直接跳出函数，根本未建立样条曲线实体，也不处理之后


的语句？这是什么问题啊? 而且用Add3DPoly是可以建立三维多段线的呀（后面两句注释掉的语句）！

雪山飞狐_lzh 发表于 2004-9-29 17:51:00

Dim m_starttan(0 To 2) As Double, m_endtan(0 To 2) As Double


m_pts也是Double型数组

mkhsj928 发表于 2004-9-30 00:22:00

谢谢版主，这么简单的问题居然困扰了我几天时间！真是感谢啊！
页: [1]
查看完整版本: AddSpline的怪事？请各位帮忙分析分析