Difference between revisions of "GetAcuteAngle"
From scripting
(Created page with " Function GetAcuteAngle(Line1 As Variant, Line2 As Variant) As Double Dim AMeas Set AMeas = TheSPAWorkBench.GetMeasurable(Line1) Dim AAng As Double AAng = AMeas.GetAngleBe...") |
(No difference)
|
Latest revision as of 05:39, 22 April 2017
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
