[求助]：自己写的三维段线转样条线怎么不好用

MOUSE223

请高手解决，不知道哪里不对，刚学，呵呵代码如下：
Sub duoxian_yangtiao()
Dim returnObj As Acad3DPolyline
    Dim basePnt As Double
    Dim retCoord As Variant
    Dim yangtiao As AcadSpline
    Dim spoint As Variant
    Dim epoint As Variant
   Dim aaa As Integer

   
On Error Resume Next
    ThisDrawing.Utility.GetEntity returnObj, basePnt, "选三维多段线"
    If Err <> 0 Then
        Err.Clear
        MsgBox "选择错误", , "多段线转样条曲线 示例"
        Exit Sub
    Else
     retCoord = returnObj.Coordinates
    aaa = UBound(retCoord) / 3 - 1
   
   spoint = returnObj.Coordinate(0)
   epoint = returnObj.Coordinate(aaa)
   
    Set yangtiao = ThisDrawing.ModelSpace.AddSpline(retCoord, spoint, epoint)
    End If
End Sub

WHGF

CAD中有三维样条线？

MOUSE223

三维样条好像没有，不太明白你的意思，我在三维多段线的基础上可以画样条曲线的，没有缺憾。