KeepSolidSplitByVolume

From scripting
Revision as of 07:08, 22 April 2017 by Nickpisca (talk | contribs) (Created page with " Sub KeepSolidSplitByVolume(SplitSolid As Split, ForSmaller0ForBigger1 As Integer) If IsUpdatable(SplitSolid) Then Dim Pt1Meas Set Pt1Meas = TheSPAWorkbench.Get...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search
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