KeepTrimOrientation

From scripting
Jump to: navigation, search
Function KeepTrimOrientation(TrimObj As HybridShapeTrim, nthSmallest As Integer) As Boolean
Dim UVal As Integer
Dim VVal As Integer
UVal = -1
Dim WinningArr(3)
Dim WinningOri(3)
Dim TempArr(1)
Dim WinArrNum As Integer
WinArrNum = 0
Dim CMeas
Dim CLen As Double
ForceColorObjUgly TrimObj, 120, 120, 220, 1, 1000, 3, 1000

While UVal <= 1
    VVal = -1
    While VVal <= 1
        TrimObj.FirstOrientation = UVal
        TrimObj.SecondOrientation = VVal
        IsUpdatable TrimObj
        Set CMeas = TheSPAWorkbench.GetMeasurable(TrimObj)
        CLen = CMeas.Length
        
        WinningArr(WinArrNum) = CLen
        TempArr(0) = UVal
        TempArr(1) = VVal
        WinningOri(WinArrNum) = TempArr
        WinArrNum = WinArrNum + 1
        VVal = VVal + 2
    Wend
    UVal = UVal + 2
Wend 

Sort2Arrays WinningArr, WinningOri 

TrimObj.FirstOrientation = WinningOri(nthSmallest)(0)
TrimObj.SecondOrientation = WinningOri(nthSmallest)(1)
IsUpdatable TrimObj 

End Function