Difference between revisions of "HasVolume"
From scripting
(Created page with " Function HasVolume(InputBody As Variant, CurPart As Part) As Boolean On Error GoTo Blast2 Dim CMEAS Set CMEAS = theSPAWorkbench.GetMeasurable(CurPart.CreateReferenceFromOb...") |
(No difference)
|
Latest revision as of 06:06, 22 April 2017
Function HasVolume(InputBody As Variant, CurPart As Part) As Boolean On Error GoTo Blast2 Dim CMEAS Set CMEAS = theSPAWorkbench.GetMeasurable(CurPart.CreateReferenceFromObject(InputBody)) Dim VolCalc As Double VolCalc = CMEAS.Volume HasVolume = True Exit Function Blast2: HasVolume = False End Function