NEW: Welcome to the Rhino 6 version of this page! Looking for the older Rhino 5 version?

Select Text Objects

Demonstrates how to use RhinoScript to select all text objects.

VBScript

Sub SelText
  Dim arrObjects, strObject
  arrObjects = Rhino.AllObjects
  If IsArray(arrObjects) Then
    For Each strObject In arrObjects
      If Rhino.IsText(strObject) Then
        Rhino.SelectObject strObject
      End If
    Next
  End If
End Sub