Difference between revisions of "HasArea"

Latest revision as of 06:04, 22 April 2017

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