HasArea
From scripting
Function HasArea(InputSurf As Variant) As Boolean On Error GoTo Blast2 Dim CMEAS Set CMEAS = TheSPAWorkbench.GetMeasurable(InputSurf) Dim AreaCalc As Double AreaCalc = CMEAS.Area HasArea = True Exit Function Blast2: HasArea = False End Function