Difference between revisions of "CrvCheck"

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