Opening 3DM Files
Windows only
Demonstrates how to open 3DM files using RhinoScript.
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