批量导入OBJ文件

new Script把脚本粘贴进去，然后在拖入max运行

Fn getnames Title FilterName =(

  dialog = DotNetObject"System.Windows.Forms.OpenFileDialog"

  dialog.title = Title

  dialog.filter = FilterName

  dialog.Multiselect = true

  OpenFileResult = dialog.ShowDialog()

  if OpenFileResult.Equals OpenFileResult.OK then

  (
    dialog.FileNames
  )

  else
    Undefined

)



--if form !=undefined do destroydialogmytools



rollout form "Import_OBJ"
(

  label lbl "Import_OBJ"

  button btn "导入" width:120 height:25
  on btn pressed do

  (

    file_names= getnames "导入OBJ" "OBJ (*.obj)|*.obj"

    if file_names != undefined do

    (

      for f in file_names do

      (

                if ( doesfileexist f ) do

                   importFile f #noPrompt using:Wavefront_Object

                       for geo in geometry

                where (matchPattern geo.name pattern:"3D_Object*") do

        (

             --geo.name = (f as string)

             pathaa = filterString (f as string)"//"

                             geo.name = pathaa[pathaa.count]

                       )

                   )

                   )



         )

)

createdialog form 200 50