GetAcuteAngle

From scripting
Jump to: navigation, search
Function GetAcuteAngle(Line1 As Variant, Line2 As Variant) As Double
Dim AMeas
Set AMeas = TheSPAWorkBench.GetMeasurable(Line1)
Dim AAng As Double
AAng = AMeas.GetAngleBetween(Line2)
If AAng > 135 Then
    GetAcuteAngle = 180 - AAng
Else
    GetAcuteAngle = AAng
End If
End Function