KeepSmallerCurvePar
From scripting
Sub KeepSmallerCurvePar(CurvePar As HybridShapeCurvePar) If IsUpdatable(CurvePar) Then Dim CMeas Set CMeas = TheSPAWorkbench.GetMeasurable(CurvePar) Dim FirstDist As Double FirstDist = CMeas.Length CurvePar.InvertDirection = False Dim SecondDist As Double If IsUpdatable(CurvePar) Then Dim CMeas2 Set CMeas2 = TheSPAWorkbench.GetMeasurable(CurvePar) SecondDist = CMeas2.Length End If If SecondDist > FirstDist Then CurvePar.InvertDirection = True IsUpdatable CurvePar End If Else CurvePar.InvertDirection = False IsUpdatable CurvePar End If End Sub