Difference between revisions of "MoveCircle2PointsRadCloserToObj"

Latest revision as of 19:32, 24 April 2017

Sub MoveCircle2PointsRadCloserToObj(CurveCirc As HybridShapeCircle2PointsRad, CompareObj  As Variant)
MyPart.UpdateObject CurveCirc
MyPart.UpdateObject CompareObj
Dim CMeas
Set CMeas = TheSPAWorkbench.GetMeasurable(CurveCirc)
Dim FirstDist As Double
FirstDist = CMeas.GetMinimumDistance(CompareObj)

CurveCirc.SetLimitation 3
CurveCirc.Orientation = -1
MyPart.UpdateObject CurveCirc
Dim CMeas2
Set CMeas2 = TheSPAWorkbench.GetMeasurable(CurveCirc)
Dim SecondDist As Double
SecondDist = CMeas.GetMinimumDistance(CompareObj)

If SecondDist > FirstDist Then
    CurveCirc.SetLimitation 2
    CurveCirc.Orientation = 1
    MyPart.UpdateObject CurveCirc
End If

End Sub