MoveLineAngleCloserToObjByNegAngle

From scripting
Jump to: navigation, search
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