HasVolume

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