Difference between revisions of "MoveExtremumCloserToObj"

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