Difference between revisions of "KeepSmallerCurvePar"
From scripting
(Created page with " Sub KeepSmallerCurvePar(CurvePar As HybridShapeCurvePar) If IsUpdatable(CurvePar) Then Dim CMeas Set CMeas = TheSPAWorkbench.GetMeasurable(CurvePar) Dim F...") |
(No difference)
|
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