Difference between revisions of "MoveExtremumCloserToObj"
From scripting
(Created page with " Sub MoveExtremumCloserToObj(CurExtremum As HybridShapeExtremum, CompareObj As Variant) MyPart.UpdateObject CurExtremum MyPart.UpdateObject CompareObj Dim CMeas Set CMeas...") |
(No difference)
|
Latest revision as of 19:33, 24 April 2017
Sub MoveExtremumCloserToObj(CurExtremum As HybridShapeExtremum, CompareObj As Variant) MyPart.UpdateObject CurExtremum MyPart.UpdateObject CompareObj Dim CMeas Set CMeas = TheSPAWorkbench.GetMeasurable(CurExtremum) Dim FirstDist As Double FirstDist = CMeas.GetMinimumDistance(CompareObj) CurExtremum.ExtremumType = 0 MyPart.UpdateObject CurExtremum Dim CMeas2 Set CMeas2 = TheSPAWorkbench.GetMeasurable(CurExtremum) Dim SecondDist As Double SecondDist = CMeas.GetMinimumDistance(CompareObj) If SecondDist > FirstDist Then CurExtremum.ExtremumType = 1 MyPart.UpdateObject CurExtremum End If End Sub