GetAcuteAngle

From scripting
Revision as of 05:39, 22 April 2017 by Nickpisca (talk | contribs) (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...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
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
Retrieved from "http://nickpisca.com/BLAST/index.php?title=GetAcuteAngle&oldid=113"