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