다음의 RhinoScript 는 각 레이어를 새 파일로 내보내며, 레이어별로 모든 개체를 내보내는 방법을 소개합니다.

        Option Explicit


        Sub ExportLayerObjects


          ' Declare local variables
          Dim strPath, strFile
          Dim arrLayers, strLayer
          Dim arrSelected


          ' Get the path to and name of the current document.
          ' Surround with double-quotes in case path includes spaces.
          strPath = Chr(34) & Rhino.DocumentPath & Rhino.DocumentName & Chr(34)


          ' Get names of all layers
          arrLayers = Rhino.LayerNames


          ' Disable redrawing
          Rhino.EnableRedraw False


          ' Process each layer
          For Each strLayer In arrLayers


            ' Unselect all   
            Rhino.Command "_-SelNone", 0


            ' Select all objects on layer. Surround layer name
            ' with double-quotes in case it includes spaces.
            Rhino.Command "_-SelLayer " & Chr(34) & strLayer & Chr(34), 0


            ' Make sure some objects were selected
            arrSelected = Rhino.SelectedObjects
            If IsArray(arrSelected) Then


              ' Generate a modified path string
              ' that includes the layer name
              strFile = strPath
              strFile = Replace(strFile, ".3dm", "_" & strLayer & ".3dm")


              ' Export the selected objects
              Rhino.Command "_-Export " & strFile, 0


            End If
          Next


          ' Unselect all
          Rhino.Command "_-SelNone", 0


          ' Enable redrawing
          Rhino.EnableRedraw True


        End Sub
RhinoScript 는 Microsoft 의 ""VBScript"" 언어를 기반으로 한 스크립트 언어입니다. RhinoScript 를 사용하여 Rhino 에 신속하게 기능을 추가하거나 반복적인 작업을 처리할 수 있습니다.
12/27/2007 10:34:53 PM - -211.41.27.121
RhinoScript 는 Microsoft 의 ""VBScript"" 언어를 기반으로 한 스크립트 언어입니다. RhinoScript 를 사용하여 Rhino 에 신속하게 기능을 추가하거나 반복적인 작업을 처리할 수 있습니다.
12/27/2007 10:34:53 PM - -211.41.27.121