以下是一个使用 3ds Max 的 MaxScript 语言编写的示例脚本，用于将模型名称、长度、高度和生成缩略图并导出到 Excel 表格中。此脚本仅为示例，实际应用中可能需要根据您的具体需求进行调整和完善。 ```maxscript -- 导入必要的库 try (destroyDialog exportExcelDialog) catch() try (dotNetControl.destroy exportExcelDialog) catch() dotNetClass "System.Windows.Forms.SaveFileDialog" exportExcelDialog exportExcelDialog.Title = "保存 Excel 文件" exportExcelDialog.Filter = "Excel 文件|*.xlsx" exportExcelDialog.InitialDirectory = getSavePath() if exportExcelDialog.ShowDialog() == dotNetClass "System.Windows.Forms.DialogResult" "OK" then ( local filePath = exportExcelDialog.FileName local excelApp = dotNetObject "Microsoft.Office.Interop.Excel.Application" local workbook = excelApp.Workbooks.Add() local worksheet = workbook.Worksheets.Item(1) local selection = selection as array local row = 1 -- 写入行 worksheet.Cells.Item[row, 1].Value2 = "模型名称" worksheet.Cells.Item[row, 2].Value2 = "模型长度" worksheet.Cells.Item[row, 3].Value2 = "模型高度" worksheet.Cells.Item[row, 4].Value2 = "模型缩略图" for obj in selection do ( row += 1 local name = obj.name local boundingBox = obj.boundingBox local length = boundingBox.max.x - boundingBox.min.x local height = boundingBox.max.y - boundingBox.min.y -- 写入数据 worksheet.Cells.Item[row, 1].Value2 = name worksheet.Cells.Item[row, 2].Value2 = length worksheet.Cells.Item[row, 3].Value2 = height -- 生成并写入缩略图（此部分可能需要更多的图像处理逻辑） local thumbnail = generateThumbnail(obj) -- 自定义生成缩略图的函数 worksheet.Cells.Item[row, 4].Picture = thumbnail ) workbook.SaveAs(filePath) workbook.Close(false) excelApp.Quit() ) ``` 上述脚本中，生成缩略图的部分 `generateThumbnail(obj)` 需要您根据具体需求实现，可能涉及到对模型的渲染和图像的处理。 [2024-10-03 14:18:05 | AI写代码神器 | 547点数解答]