I have a number of files that I would like to "save small" in order to save disk space. Is there a script that can help automate this? Or, do I just have to open each model one at a time.
The following RhinoScript will recurse through a selected folder, open each Rhino model and perform as "save small" operation.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' BatchSaveSmall.rvb -- October 2008
' If this code works, it was written by Dale Fugier.
' If not, I don't know who wrote it.
' Works with Rhino 4.0.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Main subroutine
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub BatchSaveSmall()
Dim sFolder, oFSO, oFolder
sFolder = Rhino.BrowseForFolder(, "Select folder to recurse", "Batch SaveSmall")
If IsNull(sFolder) Then Exit Sub
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(sFolder)
Call RecurseSaveSmall(oFolder)
Call Rhino.DocumentModified(False)
Call Rhino.Command("_-New _None", 0)
Call Rhino.Print("Done!")
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' RecurseSaveSmall
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub RecurseSaveSmall(oFolder)
Dim oFile, oSubFolder, dModified
For Each oFile In oFolder.Files
' Save file modified date
dModified = oFile.DateLastModified
' Do the "save small"
Call DoSaveSmall(oFile.Path)
' Reset file modified date
Call TouchDateModified(oFile.Path, dModified)
Next
' If you want to recurse folders,
' just un-comment the following lines.
'For Each oSubFolder In oFolder.SubFolders
' Call RecurseSaveSmall(oSubFolder)
'Next
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' DoSaveSmall
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub DoSaveSmall(sPath)
Dim aViews, sView
If InStr(LCase(sPath), ".3dm") > 0 Then
' Open the file
Call Rhino.DocumentModified(False)
Call Rhino.Command("_-Open " & Chr(34) & sPath & Chr(34), 0)
' Set all of the viewports to wireframe before saving
aViews = Rhino.ViewNames
For Each sView In aViews
Call Rhino.ViewDisplayMode(sView, 0)
Next
' Save it
Call Rhino.Command("_-SaveSmall _Enter", 0)
End If
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' TouchDateModified
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub TouchDateModified(sPath, dModified)
Dim oShell, oFolder, oFile
Dim sDir, sFile, nPos
nPos = InStrRev(sPath, "\")
sDir = Left(sPath, nPos)
sFile = Mid(sPath, nPos + 1)
Set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.NameSpace(sDir)
Set oFile = oFolder.ParseName(sFile)
oFile.ModifyDate = dModified
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Rhino.AddStartupScript Rhino.LastLoadedScriptFile
Rhino.AddAlias "BatchSaveSmall", "_NoEcho _-RunScript (BatchSaveSmall)"