MAX Script Export/Import

FW: http://www.cnblogs.com/sssa2000/archive/2007/05/18/751800.html

2个工作日
写了一套简单的Export/Import插件
一直对MAX的 Script感到很好奇
说说使用的感受吧。

首先，如果要使用这套Script那么 首先会陷入到庞大的MAX的概念的汪洋大海之中
MAX中很多概念不同于平常熟知的 RealTime里面的思想
例如，MAX中的纹理坐标，每个顶点都有一对UV 这个很正常
但是同时 MAX对每个Face也保存了UV，这是因为MAX中的 每个Face都有可能是不同的贴图
等等

第二，如果熟悉了MAX中的哪些类能够干什么 那么Script也就是很水道渠成的事情了。为了写这2个插件，MAX Script 的help翻了无数次，几乎每写一句就要去翻一次。

第三，MAX中的数组起位置是1，但是MAX中有的概念 使用数组表示的时候起始位置为0 ，例如纹理的Channel，起始就是为0，并且Channel0  很危险，写入错误直接让MAX挂掉

第四，脚本编写很考验打字的准确度，由于变量没有类型，不需要声明就可以试用，打错一个字母的话那就查吧，运气不好的话，会让你疯掉的，同时MAX的脚本编辑器 超级难用。

第五，编写导入插件的时候，发现Script 中读入数据异常痛苦，我在Script的帮助中没有发现任何类似c语言中的fprintf(%...)的东西，只有通过脚本提供的skiptostring来做。

第六 Max Script的函数 没有明确的返回值的概念，不习惯

第七 那个调试器 太难用了，我打了无数个messagebox

总 结：对于导入导出插件来说其实用SDK和Script 编写其实差别不大，因为都只是涉及到数据的读取和写入，并不涉及到复杂的逻辑。如果编写渲染类型或者是动画控制类型的插件 我觉得还是用script好一些，因为可以直接在MAX中看到结果，同时还能够一句一句的执行，很方便。

我只是初学，希望有经验的人给点经验，最后附上简单的插件代码，
导出插件只能到处一个几何体，点击ExportGeo按钮，然后点选几何体，即可输出
导入插件没什么特别的操作，导入插件结尾有些仓促

以下是导入插件：其实导入插件没什么必要写，反正是在MAX中建模，直接保存为MAX文件就可以了，这里
纯属练手

