HasRadius
From scripting
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