Select by name filter, update and Matte material global override

try destroydialog ::AutoCamera catch()
 
Rollout AutoCamera "AutoCamera" width:155
(
 
	button bt_SelectCamera "Select Camera"   align:#left  height:30 width:130
	listbox list_cameras "" align:#left height:5 width:130
	button bt_render "Render" border:false align:#center width:206 height:256
 
 
	local theCameras = #()
 
 
	----FUNCTIONS----
	fn FilterCameras  obj = isKindOf obj camera
 
	fn selectCameras =
	(
		selCam = selectByName title:"Pick Camera" filter:FilterCameras showHidden:true
		if selCam != undefined then
		(
			theCameras = selCam
			list_cameras.items = for c in theCameras collect c.name
			)else(
			list_cameras.items = #()
			theCameras = #()
		)
	)--end fn selectCameras
 
 
	----EVENTS----	
	on AutoCamera open do
	(
		camName = $CAM_2_Front 
		for i in camName do 
			(
				if camName isKindOf i camera do 
					(
						camName2
					)
			)
		openSelCam = camName2
		if openSelCam != undefined then
		(
			theCameras = openSelCam
			list_cameras.items = for c in theCameras collect c.name
			)else(
			list_cameras.items = #()
			theCameras = #()
		)
	)--end onOpen
 
	on bt_SelectCamera pressed do
	(
		if theCameras != undefined then selectCameras ()
 
	)--end bt_SelectCamera
 
 
	on bt_Render pressed do
	(
		cam = theCameras[list_cameras.selection]
		fnRender = render camera:cam vfb:false outputwidth:128 outputheight:256
		bt_Render.images = #(fnRender, undefined, 1,1,1,1,1 )
		fnRender
		)
 
)--END ROLLOUT
 
createdialog AutoCamera
 
 
<mxs>

try destroydialog ::CRM catch()
 
Rollout CRM "CRM" width:225
(
	group "Character Def"
		(
		spinner sp_Pose "Pose" type:#integer range:[0,200,currentTime] align:#left across:2 width:100 height:20
		spinner sp_Material "Material" type:#integer range:[0,20,1] align:#right width:100 height:20
 
		edittext tx_Pose readOnly:true align:#left across:2 offset:[0,-5] width:100 height:18
		edittext tx_Material readOnly:true align:#right offset:[0,-5] width:100 height:18
		)
	group "Select and Location"
		(
		button bt_selectFolder "..." tooltip:"Pick path for render" align:#left width:30 offset: [0,0] across:2 height:18
		edittext tx_folder "" readonly:true align:#right height:18 width:165
 
		button bt_SelectGeometry "Select Geometry" align:#right height:30 width:97 across:2
		button bt_SelectCamera "Select Camera"   align:#left  height:30 width:97
		listbox list_geometry "" align:#left  height:5 width:97 across:2 readOnly:true enabled:true
		listbox list_cameras "" align:#right height:5 width:97
		button bt_SelectText "Select MaxText" align:#left height:30 width:97
		listbox list_text "" align:#left  height:5 width:97 readOnly:true enabled:true	
 
		label rend_option "Render:" align:#left across:2
		radiobuttons rad_options "" labels:#("Pose","FaceExpression") align:#left offsets:#([-50,0],[-40,0])
		)
	group "Update - Render"
		(
		button bt_update "Update" align:#left across:2 width: 97 height:30
		button bt_render "Render" align:#right width:97 height:30
		)
 
	local matteMaterial
	local theObjects = #()
	local theCameras = #()
	local outputFolder = undefined
 
	local tpose = "t-pose"
 
	on CRM open do
	(
		matteMaterial = Matte_Shadow_Reflection__mi catch_shadows:false ao_on:false catch_reflections:false
 
		tx_Pose.text = tpose
		tx_Material.text = "undefined"
	)
 
	fn FilterGeometry obj = isKindOf obj geometryClass and not isKindOf obj Targetobject --<<<it should list only geometry objects but it also lists bones in selectByName window for some reason
	fn FilterCameras  obj = isKindOf obj camera
	fn FilterShapes obj = isKindOf obj shape	
 
	on sp_Pose changed ttime do
(
	sliderTime = ttime
 
		if ttime > 0 then (
			tx_Pose.text = if list_text.items[ ttime+1 ] != undefined then list_text.items[ttime+1] else ""
		) else (
			tx_Pose.text = ""		
		)
 
)
 
 
	on bt_SelectGeometry pressed do
	(
		sel = selectByName title:"Pick" filter:FilterGeometry showHidden:true
		if sel != undefined then
		(
			theObjects = sel
			list_geometry.items = for j in theObjects collect j.name
		)else(
			list_geometry.items = #()
			theObjects = #()
		)
	)
 
	on bt_SelectCamera pressed do
	(
		sel = selectByName title:"Pick" filter:FilterCameras showHidden:true
		if sel != undefined then
		(
			theCameras = sel
			list_cameras.items = for j in theCameras collect j.name
		)else(
			list_cameras.items = #()
			theCameras = #()
		)
	)
 
 
 
	on bt_SelectText pressed do
	(
		sel = selectByName title:"Pick Text" filter:FilterShapes showHidden:true
		if sel != undefined then
		(
			theObjects = sel
 
			local arr = #()
			for s in theObjects do (
 
				for w in filterstring s.text "\n" do append arr (substring w 4 (w.count - 2))
 
			)
			list_text.items = arr
 
		)
	)		
 
 
 
	on bt_selectFolder pressed do
	(
		outputFolder = getSavePath()
		if outputFolder != undefined then tx_folder.text = outputFolder else tx_folder.text = "undefined"
	)
 
	on bt_render pressed do 
	(
		if outputFolder == undefined do return messagebox "No Output Folder Selected"
		if theObjects.count == 0 do return messagebox "No Geometry Selected"
		if theCameras.count == 0 do return messagebox "No Camera Selected"
 
		setwaitcursor()
 
 
		cam = theCameras[list_cameras.selection]
		rendName = tx_Pose.text
 
		case rad_options.state of
		(
			1:
			(
				matteObjects = theObjects
				filename = outputFolder + "\\" + rendName + ".png"
			)
			2:
			(
				matteObjects = for j in geometry where finditem theObjects j == 0 collect j
				filename = outputFolder + "\\" + rendName + "-" + "material_name" + ".png"
			)
		)
 
 
		oldMaterials = for j in matteObjects collect #(j, j.material)
 
		matteObjects.material = matteMaterial
 
		render camera:cam vfb:false outputwidth:128 outputheight:256 outputfile:filename
 
		for j in oldMaterials do j[1].material = j[2]
 
		--messagebox ("Image Rendered to:\n" + filename)
 
		setarrowcursor()
	)
)
 
createdialog CRM