MAXScript exporter

  
-- This script provides a powerful (hehe) exporter for triangle meshes into a simple ASCII file format
-- 
-- 1. for every geometry object
--    convert to a mesh and export it as a submodel of world

macroscript PP3DWorldExporter category:"Exporters" buttonText:"PP3D World Exporter"
(
   local PP3D_Export

   fn LR_Export filename object =
   (
     file = createFile filename

     if ( file == undefined ) do
     (
       messagebox "Couldn''t create file for export!"
       return false
     )

     format "# LiquidRun ASCII Model file, exported from 3ds max\n" to:file

     format "% % %\n" object.name object.numVerts object.numFaces to:file

     format " vf " to:file

     format "\n" to:file

     for i in 1 to object.numVerts do
     (
       format "% % %\n" object.verts[i].pos[1] object.verts[i].pos[2] object.verts[i].pos[3] to:file
     )

     format "\n" to:file

     for i in 1 to object.numFaces do
     (
       iface = getFace object i

       format "% % %\n" (iface.x as Integer) (iface.y as Integer) (iface.z as Integer) to:file
     )

     flush file

     close file

   )

   fn ExportMesh object file =
   (
     format "% % %\n" object.name object.numVerts object.numFaces to:file

     format " vf " to:file

     format "\n" to:file

     for i in 1 to object.numVerts do
     (
       format "% % %\n" object.verts[i].pos[1] object.verts[i].pos[2] object.verts[i].pos[3] to:file
     )

     format "\n" to:file

     for i in 1 to object.numFaces do
     (
       iface = getFace object i

       format "% % %\n" (iface.x as Integer) (iface.y as Integer) (iface.z as Integer) to:file
     )


   )

   rollout LRExportRollout "LiquidRun Exporter"
   (
      group "Options"
      (
        checkbox auto_conv "AutoConvert to Mesh"
      )

      button export "Export..." align:#right

      on export pressed do
      (
        object = selection[1]

        if( object == undefined ) do
        (
          messagebox "Must select object to export"
          return false
        )

        if ( isKindOf object Editable_Mesh == false ) do
        (
          if ( auto_conv.checked == false ) then
          (
            messagebox "Must be an Editable Mesh, or use AutoConvert"
            return false
          )
          else
          (
            // object_mesh = converttoMesh object

            object_mesh = object.mesh
          )
        )
        else
        (
          object_mesh = object
        )
          
        filename = getSaveFileName types:"LR ASCII Model (*.lam)|*.lam|All (*.*)|*.*"

        if( filename != undefined ) do
        (
          LR_Export filename object_mesh
        )

      )

   )


   createDialog LRExportRollout

)