select by submaterial

try(DestroyDialog ::mmtlSelector) catch()
rollout mmtlSelector "Select by SubMtl"
(
	local mmtl
	fn filtMtl mat = (isKindOf mat multimaterial or (for r in (refs.dependents mat) where isKindOf r multimaterial collect r).count != 0)
	materialbutton choosemtl "Pick MultiMaterial" pos:[5,5] width:140
	spinner mtlSubs "Sub Material:" type:#integer pos:[5,30] width:140 enabled:off
	button btn "Select Object By Sub-Mtl" pos:[5,50] width:140 enabled:off
	on choosemtl picked mtl do
	(
		if not filtMtl mtl then
		(
			messageBox "Pick Already Assigned Multimaterial Or Some Sub_Material " title:"Warning" beep:off
			choosemtl.text = "Pick MultiMaterial" ; mtlSubs.value = 0 ; mtlSubs.enabled = btn.enabled = off ; mmtl = null
		)
		else
		(
			mmtl = if isKindOf mtl multimaterial then mtl else (for r in (refs.dependents mtl) where isKindOf r multimaterial collect r)[1]
			choosemtl.text = if mmtl.name == "" then mmtl.name = ("MultiMtl_#"+(random 1000 2000) as string) else mmtl.name
			mtlSubs.range = [1, (mmtl.materialList.count), 1] ; mtlSubs.enabled = btn.enabled = on
		)
	)
	on btn pressed do 
	(
		if isKindOf mmtl multimaterial do
		(
			if not MeditUtilities.isMaterialInUse (sub = mmtl.materialList[mtlSubs.value]) then 
			(
				messageBox "This Material Is Not Assigned To Any Object!" title:"Warning" beep:off
			)
			else
			(
				select (refs.dependentNodes sub)
			)
		)
	)
	on choosemtl rightclick do (choosemtl.text = "Pick MultiMaterial" ; mtlSubs.value = 0 ; mtlSubs.enabled = btn.enabled = off ; mmtl = null)
)
createDialog mmtlSelector 150 75 style:#(#style_titlebar, #style_sysmenu, #style_toolwindow)