MoveLineAngleCloserToObjByNegAngle
From scripting
Sub MoveLineAngleCloserToObjByNegAngle(CurvePt As HybridShapeLineAngle, CompareObj As Variant) Dim CurOri As Double CurOri = CurvePt.Angle.Value Dim OppOri As Double OppOri = CurvePt.Angle.Value * (-1) IsUpdatable CurvePt IsUpdatable CompareObj Dim CMeas Set CMeas = TheSPAWorkbench.GetMeasurable(CurvePt) Dim FirstDist As Double FirstDist = CMeas.GetMinimumDistance(CompareObj) CurvePt.Angle.Value = OppOri IsUpdatable CurvePt Dim CMeas2 Set CMeas2 = TheSPAWorkbench.GetMeasurable(CurvePt) Dim secondDist As Double secondDist = CMeas.GetMinimumDistance(CompareObj) If secondDist > FirstDist Then CurvePt.Angle.Value = CurOri IsUpdatable CurvePt End If End Sub