Difference between revisions of "KeepSmallestSplit"
From scripting
(Created page with " Sub KeepSmallestSplit(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:07, 22 April 2017
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