Tanks for That, but i am having trouble getting that last script to run
When i try to launch it from Max 2009 nothing happens
This is the Code sampe i have been using in the past, The problem is that it launches the internal STL export window without copying over the object name.
It can be used for multiple files, but is a bit buggy and due to the large number of files to export, it is a pain having to manually rename the internal STL names to match those in max.
--this script is made by Anton Berg at os3d.se
--antonos3d.se
rollout ExportObj "Export as separate files" width:232 height:107
(
global theClasses
global outPath
local debug = true
edittext edt1 "filename" pos: width:152 height:16 readOnly:false
button btn1 "Export" pos: width:56 height:40
checkbox chk1 "Prefix of the file:" pos: width:120 height:16 checked:true toolTip:"if this is checked then the prefix text will be used to name the file"
dropdownList ddl2 "FileType" pos: width:152 height:40
checkbox chk2 "Debug" pos: width:56 height:16 checked:true tooltip:"This will show error messages"
fn NewfileName inputPath objName ischecked nr= (
if ischecked == true then
(
--set the filename to this prefix
np = inputPath + "\\" + objName + "_"+ nr as string --+".obj"
if debug then print np
)
else
(
--set the filename to the object filename
np = inputPath + "\\" + objName --e+ ".obj"
if debug then print np
)
return np
)
on ExportObj open do
(
theClasses = exporterPlugin.classes
theClassesNames = #()
for exptyp in theClasses do
(
append theClassesNames (exptyp as string)
)
ddl2.items = theClassesNames
)
on btn1 pressed do
(
theClasses = exporterPlugin.classes
if outPath == undefined then outPath = ""
outPath = getSavePath initialDir:outpath
if outPath != undefined then
(
selArray = selection as array
sceneObjs =#()
for item in selArray do
(
try (explodeGroup item)
catch()
)
selArray = selection as array
for item in selArray do
(
if (isKindOf item GeometryClass) then append sceneObjs item
)
for i = 1 to sceneObjs.count do
(
oname = (if chk1.state then edt1.text else sceneObjs.name)
if i == 1 then
(
select sceneObjs
newName = NewfileName outPath oname chk1.state i
result = (exportFile newName using:(theClasses) selectedOnly: true)
if result != true then (
if chk2.state == true then (messageBox "OS3D debug INFO:\nYou have a selected a filformat that doesn´t except the selected only state..")
result = (exportFile newName using:(theClasses) selectedOnly: false)
)
)
if i > 1 then
(
select sceneObjs
newName = NewfileName outPath oname chk1.state i
result = (exportFile newName #noPrompt using:(theClasses) selectedOnly: true)
if result != true then (
--messageBox "You have a selected a filformat that doesn´t except the selected only state.."
result = (exportFile newName using:(theClasses) selectedOnly: false)
)
)
)
select sceneObjs
)
else
(
messagebox "No output path selected"
)
)
on chk1 changed theState do
(
if theState then edt1.readOnly = false else edt1.readOnly = true
)
)
createdialog ExportObj
