KeepSmallerCurvePar
From scripting
Revision as of 07:07, 22 April 2017 by Nickpisca (talk | contribs) (Created page with " Sub KeepSmallerCurvePar(CurvePar As HybridShapeCurvePar) If IsUpdatable(CurvePar) Then Dim CMeas Set CMeas = TheSPAWorkbench.GetMeasurable(CurvePar) Dim F...")
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