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

mkhsj928

Public Function m_CreateSpline(m_pts)

Dim m_starttan(0 To 2) As Single, m_endtan(0 To 2) As Single
m_starttan(0) = 0#: m_starttan(1) = 0#: m_starttan(2) = 0#
m_endtan(0) = 0#: m_endtan(1) = 0#: m_endtan(2) = 0# Dim m_plobj As AcadSpline
Set m_plobj = ThisDrawing.ModelSpace.AddSpline(m_pts, m_starttan, m_endtan) '为什么不能建立样条曲线？！！！

' Dim m_plobj As Acad3DPolyline
' Set m_plobj = ThisDrawing.ModelSpace.Add3DPoly(m_pts) 。。。进行其他处理
End Function 怎么老是运行到 Set 语句就直接跳出函数，根本未建立样条曲线实体，也不处理之后 的语句？这是什么问题啊? 而且用Add3DPoly是可以建立三维多段线的呀（后面两句注释掉的语句）！

雪山飞狐_lzh

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


m_pts也是Double型数组

mkhsj928

谢谢版主，这么简单的问题居然困扰了我几天时间！真是感谢啊！