GetAcuteAngle
From scripting
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