macroScript ImportGeo category:  " HowTo2 "
(
     -- 从文件中读入某个分割符 后面 的数据
     -- FileStream：文件句柄
     -- needload ：储存读取后的值的变量 ( string   or  value)
     -- spliter：分隔符( string )
     -- bReadLine: 是否读取分隔符后所有的数据  1表示读取后面所有
    fn LoadData FileStream spliter bReadLine =
    (
        temp = skiptostring FileStream spliter
         if  bReadLine == 1   then
            needload = readline FileStream
         else
            needload = readvalue FileStream
    
    )
     --***************************************************
     --******************************************************
     --****************************************************
    vert_array  =  #()
    face_array  =  #()
    sgroup_array  =  #()
    matid_array  =  #()
    edge_array  =  #()
    
    tm_row1 = #()
    tm_row2 = #()
    tm_row3 = #()
    tm_row4 = #()
    nodename = ""
     -- 以下均为material变量
    _Material_Name
    _Material_Type
    _Material_Ambient
    _Material_Diffuse
    _Material_Specular
    _Material_Specular_Lv
    _Material_Glossiness
    _Material_SelfillumColor
    _Material_SelfillumAmount
    _Material_DiffTexPath
    BitmapPath
    
    channel_num
    UVW_Ver_Num
    UVW_Face_Num
    Vert_UV = #()           -- 所有的顶点的uv都放在这里
    Face_UV = #()           -- 所有的面的uv都放在这里
    Vert_UV_Size = #()   -- 用于记录每个channel的顶点的uv总数
    Face_UV_Size = #()   -- 用语及了每个channel的面uv总数

    in_name = getopenfilename()
     if  in_name! = undefined  then
    (
        in_file = openfile in_name
         if  in_file! = undefined  then
        (
             -- node name
            temp =  readline in_file 
            token = filterString temp     "   "     
            nodename = (token[token.count]  as   string )
             --**************************************************
             -- material info
                
            _Material_Name = LoadData in_file   " -> "   1
            _Material_Type = LoadData in_file   " -> "   1
            _Material_Ambient = LoadData in_file   " -> "   0
            _Material_Diffuse = LoadData in_file   " -> "   0
            _Material_Specular = LoadData in_file   " -> "   0
            _Material_Specular_Lv = LoadData in_file   " -> "   0
            _Material_Glossiness = LoadData in_file   " -> "   0
            _Material_SelfillumColor = LoadData in_file   " -> "   0
            _Material_SelfillumAmount = LoadData in_file   " -> "   0
            _Material_DiffTexPath = LoadData in_file   " -> "   1
              --**************************************************

             -- node matrix
             -- temp =  readline in_file
            
            tt = readDelimitedString in_file  " : "
            temp = readvalue in_file
            append tm_row1(temp)
            
            tt = readDelimitedString in_file  " : "
            temp = readvalue in_file
            append tm_row2(temp)
            
            tt = readDelimitedString in_file  " : "
            temp = readvalue in_file
            append tm_row3(temp)
        
            tt = readDelimitedString in_file  " : "
            temp = readvalue in_file
            append tm_row4(temp)
            
             --************************************************
             -- vertex info
            temp =  readline in_file 
            token = filterString temp     "   "     
            num_vert = token[token.count]  as   integer
             for  i = 1   to  num_vert  do
            (
                tt = readDelimitedString in_file  " : "
                temp = readvalue in_file
                append vert_array (temp)
            )
             --************************************************************
             -- face info
            temp = readline in_file
            token = filterstring temp  "   "
            num_face = (token[token.count]  as   integer )
             for  j = 1   to  num_face  do
            (
                append face_array (readValue in_file)
                append sgroup_array (readValue in_file)
                append matid_array (readValue in_file)
                edge1  =  readValue in_file
                edge2  =  readValue in_file
                edge3  =  readValue in_file
                append edge_array (#(edge1, edge2, edge3))
                
            )
              --************************************************************
             -- uv info
             --  in max channel begin  with   0
             -- the channel  0  stores the vertex color info,no uv info
            
            channel_num = LoadData in_file   " : "   0
             for  b = 1   to  (channel_num - 1 )  do
            (
                 -- 读出Channel id
                channel_id = LoadData in_file   " : "   0
                
                 -- texture map path
                BitmapPath = LoadData in_file   " -> "   1
                
                 -- 读出uv Vertex 的数量
                temp_size = LoadData in_file  " : "   0
                append Vert_UV_Size temp_size
                
                 -- uv的数据
                 for  i = 1   to  temp_size  do
                (
                    append Vert_UV (readValue in_file)
                )
                
                 -- uv face的 数量
                temp_size == LoadData in_file   " : "   0
                append Face_UV_Size temp_size
                
                 for  i = 1   to  temp_size  do
                (
                    append Face_uv (readValue in_file)
                )
                
            )
        )
        close in_file
        
    )
    meditmaterials[ 1 ].ambient = _Material_Ambient
    meditmaterials[ 1 ].diffuse = _Material_Diffuse
    meditmaterials[ 1 ].shaderbyname = _Material_type
    meditmaterials[ 1 ].specular = _material_specular
    meditmaterials[ 1 ].specularlevel = _material_specular_lv
    meditmaterials[ 1 ].glossiness = _material_glossiness
    meditmaterials[ 1 ].selfillumcolor = _Material_SelfillumColor
    meditmaterials[ 1 ].selfillumamount = _Material_SelfillumAmount
    meditmaterials[ 1 ].diffuseMapEnable = true
    bmp  = bitmaptexture filename: _Material_DiffTexPath
    meditmaterials[ 1 ].diffusemap = bmp

    new_mesh  =  mesh vertices:vert_array faces:face_array  -- materialIDs:#( 0 , 1 ) tverts:vert_uv
     for  f  =   1   to  num_face  do
    (
        setFaceSmoothGroup new_mesh f sgroup_array[f]
        setFaceMatID new_mesh f matid_array[f]
        setEdgeVis new_mesh f  1  edge_array[f][ 1 ] 
        setEdgeVis new_mesh f  2  edge_array[f][ 2 ] 
        setEdgeVis new_mesh f  3  edge_array[f][ 3 ] 
    )
    myTransform  =  new_mesh.transform
    new_mesh.transform.row1  =  tm_row1[ 1 ]
    new_mesh.transform.row2  =  tm_row2[ 1 ]
    new_mesh.transform.row3  =  tm_row3[ 1 ]
    new_mesh.transform.row4  =  tm_row4[ 1 ]

    new_mesh.name = (nodename  as   string )
    
    new_mesh.material = meditmaterials[ 1 ]
        
    meshop.setMapSupport new_mesh  0   true
    meshop.setMapSupport new_mesh  1   true
    
     -- set  vertex uv  for  every vertex
    meshop.setNumMapVerts new_mesh  1  Vert_UV_Size[ 1 ] keep: false
     for  i = 1   to  Vert_UV_Size[ 1 ]  do
    (
        meshop.setMapVert new_mesh  1  i Vert_UV[i]
    )
    
     -- set  face uv  for  every face
    meshop.setnummapfaces new_mesh  1  Face_UV_Size[ 1 ] keep: false
     for  i = 1   to  Face_UV_Size[ 1 ]  do
    (
        meshop.setMapFace new_mesh  1  i Face_UV[i]
    )

    update new_mesh
    
)

以下是导出插件：
到处插件很容易写，导入插件花了2倍于导出的时间

--  export by sssa2000
macroScript ExportGeo category: " HowTo2 "
(
    fn GetGeometry o  =  
    (
    
    Superclassof o  ==  Geometryclass  and  classof o ! =  TargetObject 
    )

    fn DumpMaterial m file =
    (
     -- 只对Standard类型的材质处理
     -- 获得diffuse  and  diffuse map
        ismat = iskindof m material 
         if  ismat  then
        (
            
            name = m.name
            format  " Material Name-> %/n "  name  to : file
            
            class_of_mat = classof m
             -- messagebox class_of_mat
             if  (class_of_mat ) == Standardmaterial  then
            (
                
                type = m.shaderByName 
                format  " Material Type->%/n "  type  to : file
                
                _ambient = m.ambient
                format  " Ambient Value->%/n "  _ambient  to :file
                
                diffuse_value = m.diffuse
                format  " Diffuse Value->%/n "  diffuse_value  to :file
                
                _specular = m.specular 
                format  " Specular Value->%/n "  _specular  to :file
                
                _specularLevel  = m.specularLevel 
                format  " SpecularLevel Value->%/n "  _specularLevel  to :file
                
                
                _Glossiness = m.Glossiness 
                format  " Glossiness Value->%/n "  _Glossiness  to :file
                
                _selfIllumColor  = m.selfIllumColor 
                format  " SelfIllumColor Value->%/n "  _selfIllumColor  to :file
                
                _selfIllumAmount  = m.selfIllumAmount 
                format  " SelfIllumAmount Value->%/n "  _selfIllumAmount  to :file
                
                
                diffuse_map_path = m.diffusemap.filename
                format  " Diffuse Map Path->%/n "  diffuse_map_path  to :file
            )
        )
        format  " /n "   to : file
    )
     --/
    obj  =  pickobject  filter :GetGeometry
    
     if  isValidNode obj  then
    (
        nodename = obj.name
         -- First export the matrix
        row1 = obj.transform.row1
        row2 = obj.transform.row2
        row3 = obj.transform.row3
        row4 = obj.transform.row4
        
        tmesh  =  snapshotAsMesh obj 
        out_name  =  GetSaveFileName()
         if  out_name ! =  undefined  then
        (
            out_file  =  createfile out_name

            format  " Node Name: %/n "  nodename  to : out_file
            format  " /n "   to : out_file
             --******************************************************
             --  material info
            node_material = obj.material
            num_sub_material = getNumSubMtls obj.material
            DumpMaterial obj.material out_file
             for  y = 1   to  num_sub_material  do
            (
                sub_mat = getSubMtl obj.material y
                DumpMaterial sub_mat =  out_file
            )
             --******************************************************

            format  " Node TM Row1: %/n "  row1  to : out_file
            format  " Node TM Row2: %/n "  row2  to : out_file
            format  " Node TM Row3: %/n "  row3  to : out_file
            format  " Node TM Row4: %/n "  row4  to : out_file
             --******************************************************
             --  vertex info
            num_verts  =  tmesh.numverts 
            num_faces  =  tmesh.numfaces
            format  " Number of Ver: %/n "  num_verts  to :out_file
             for  v  =   1   to  num_verts  do
                format  " Ver%: %/n "  v (getVert tmesh v)  to :out_file
            format  " /n "   to :out_file
             --***********************************************
             -- face info
            format  " Number of Face: %/n "  num_faces  to :out_file
             for  f  =   1   to  num_faces  do
            (
                face  =  getFace tmesh f
                sgroup  =  getFaceSmoothGroup tmesh f
                matid  =  getFaceMatId tmesh f
                edge1  =  getEdgeVis tmesh f  1
                edge2  =  getEdgeVis tmesh f  2
                edge3  =  getEdgeVis tmesh f  3
                format  " %,%,%,%,%,%/n "  face sgroup matid edge1 edge2 edge3  to :out_file
            )
             --******************************************************
             -- uv info
            channel = meshop.getnummaps tmesh  -- number of texture
            format  " /n "   to : out_file
            format  " Channel Number:%/n "  channel  to :out_file
             for  i = 1   to  (channel - 1 )  do
            (
                
                 --  channel的计数从0开始
                 -- channel  0   is  vertex color so  do   not  export it
                IsSupport = meshop.getMapSupport tmesh i
                 if  IsSupport == true   then
                (
                    format  " Channel ID:%/n "  i  to :out_file
                     if  classof obj.material.maps[i + 1 ] == Bitmaptexture  then
                        format  " Map File Path->%/n "  obj.material.maps[i + 1 ].filename  to : out_file
                     else
                        format  " Map File Path->Null/n "   to : out_file
                    num_uv_ver = meshop.getNumMapVerts tmesh i
                    num_uv_face = meshop.getNumMapFaces tmesh i
                    format  " UVW Vertex Number:%/n "  num_uv_ver  to :out_file
                     for  j = 1   to  num_uv_ver  do
                    (
                        vert_uvw = meshop.getMapVert tmesh i j 
                         -- messagebox (vert_uvw  as   string )
                        format  " % /n "  vert_uvw  to : out_file
                    )
                    format  " UVW Face Number:%/n "  num_uv_face  to :out_file
                     for  o = 1   to  num_uv_face  do
                    (
                        uvw_face = meshop.getMapFace tmesh i o
                        format  " % /n "  uvw_face  to : out_file
                    )
                )
                 else
                (
                     -- format  " Do Not Support Channel %/n "  i  to :out_file
                )
            )
        close out_file
        edit out_name
        )
    
    )

)