HasAngleBetween

From scripting
Jump to: navigation, search
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