by Dale Fugier (Last updated:  Wednesday, December 5, 2018)

Problem

When you right-click on a file, using Windows Explorer, and pick “Properties…”, to bring up the File Properties dialog, you can add summary information to a file by clicking on the Summary tab and entering the appropriate information. Imagine you would like to do this when saving Rhino files. Rhino does not have this capability, but RhinoScript can help.

Solution

The following example script will save the Rhino file by scripting Rhino’s Save command. If the command was successful in saving the file, script will then display the File Properties dialog and display the summary information for that file…

Sub SuperSaver()
  Rhino.Command "_Save"
  If (0 = Rhino.LastCommandResult()) Then
    Dim objShell, objFolder, objFolderItem, objInfo
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.NameSpace(Rhino.DocumentPath)
    If (Not objFolder Is Nothing) Then
      Set objFolderItem = objFolder.ParseName(Rhino.DocumentName)
      If (Not objFolderItem Is Nothing) Then
        Call objFolderItem.InvokeVerbEx("properties", "summary")
      End If
      Set objFolderItem = Nothing
    End If
    Set objFolder = Nothing
    Set objShell = Nothing
  End If
End Sub