SurfaceVolume

Calculates the volume of closed surface or polysurface objects.

Rhino.SurfaceVolume (strObject)

strObject

Required. String. The object's identifier.

Array

An array of volume information if successful. The array will contain the following information:

Number	The volume.
Number	The absolute (+/-) error bound for the volume.

Null

If not successful, or on error.

Const rhObjectPolySurface = 16

Dim strObject, arrMP

strObject = Rhino.GetObject("Select a surface", rhObjectPolySurface)

If Rhino.IsPolySurfaceClosed(strObject) Then

arrMP = Rhino.SurfaceVolume(strObject)

If IsArray(arrMP) Then

Rhino.Print "The polysurface volume is: " & CStr(arrMP(0))

End If