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