Difference between revisions of "KeepTrimOrientation"

From scripting
Jump to: navigation, search
(Created page with " Function KeepTrimOrientation(TrimObj As HybridShapeTrim, nthSmallest As Integer) As Boolean Dim UVal As Integer Dim VVal As Integer UVal = -1 Dim WinningArr(3) Dim Winni...")
 
 
Line 40: Line 40:
  
  
[[CATIA DP VB]]
+
[[Category:CATIA DP VB]]

Latest revision as of 20:48, 24 April 2017

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