KeepSmallestSplit

From scripting
Jump to: navigation, search
Sub KeepSmallestSplit(SplitSurface As Variant)
Dim Pt1Meas 'As Measurable
Set Pt1Meas = thespaworkbench.GetMeasurable(SplitSurface)
Dim AArea As Double
AArea = Pt1Meas.Area

SplitSurface.Orientation = 1
MyPart.UpdateObject SplitSurface
Dim Pt2Meas 'As Measurable
Set Pt2Meas = thespaworkbench.GetMeasurable(SplitSurface)
Dim BArea As Double
BArea = Pt2Meas.Area

If AArea < BArea Then
    SplitSurface.Orientation = -1
End If
End Sub