Difference between revisions of "KeepBiggestSplit"
From scripting
(Created page with " Sub KeepBiggestSplit(SplitSurface As Variant) Dim Pt1Meas 'As Measurable Set Pt1Meas = TheSPAWorkbench.GetMeasurable(SplitSurface) Dim AArea As Double AArea = Pt1Meas.Ar...") |
(No difference)
|
Latest revision as of 07:06, 22 April 2017
Sub KeepBiggestSplit(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
