CanGetAngle

From scripting
Revision as of 05:08, 22 April 2017 by Nickpisca (talk | contribs) (Created page with " Function CanGetAngle(SampleCrv As Variant, SecondCrv As Variant) As Boolean On Error GoTo Blast2 Dim CMeas Set CMeas = TheSPAWorkbench.GetMeasurable(SecondCrv) Dim CCC As...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search
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