Изменение свойств материалов

( 
m = getclassinstances CoronaMtl
join m (getclassinstances standardmaterial) 
join m (getclassinstances  VrayMtl) 
	
if m.count ==0 do return 0 
local SwithState=m[1].showInViewport 
for i in m do 
( 
	try(showTextureMap i i.texmapDiffuse true)catch()
	try(showTextureMap i true)catch()
) 
)

rollout test "Material Editor. Active Slot." width:220 height:40
(spinner sp_map_channel "Map Channel:" range:[1, 99, 1] pos:[5,10] scale:1 fieldwidth:50 type:#integer
button btn_apply "Apply" pos:[150,7]; on btn_apply pressed do
(maps = getClassInstances bitmaptexture target:meditMaterials[activeMeditSlot]
for m in maps do m.coords.mapChannel=sp_map_channel.value )); createdialog test

-- tested in 3DMax 2014
(
rollout MapsFinder "MapsFinder"
(
--Variables Declerations
--------------------------------
global FindMat = #()
global FindMatName = #()

--Function
---------------------------------

--Interface
--------	
dropDownList ddl1 "Select type map:" items:#("ColorCorrect", "Color Edge", "Checker", "Color_Correction", "Cellular") selection:1
button bnFind "Analyze" width:300 
listbox ListMat "Please use DoubleClick for getting mat:"  height:43
button bnGetMat "Get materials to MatEditor" width:150  across:2
button bnSelObj "Select all objects " width:150 
-------------------
)
--createDialog MapsFinder
MapsFinder_float = newRolloutFloater "MapsFinder" 350 730 
addRollout MapsFinder MapsFinder_float
)

asd = getclassinstances ColorCorrect

#(Map #3:ColorCorrect, Map #5:ColorCorrect, Map #7:ColorCorrect)

Александр ЯкушевИли только перебор всех материалом с проверкой на наличие colorcorrect?

asd=for m in scenematerials where (getclassinstances ColorCorrect target:m).count>0 collect m

-- tested in 3DMax 2014
(
rollout MapsFinder "MapsFinder"
(
--Variables Declerations
--------------------------------
global FindMat = #()
global FindMatName = #()

--Function
---------------------------------
fn theAllMat = 
(		
		local allMat = #()
		allMat = scenematerials
		for i in meditMaterials do appendIfUnique allMat i
		for i in objects do if i.material != undefined do appendIfUnique allMat i.material
		return allMat
	)
	
fn find_ColorCorrect mat =
	(
		for m in theAllMat() where (getclassinstances ColorCorrect target:m).count>0 do 
		(
			if (appendIfUnique FindMat m)== true do append FindMatName m.name
			)
	)
		
		
fn find_Checker mat =
	(
		for m in theAllMat() where (getclassinstances Checker target:m).count>0 do 
		(
			if (appendIfUnique FindMat m)== true do append FindMatName m.name
			)
	)

fn find_Color_Edge mat = 
	(
		for m in theAllMat() where (getclassinstances Color_Edge target:m).count>0 do 
		(
			if (appendIfUnique FindMat m)== true do append FindMatName m.name
			)
	)
fn find_Color_Correction mat = 
	(
		for m in theAllMat() where (getclassinstances Color_Correction target:m).count>0 do 
		(
			if (appendIfUnique FindMat m)== true do append FindMatName m.name
			)
	)
fn find_Cellular mat = 
	(
		for m in theAllMat() where (getclassinstances Cellular target:m).count>0 do 
		(
			if (appendIfUnique FindMat m)== true do append FindMatName m.name
			)
	)	
	
--Interface
--------	

dropDownList ddl1 "Select type map:" items:#("ColorCorrect", "Color Edge", "Checker", "Color_Correction", "Cellular") selection:1

button bnFind "Analyze" width:300 

listbox ListMat "Please use DoubleClick for getting mat:"  height:43
		
button bnGetMat "Get materials to MatEditor" width:150  across:2
button bnSelObj "Select all objects " width:150 
		
		
-------------------
	on bnFind pressed do 
	(	
		FindMat = #()
		FindMatName = #()
		
		if ListMat.items != 0 do ListMat.items = #()
		
		case ddl1.selection of 
		(
			1: find_ColorCorrect m 
			2: find_Color_Edge m 
			3: find_Checker m
			4: find_Color_Correction m 
			4: find_Cellular m
		)
	
		if FindMat.count != 0 then ListMat.items = FindMatName
	)
--------------------	
	on bnGetMat pressed do 
	(	
		try(
			for i = 1 to FindMat.count do meditmaterials[medit.GetActiveMtlSlot() + i - 1]   = FindMat[i]
			)catch()
	)
-------------------
	on bnSelObj pressed do
	(
		local NeedObj = #()
		for m in FindMat do join NeedObj (refs.dependentNodes m)
		select NeedObj
		)
	
	
	on ListMat doubleClicked i do
	(
		for m in FindMat do
			if m.name == (ListMat.items[i]) do meditmaterials[medit.GetActiveMtlSlot()]  = m
		)

)
--createDialog MapsFinder
MapsFinder_float = newRolloutFloater "MapsFinder" 350 730 
addRollout MapsFinder MapsFinder_float
)

