Difference between revisions of "KeepSolidSplitByVolume"
From scripting
(Created page with " Sub KeepSolidSplitByVolume(SplitSolid As Split, ForSmaller0ForBigger1 As Integer) If IsUpdatable(SplitSolid) Then Dim Pt1Meas Set Pt1Meas = TheSPAWorkbench.Get...") |
(No difference)
|
Latest revision as of 07:08, 22 April 2017
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