CanGetAngle
From scripting
Function CanGetAngle(SampleCrv As Variant, SecondCrv As Variant) As Boolean On Error GoTo Blast2 Dim CMeas Set CMeas = TheSPAWorkbench.GetMeasurable(SecondCrv) Dim CCC As Double CCC = CMeas.GetAngleBetween(SampleCrv) CanGetAngle = True Exit Function Blast2: CanGetAngle = False End Function