Difference between revisions of "CrvCheck"
From scripting
(Created page with " Function CrvCheck(SampleCrv As Variant) As Boolean On Error GoTo Blast2 Dim CMeas Set CMeas = TheSPAWorkbench.GetMeasurable(SampleCrv) Dim ALen As Double ALen =...") |
(No difference)
|
Latest revision as of 05:20, 22 April 2017
Function CrvCheck(SampleCrv As Variant) As Boolean On Error GoTo Blast2 Dim CMeas Set CMeas = TheSPAWorkbench.GetMeasurable(SampleCrv) Dim ALen As Double ALen = CMeas.Length CrvCheck = True Exit Function Blast2: CrvCheck = False End Function