Summary: Demonstrates how to use RhinoScript to select all text objects.

The following example RhinoScript code demonstrates how to select all text objects.

 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

The following is the button macro version of the above subroutine.

 _-NoEcho
 _-RunScript (
 arrObjects = Rhino.AllObjects
 If IsArray(arrObjects) Then

 For Each strObject In arrObjects
 If Rhino.IsText(strObject) Then Rhino.SelectObject strObject
 Next
 End If
 strObject = vbNull
 arrObjects = vbNull
 )