HasVolume
From scripting
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