HasArea

From scripting
Revision as of 06:04, 22 April 2017 by Nickpisca (talk | contribs) (Created page with " Function HasArea(InputSurf As Variant) As Boolean On Error GoTo Blast2 Dim CMEAS Set CMEAS = TheSPAWorkbench.GetMeasurable(InputSurf) Dim AreaCalc As Double AreaCalc = C...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
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