Returns the number of RhinoScript user data items on an object's geometry.
Rhino.ObjectDataCount (strObject)
|
strObject |
Required. String. The object's identifier. |
|
Number |
The number of RhinoScript object user data items if successful. |
|
Null |
If not successful, or on error. |
Dim strObject, intCount
strObject = Rhino.GetObject("Select object")
If Not IsNull(strObject) Then
intCount = Rhino.ObjectDataCount(strObject)
Rhino.Print "Object geometry user data count: " & CStr(intCount)
End If