Site Tools


Differences

This shows you the differences between two versions of the page.

Link to this comparison view

ko:developer:scriptsamples:exportlayerobjects [2015/09/14] (current)
Line 1: Line 1:
 +====== 레이어 개체 내보내기 ======
 +====== RhinoScript ======
 +> **Summary:​** //각 레이어를 새 파일로 내보내며,​ 레이어별로 모든 개체를 내보내는 방법.//
 +
 +다음의 [[developer:​rhinoscript|RhinoScript]] 는 각 레이어를 새 파일로 내보내며,​ 레이어별로 모든 개체를 내보내는 방법을 소개합니다.
 +
 +
 +<code vb>
 + ​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
 +
 +
 +
 +</​code>​
 +
 +
 +{{tag>​ko:​Developer ko:​RhinoScript}}
  
ko/developer/scriptsamples/exportlayerobjects.txt · Last modified: 2015/09/14 (external edit)