Summary: RhinoScript 를 사용한 모든 텍스트 개체를 선택하는 방법

다음의 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
 )