Difference between revisions of "CanGetAngle"
From scripting
(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...") |
(No difference)
|
Latest revision as of 05:08, 22 April 2017
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