HasAngleBetween
From scripting
Function HasAngleBetween(Obj1 As Variant, Obj2 As Variant) As Double On Error GoTo Blast Set C2 = TheSPAWorkbench.GetMeasurable(Obj1) AngleVal = C2.GetAngleBetween(Obj2) HasAngleBetween = AngleVal Exit Function Blast: HasAngleBetween = 1000 End Function