Maxwell Render | Official public forum

function translateReferenced mtl newDir fixPath =
(
   newFile = newDir+ "\\" + filenameFromPath mtl.filename
   copyfile mtl.filename newFile
   
   if (fixPath == true) do
      mtl.filename = newFile
)

function walkMultiMat multiMat newDir fixPath =
(
   numSubMat = getNumSubMtls multiMat
   for idx = 1 to numSubMat do
   (
      subMat = getSubMtl multiMat idx
      if (subMat == undefined) do
         continue

      if (subMat.classID[1] == 837576131 and subMat.classID[2] == 1983282922) do
      (   
         translateReferenced subMat newDir fixPath
      )

      if subMat.classID[1] == 512 do
         walkMultiMat subMat newDir fixPath
   )
)

rollout MaxwellGetRefMaterials "Maxwell 2.0 Referenced Material Collector"
(
   edittext dir_text "MXM Destination Directory:" fieldWidth:265 labelOnTop:true
   button dir_browse "..." align:#right offset:[0,-23]
   checkbox fixpath_checkbox "Update MXM path in all materials"
   button doit "Process Scene"
   progressbar doit_prog color:blue
   label obj_label "Objects to be processed"
   
   on dir_browse pressed do
   (
      print dir_text.text
      newPath = getSavePath caption:"Choose a directory to place all mxm files" initialDir: dir_text.text
      if (newPath != undefined) do
         dir_text.text = newPath
   )
   
   on MaxwellGetRefMaterials open do
   (
      dir_text.text = sysinfo.currentdir
   )
   
   on doit pressed do
   (
      i = 0
      select $**
      for obj in selection do
      (
         objMtl = obj.material
         if (objMtl == undefined) do
            continue
         
         if (objMtl.classID[1] == 837576131 and objMtl.classID[2] == 1983282922) do
         (
            translateReferenced objMtl dir_text.text fixpath_checkbox.state
         )
            
         i = i + 1
         doit_prog.value = 100.*i/selection.count
         obj_label.text = obj.name
         
         if obj.material.classID[1] == 512 do
            walkMultiMat obj.material dir_text.text fixpath_checkbox.state
      )
      
      obj_label.text = "Finished"
   )
)

createDialog MaxwellGetRefMaterials 320 140