KeepSolidSplitByVolume
From scripting
Sub KeepSolidSplitByVolume(SplitSolid As Split, ForSmaller0ForBigger1 As Integer) If IsUpdatable(SplitSolid) Then Dim Pt1Meas Set Pt1Meas = TheSPAWorkbench.GetMeasurable(MyPart.CreateReferenceFromObject(SplitSolid)) Dim AVol As Double AVol = Pt1Meas.Volume SplitSolid.SplittingSide = catNegativeSide If IsUpdatable(SplitSolid) = False Then SplitSolid.SplittingSide = catPositiveSide Exit Sub End If Dim Pt2Meas Set Pt2Meas = TheSPAWorkbench.GetMeasurable(MyPart.CreateReferenceFromObject(SplitSolid)) Dim BVol As Double BVol = Pt2Meas.Volume If ForSmaller0ForBigger1 = 0 Then If AVol < BVol Then SplitSolid.SplittingSide = catNegativeSide End If Else If AVol > BVol Then SplitSolid.SplittingSide = catPositiveSide End If End If End If End Sub