[求助]：自己写的样条转多段线有点不对，大家帮忙看看

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