MoveLineAngleCloserToObj
From scripting
Sub MoveLineAngleCloserToObj(CurvePt As HybridShapeLineAngle, CompareObj As Variant) Dim CurOri As Boolean CurOri = CurvePt.Orientation Dim OppOri As Boolean OppOri = Not CurOri IsUpdatable CurvePt IsUpdatable CompareObj Dim CMeas Set CMeas = TheSPAWorkbench.GetMeasurable(CurvePt) Dim FirstDist As Double FirstDist = CMeas.GetMinimumDistance(CompareObj) CurvePt.Orientation = OppOri IsUpdatable CurvePt Dim CMeas2 Set CMeas2 = TheSPAWorkbench.GetMeasurable(CurvePt) Dim secondDist As Double secondDist = CMeas.GetMinimumDistance(CompareObj) If secondDist > FirstDist Then CurvePt.Orientation = CurOri IsUpdatable CurvePt End If End Sub