I am extremely new at scripting and found a script online that does almost everything I am looking for…
The problem is that I need to work through a folder of files, opening each one individually and then reducing the mesh, and then Exporting to OBJ format.
I look at trying to find other script command and combining them, but was unsuccessful!
Can anyone assist with modifying the script below so it will automate the script process through an entire repository:
'Script written by
'Script copyrighted by
'Script version Friday, March 30, 2012 2:05:45 PM
Dim strMesh, nFaceCount
strMesh = Rhino.GetObject(“Select mesh to reduce”, 32)
If Not IsNull(strMesh) Then
nFaceCount = Rhino.MeshFaceCount(strMesh)
Rhino.ReduceMesh strMesh, nFaceCount * .3