macroScript ShowMaterials_NewView

category:"Zero"

tooltip:"显示选定对象的材质"

buttontext:"ShowMats"

(

if (selection.count > 0) then

(

sme.Open()

--CREATE A NEW VIEW

numView = (sme.GetNumViews()+1) as string

NewView = sme.GetView(sme.CreateView ("View"+numView))

--POPULATE THE VIEW

for obj in selection do

(

NewView.CreateNode obj.material[0,0]

)

--ARRANGE THE VIEW

actionMan.executeAction 369891408 "40060"

)

else

(

messagebox "Nothing selected!"

)

)