Returns the number of named positions in the document.
Rhino.NamedPositionCount ()
None.
Number |
The number of named positions in the document. |
Sub TestNamedPositionCount
Dim objPlugIn
On Error Resume Next
Set objPlugIn = Rhino.GetPluginObject("Named Position")
If Err Then
MsgBox Err.Description
Exit Sub
End If
Rhino.Print "There are " & CStr(objPlugIn.NamedPositionCount) & " named positions."
End Sub