fn recMatBlurDiffuse mat  blurVal=
(
    if mat != undefined do
    (
        if iskindof mat texturemap do mat.coords.blur = blurVal
        if mat.numsubs != 0 do for i = 1 to mat.numsubs do recMatBlurDiffuse mat[i]  blurVal
        )
    )   
for i in theAllMat() do recMatBlurDiffuse i  0.5

for i in getclassinstances Bitmaptexture do try(i.coords.blur = 0.4)catch()

fn recMapBlurDiffuse mat blurVal=
(
if mat != undefined do
(
if iskindof mat Bitmaptexture do mat.coords.blur = blurVal
if mat.numsubs != 0 do for i = 1 to mat.numsubs do recMapBlurDiffuse mat[i] blurVal
)
)

fn recMatBlurDiffuse mat blurVal=
(
if mat != undefined do
(
if findString (mat as string) "Diffuse_Color__Map"==9 do recMapBlurDiffuse mat blurVal
if mat.numsubs != 0 do for i = 1 to mat.numsubs do recMatBlurDiffuse mat[i] blurVal
)
)

for i in scenematerials do recMatBlurDiffuse i  0.5

if findString (mat as string) "Diffuse_Color__Map"==9 do recMapBlurDiffuse mat blurVal

if findString (mat as string) "Diffuse_Color__Map"==9 do mat.coords.blur = blurVal

Спасибо igorznag за помощь, но немного не работает. Помоги разобраться, пожалуйста.

Александр ЯкушевПрилагаю скриншот ошибки. Помогите разобраться, пожалуйста.

for i in getclassinstances Bitmaptexture do try(i.coords.blur = 0.4)catch()

Не подскажете, можно ли как-то использовать подобный код?

fn recMatBlurDiffuse mat blurVal=
(
if mat != undefined do
(
if findString (mat as string) "Diffuse_Color__Map"==9 do
for i in getclassinstances Bitmaptexture target:mat do try(i.coords.blur = blurVal)catch()
if mat.numsubs != 0 do for i = 1 to mat.numsubs do recMatBlurDiffuse mat[i] blurVal
)
)

for i in scenematerials do recMatBlurDiffuse i  0.5

-- tested in 3DMax 2014
try destroyDialog editBlur catch()
rollout editBlur "EditBlurMat"
(
--function
fn theAllMat =
(       
        local allMat = #()
        allMat = scenematerials
        for i in meditMaterials do appendIfUnique allMat i
        for i in objects do if i.material != undefined do appendIfUnique allMat i.material
        allMat
    )
fn recMatBlurDiffuse mat blurVal nameMap =
(
    if mat != undefined do
    (
    if (findString (mat as string) nameMap == 9 or findString (mat as string) nameMap == 16) do try(for i in getclassinstances Bitmaptexture target:mat do i.coords.blur = blurVal)catch()
    if mat.numsubs != 0 do for i = 1 to mat.numsubs do recMatBlurDiffuse mat[i] blurVal nameMap
    )
)
--Interface
dropDownList ddl1 "" items:#("Diffuse", "Reflection", "Refraction", \
    "Bump", "Displacement", "Opacity") selection:1 across:3
spinner theBlurVal "Blur:" range:[0,40, 1] type:#float
button addToList  "Add to list"   
listbox ListMap ""  height:4
button theGo "Execute"
       
-------------------
global theListData = #()
on execute editBlur do theListData = #()
on addToList  pressed do
(
    ListMap.items = append ListMap.items  (ddl1.selected + "  blur - " + (theBlurVal.value as string))
    append theListData    #(ddl1.selected, theBlurVal.value)
    )   
on theGo pressed do
    for mat in theAllMat() do    for i in theListData do recMatBlurDiffuse mat i[2] i[1]
)
createDialog editBlur width:280

fn compareMat m1 m2 =
(
    try(if m1.diffuseMap.fileName == m2.diffuseMap.fileName then return 1 else return 0)catch(return 0)
    )
 
    theMatArray = getclassinstances Standardmaterial
    for i = 1 to theMatArray.count do
        for j = 1 to theMatArray.count do
            if i != j do if (compareMat theMatArray[i] theMatArray[j]) == 1 do theMatArray[i] = theMatArray[j]

fn compareMat m1 m2 =
(
    try(if m1.diffuseMap.fileName == m2.diffuseMap.fileName then return 1 else return 0)catch(return 0)
    )
 
    theMatArray = getclassinstances Standardmaterial
    for i = 1 to theMatArray.count do
        for j = 1 to theMatArray.count do
            if i != j do if (compareMat theMatArray[i] theMatArray[j]) == 1 do replaceInstances theMatArray[i] theMatArray[j]