다음의 RhinoScript 의 예시에서는 모든 텍스트 개체를 선택하는 법을 소개합니다.
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
)