Returns the number of surfaces, or faces, in a polysurface.
Rhino.SurfaceCount (strObject)
strObject |
Required. String. The polysurface object's identifier. |
Number |
The number of surfaces, or faces, in a polysurface if successful. |
Null |
If not successful, or on error. |
Const rhPolysrf = 16
Dim strObject
strObject = Rhino.GetObject("Select polysurface", rhPolysrf, true)
If Not IsNull(strObject) Then
MsgBox "Face count = " & CStr(Rhino.SurfaceCount(strObject))
End If