在max中 写一段可视化程序，用一个“选择目录”按钮，选择路径，将该路径下所有的mtl文件中所有的贴图名称读取导出到一个与所属目录同名的txt文件中，如有重复贴图则只导出一次文件名

在MAX(即3ds Max)中，创建这样的可视化程序需要利用MAXScript编写脚本来实现交互功能。MAXScript是3ds Max内置的一种强大的脚本语言，可以用来控制模型、材质和渲染等操作。以下是一个简单的示例，说明如何用MAXScript实现这个需求：

// 导入所需的MAXScript模块
import "System.IO"
import "3dsMAXsdk"

; 定义函数，用于获取指定路径下的所有mtl文件并提取贴图名称
function ExtractTextureNames(path)
{
    // 创建一个集合来存储唯一的贴图名称
    Set textures = {}
    
    ; 遍历指定路径下的所有文件
    foreach file (Directory.GetFiles(path, "*.mtl"))
    {
        ; 打开mtl文件
        using (StreamReader reader = File.OpenText(file))
        {
            ; 读取每行内容，查找"map_Kd"这种代表贴图的标签
            while (!reader.EndOfStream)
            {
                line = reader.ReadLine()
                if (line =~ "map_Kd")
                {
                    textureName = SubStr(line, Instr(line, " ") + 1, -1) ' 提取贴图名
                    if Nottextures.Contains(textureName)
                        textures.Add(textureName)
                }
            }
        }
    }
    
    return textures
}

; 主函数，处理用户的选择
ButtonCommand("Select Directory") {
    dialogResult = DialogBox("Please select a directory", "Choose Directory", "", DIALOG_OK | DIALOG_FILESELECTOR)
    
    if dialogResult <> OK
        return
    
    selectedPath = GetLastFileName(dialogResult)
    
    if selectedPath <> ""
    {
        textureNames = ExtractTextureNames(selectedPath)
        
        ; 创建txt文件名，并避免重复
        fileNameWithoutExtension = Path.GetFileNameWithoutExtension(selectedPath) & "_Textures.txt"
        outputFilePath = JoinPaths(Path.GetDirectoryName(selectedPath), fileNameWithoutExtension)
        
        // 写入文本文件
        using (StreamWriter writer = File.CreateText(outputFilePath))
        {
            for each textureName in textureNames
            {
                writer.WriteLine(textureName)
            }
        }

        MessageBox("Done! Texture names exported to " & outputFilePath)
    }
    else
    {
        MsgBox("No path was selected.")
    }
}