MoveExtremumCloserToObj
From scripting
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