Copy Material Editor

0 votes
Version: 
1.00
Date Updated: 
02/19/2013

Simple script to make a mesh snapshot of Medit materials.

Additional Info: 

Create 24 spheres near origine with corresponding Medit materials, linked to a selected plane for easy manipulation.

Version Requirement: 
works on 2013... in perhaps all versions
AttachmentSize
copy_medit.mcr497 bytes

Comments

Comment viewing options

Select your preferred way to display the comments and click "Save settings" to activate your changes.
titane357's picture

Thanks ! Now it looks like a

Thanks ! Now it looks like a real script !!! :-)

tassel's picture

Smal modifications. Hope it

Smal modifications. Hope it is okay :)

----------------------------------------------------------------------------------------------------------------------------------
-- Copy Material Editor by Titane357 @ www.scriptspot.com
----------------------------------------------------------------------------------------------------------------------------------
	try (destroyDialog ::rol_CmatEd) catch()
 
	rollout rol_CmatEd "Copy Material Editor"
	(
		button btn_CopyMatEd "CopyMatEd" width:115 height:22 tooltip:"Copy Materials in MatEditor + assign to spheres" align:#center
		button btn_DelObjs "Delete Scene Objects" width:115 height:22 tooltip:"Delete All Objects in Scene" align:#center
		HyperLink hl_homepage "..:: Titane357' 2013 ::.." address:"http://www.scriptspot.com/users/titane357" color:(color 255 255 255) hovercolor:(color 111 111 111) visitedcolor:(color 255 255 255) align:#center
 
		on btn_CopyMatEd pressed do
		(
 
				axyzyo = Plane length:6 width:8 lengthsegs:6 widthsegs:8 pos:[3.5,-2.5,0] isSelected:on wirecolor:(color 40 40 40)
				matt = 0
 
				for p = 1 to 4 do 
				(
					for cnt= 1 to 6 do 
					( 
						matt = matt +1
						a = copy meditmaterials[matt] 
						Sphere radius:0.4 smooth:on segs:32 chop:0 slice:off sliceFrom:0 sliceTo:0 mapcoords:on recenter:off wirecolor: black pos:[cnt,-p,0] isSelected:on material:a
						$.parent = axyzyo
					)
				)
				select axyzyo
		)
 
		on btn_DelObjs pressed do
		(
			if (queryBox "Are you sure you want to DELETE ALL OBJECTS in Scene?") == true do
			(
				delete (for obj in objects collect obj)
			)
		)
 
	)
 
	createDialog rol_CmatEd 140 75 100 150 style:#(#style_titlebar, #style_sysmenu, #style_toolwindow)

Raymond H.Ingebretsen - http://www.homme3d.com

Comment viewing options

Select your preferred way to display the comments and click "Save settings" to activate your changes.