Upload

README.md

@@ -0,0 +1,13 @@
+# Ztools-Vray-MultiMatteElements-Assistant
+3ds Max tool  to assist when creating Vray MultiMatteElements
+
+Its a macroscript developed for 3ds Max and Vray
+
+Tested in 3ds max 2013, 2014, 2015 and Vray 2.4, 3.0, 3.1
+
+copy: the *.mcr file to: C:\Users\--User--\AppData\Local\Autodesk\3dsMax\2015- 64bit\ENU\usermacros\
+
+copy the icons to: C:\Users\--User--\AppData\Local\Autodesk\3dsMax\2015 - 64bit\ENU\usericons\
+
+
+In the customize tab, you can find the button in the Ztools category. Just create a new menu and drag the icon.

Ztools_MultiMatteElement_Assistant_v1_0.mcr

@@ -0,0 +1,250 @@
+macroScript MultiMatteElement_Assistant 
+	category:"Ztools"
+	toolTip:"MultiMatteElement_Assistant"
+	buttontext:"MultiMatteElement_Assistant"
+	Icon:#("ZMA", 1)
+(
+	-- Ztool - Vray MultiMatteElement Assistant for 3ds Max
+	--Created by Jose Alejandro Enriquez 
+	-- version 1.0
+	-- 26 / 01 / 2015
+
+	--seleccionar objetos por nombre
+	listName = ""
+	elements = #()
+	allObj = #()
+	autoselect = $*
+	elementName="Matte_"
+	listenerInfoChecker = 0
+	rule = ""
+	removeElements = 0
+	print elements.count
+	--add items to the allobj array if the pass the filter
+	fn filterElement  =
+	(
+		for i in autoselect do
+		(
+			y = i.name
+			x = findString  y rule
+			w = findString i.name "Target"
+			if  x != undefined and superclassof i == GeometryClass and w == undefined then
+			(
+				append allObj i	
+			)
+
+			else if superclassof i == GeometryClass then
+			(
+				if listenerInfoChecker == 1 then
+				(
+					errorMessage = "Sorry, the item doesn't match the requirements: " + y
+					print errorMessage
+				)
+			)		
+
+			else
+			(
+				--errorMessage = "Item is not GeometryClass: " + y + ", Ignored"
+				--print errorMessage
+				--print i.name as string
+			)
+
+		)
+	)
+
+	--Crea el pase de acuerdo a elementName generado en nameCreation()
+	fn elementCreation elementName =
+	(
+		re = maxOps.GetCurRenderElementMgr()
+		pass = MultiMatteElement
+		adpElementName = replace elementName (elementName.count) 1 ""
+
+		re.addrenderelement (MultiMatteElement elementname:adpElementName)
+	)
+
+
+	--Filtra y crea una lista de acuerdo al nombre
+
+
+	fn executeClassification =
+	(
+		for i in allObj do
+		(
+
+			global listName, elements
+			objName = i.name 
+			SplitName = filterstring objName rule
+			listName = SplitName[1]	
+			appendIfUnique elements listName
+			indexObj = findItem elements listName		
+			i.gbufferchannel = indexObj
+
+		)	
+	)
+
+	--Crea nombres de pases, y agrega ID a los render elements
+
+	fn nameCreation elements =
+	(
+		elementName = "Matte_"
+		bufferCount = 0
+		elementCount = 1
+		elements.count
+		idAsigned = 0
+
+		for i in elements do
+		(
+			 i as string
+			elementName += i + "_"
+			bufferCount += 1
+			secondVal = bufferCount - 2
+			if mod bufferCount  3 ==  0  then
+			(
+				elementCreation(elementName)
+
+				re=maxOps.GetCurRenderElementMgr()
+				x = re.numrenderelements()
+				w = x - 1
+				k = re.GetRenderElement w
+				elementCount += 1			
+				k.R_gbufID = bufferCount - 2
+				k.G_gbufID = bufferCount - 1
+				k.B_gbufID = bufferCount
+
+				idAsigned += 3			
+				elementName = "Matte_"
+
+			)
+
+
+			else if mod secondVal 3 == 0 and elements.count - idAsigned == 2  then
+			(						
+				x = elements.count - idAsigned	
+				y = x as string + " este es"
+				print y
+				elementCreation(elementName)
+				re=maxOps.GetCurRenderElementMgr()
+				x = re.numrenderelements()			
+				w = x - 1
+				k = re.GetRenderElement w
+				print k as string
+				elementCount += 1			
+				k.R_gbufID = bufferCount - 1
+				k.G_gbufID = bufferCount 
+				k.B_gbufID = 0
+				k.B_gbufIDOn = False
+
+			)
+			else if elements.count - idAsigned == 1 then
+			(			
+				elementCreation(elementName)
+				re=maxOps.GetCurRenderElementMgr()
+				x = re.numrenderelements()
+				w = x - 1
+				k = re.GetRenderElement w
+				elementCount += 1			
+				k.R_gbufID = bufferCount 
+				k.G_gbufID = 0
+				k.G_gbufIDOn = False
+				k.B_gbufID = 0
+				k.B_gbufIDOn = False
+			)
+
+			else 
+			(
+
+			)
+
+		)
+
+	)
+
+	rollout MME "Ztool - Vray MultiMatteElement Assistant " width: 300 height:120
+	(
+		global listenerInfoChecker, removeElements
+		checkbox listenerInfo "Print Log to MaxScript Listener" checked:False
+		on listenerInfo changed state do
+		if state == True then
+		(
+			listenerInfoChecker = 1
+		)
+		else
+		(
+			listenerInfoChecker = 0
+		)
+
+		checkbox deleteOld "Delete current Render Elements (All of them)"
+		on deleteOld changed state do
+			if state == True then
+			(
+				removeElements = 1
+			)
+			else
+			(
+				removeElements = 0
+			)
+
+		group "By Name"
+		(
+			edittext ruleBox "Name's rule(ex: - . _)" fieldwidth:50 labelOnTop: False
+			on ruleBox entered txt do
+			(
+				if txt != "" then
+				(
+					global rule
+					rule = txt as string
+				)
+
+				else
+				(
+					messagebox = "Missing Rule" 
+				)
+			)
+
+
+			button btn1 "Execute" width: 100 height:25
+		)
+		on btn1 pressed do
+		(
+			if rule == ""then
+			(
+				messagebox "Missing Rule"
+			)
+			else
+			(
+
+				if removeElements == 1 then
+				(
+
+					re=maxOps.GetCurRenderElementMgr()
+					re.RemoveAllRenderElements()					
+				)
+				else
+				(
+				)
+
+				filterElement()
+				executeClassification()
+				nameCreation(elements)			
+				DestroyDialog MME
+				if renderSceneDialog.isOpen() then
+				(
+					renderSceneDialog.close()
+					renderSceneDialog.open()
+				)
+				else
+				(
+				)
+			)
+
+		)
+	)
+	createDialog MME
+
+
+
+
+
+
+
+
+)