HasArea

From scripting
Jump to: navigation, search
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