批量导入OBJ文件
2023-07-03 本文已影响0人
Rayson
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
