Site Tools


3DM 파일 열기

RhinoScript

Summary: RhinoScript 를 사용하여 3DM 파일을 여는 방법을 소개합니다.

질문

RhinoScript 를 사용하여 파일을 열 수 있습니까? 도움말을 보니 OpenFileName 를 사용하는 방법이 있으나, 이 방법은 오직 파일 이름을 선택하는 것이며, 해당 파일은 열리지 않습니다.

답변

RhinoScript 를 사용하여 파일을 열려면 Rhino 의 Open 명령이 RhinoScriptCommand 메서드를 사용하도록 스크립팅하면 됩니다.

다음은 RhinoScript 를 사용하여 3DM 파일을 여는 스크립트의 예입니다.

 Sub TestFileOpen()
 
   ' Local variable declarations
   Dim strFile
 
   ' Let the user pick a 3dm file. If the return value is null,
   ' then the user picked the "Cancel" button...
   strFile = Rhino.OpenFileName("Open", "Rhino 3D Models (*.3dm)|*.3dm|")
   If IsNull(strFile) Then Exit Sub
 
   ' To keep Rhino from displaying the dreaded
   ' "Save changes to <filename>" dialog, we can fool it
   ' into thinking that the document was never modified
   ' by doing the following.
   Call Rhino.DocumentModified(False)
 
   ' If the picked a file that has a space character in its name,
   ' or resides in a folder that has a space character, then we
   ' need to surround the file string in double-quotes so Rhino's
   ' command line parser will interpret the string correctly.
   strFile = Chr(34) & strFile & Chr(34)
 
   ' Now we can simply script Rhino's Open command to open the file.
    Call Rhino.Command("_-Open " & strFile, 0)
 
 End Sub
ko/developer/scriptsamples/fileopen.txt · Last modified: 2015/09/14 (external edit)