HasRadius

From scripting
Revision as of 06:06, 22 April 2017 by Nickpisca (talk | contribs) (Created page with " Function HasRadius(InputCrv As Variant) As Double On Error GoTo blast Dim PtMeas Dim RadiusVal As Double Set PtMeas = TheSPAWorkbench.GetMeasurable(InputCrv) RadiusVa...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search
Function HasRadius(InputCrv As Variant) As Double
On Error GoTo blast
 
Dim PtMeas
Dim RadiusVal As Double
Set PtMeas = TheSPAWorkbench.GetMeasurable(InputCrv)
RadiusVal = PtMeas.Radius
 
HasRadius = RadiusVal
Exit Function
blast:
HasRadius = 0
End Function