KeepTrimOrientation
From scripting
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