Hi all
For STL export I use script by @Helvetosaur
! _-Runscript (
Option Explicit
'Script by Mitch Heynick
'Version 21 March 2012
'added current file name and folder default
Call ExportSTL()
Sub ExportSTL()
Dim arrObjs,strCurrDP,strCurrDN,strSaveDN,strFileName,strSett,filt
arrObjs = Rhino.GetObjects("Select objects to export as .stl", 8 + 16 + 32,, True)
If Not IsArray(arrObjs) Then Exit Sub
strCurrDP = Rhino.DocumentPath()
strCurrDN = Rhino.DocumentName()
filt = "STL Files (*.stl)|*.stl||"
If Not IsNull(strCurrDN) Then
strSaveDN =Left(strCurrDN,Len(strCurrDN)-3)&"stl"
strFileName = Rhino.SaveFileName("Export STL", filt, strCurrDP, strSaveDN)
Else
strFileName = Rhino.SaveFileName("Export STL", filt)
End If
If IsNull(strFilename) Then Exit Sub
strSett = STLSettings() 'gets your settings from the function below
If IsNull(strSett) Then
Call Rhino.Print("Unable to get export settings")
Exit Sub
End If
Call Rhino.SelectObjects(arrObjs) 'selects your objects
'runs the export using the file name/path and your settings
Call Rhino.Command("-_Export " & chr(34) & strFileName & chr(34) & " " & strSett, False)
End Sub
Function STLSettings()
STLSettings = Null
Dim str1,str2,str3,str4,str5,str6,str7,str8,str9,str10
Dim str11,str12,str13,str14,str15,str16,str17,str18
Dim strComb
str1 = "_ExportFileAs=_Binary "
str2 = "_ExportUnfinishedObjects=_Yes "
str3 = "_UseSimpleDialog=_No "
str4 = "_UseSimpleParameters=_No "
str5 = "_Enter _DetailedOptions "
str6 = "_JaggedSeams=_No "
str7 = "_PackTextures=_No "
str8 = "_Refine=_Yes "
str9 = "_SimplePlane=_No "
str10 = "_Weld=_No "
str11 = "_AdvancedOptions "
str12 = "_Angle=15 "
str13 = "_AspectRatio=0 "
str14 = "_Distance=0.001 "
str15 = "_Grid=16 "
str16 = "_MaxEdgeLength=0 "
str17 = "_MinEdgeLength=0.0001 "
str18 = "_Enter _Enter"
strComb = str1 & str2 & str3 & str4 & str5 & str6 & str7 & str8 & str9 & str10
strComb = strComb & str11 & str12 & str13 & str14 & str15 & str16 & str17 & str18
STLSettings = strComb
End Function
))
Hide
It works beautifully, but at the moment important wishes have ripened. In my work for each project I get a lot scans in STL format, each file has its own name. I need to import all this mass to Rhino and write the names manually. It is too long. Then, having slightly adjusted the models, I have to export each of them to a separate OBJ file and save its name as file name, and this also takes a lot of time. I would like to receive help in writing a script for automation this proces.
Is it possible to modify this script so that take and assign name from properties and save it name as name STL file
And another script for import STL.
So that to take the name of the imported STL and assign this name to properties
Thanks