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