Difference between revisions of "HasArea"
From scripting
(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...") |
(No difference)
|
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