[求助][编程申请]样条曲线如何反向？vba在源码

ro2056

在论坛上搜索了一下 找到下面的源码 但是是多段线的，请帮帮我搞一个样条曲线的反向源码，谢谢！虽然简单的谢谢是多么的苍白无力，但我也只能这样了

多段线反向源码如下
Sub RevPline()
     Dim ent As AcadEntity
     Dim pnt As Variant
     Dim NewCoord() As Double
     Dim i As Integer
     On Error Resume Next
     Do
         ThisDrawing.Utility.GetEntity ent, pnt, "选择多段线："
         If Err Then Exit Sub
         If TypeName(ent) Like "IAcad*Polyline" Then Exit Do
     Loop
     Dim Coord As Variant
     Dim CoordCount As Integer
     Dim Bulge() As Double
     If TypeName(ent) = "IAcadLWPolyline" Then
         Coord = ent.Coordinates
         CoordCount = (UBound(Coord) + 1) / 2
         ReDim NewCoord(UBound(Coord)) As Double
         For i = 0 To UBound(Coord) - 1 Step 2
             NewCoord(UBound(Coord) - i - 1) = Coord(i)
             NewCoord(UBound(Coord) - i) = Coord(i + 1)
         Next
         ReDim Bulge(CoordCount - 1) As Double
         For i = 0 To CoordCount - 1
             Bulge(i) = ent.GetBulge(i)
         Next
         ent.Coordinates = NewCoord
         For i = 0 To CoordCount - 2
             ent.SetBulge i, -Bulge(CoordCount - 2 - i)
         Next
         ThisDrawing.Regen acActiveViewport
     ElseIf TypeName(ent) = "IAcadPolyline" Then
         Coord = ent.Coordinates
         CoordCount = (UBound(Coord) + 1) / 3
         ReDim NewCoord(UBound(Coord)) As Double
         For i = 0 To UBound(Coord) - 1 Step 3
             NewCoord(UBound(Coord) - i - 2) = Coord(i)
             NewCoord(UBound(Coord) - i - 1) = Coord(i + 1)
             NewCoord(UBound(Coord) - i) = Coord(i + 2)
         Next
         If ent.Type = acSimplePoly Then
             ReDim Bulge(CoordCount - 1) As Double
             For i = 0 To CoordCount - 1
                 Bulge(i) = ent.GetBulge(i)
             Next
         End If
         ent.Coordinates = NewCoord
         If ent.Type = acSimplePoly Then
             For i = 0 To CoordCount - 2
                 ent.SetBulge i, -Bulge(CoordCount - 2 - i)
             Next
         End If
        ThisDrawing.Regen acActiveViewport
     End If

    
End Sub

jxphklibin

对所有曲线都能使用就好了！

万里天

也为这问题挠头.