Difference between revisions of "KeepSmallerCurvePar"

Latest revision as of 07:07, 22 April 2017

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