maxscript 创建菜单和赋材质

rollout 定制衣柜 "定制衣柜" width:186 height:301
(
	button 'btn1' "测试" pos:[46,150] width:97 height:40 align:#left
	button 'btn2' "赋随机材质" pos:[46,200] width:97 height:40 align:#left
	button 'btn3' "赋随机颜色" pos:[46,240] width:97 height:40 align:#left

-- 	label 'lbl1' "Label" pos:[29,56] width:0 height:0 align:#left
	label 'lbl1' "宽度：" pos:[15,13] width:93 height:37 enabled:true align:#left
	label 'lbl2' "深度：" pos:[15,53] width:93 height:37 align:#left
	label 'lbl3' "高度：" pos:[15,93] width:93 height:37 align:#left 
	spinner 'spn1' "" pos:[73,13] width:86 height:26 range:[0,4000,2000] scale:1 align:#left type:#integer scale:1
	spinner 'spn2' "" pos:[73,53] width:86 height:26 range:[0,800,580] scale:1 align:#left type:#integer scale:1
	spinner 'spn3' "" pos:[73,93] width:86 height:26 range:[0,4000,2600] scale:1 align:#left type:#integer scale:1
	
	on btn1 pressed  do  (
-- 		messagebox(spn4)
	delete geometry
	-- a=box width:2000 length:4000 height:800
	
	width_w=spn1.value/3
		
	Box pos:[0,0,0]  width:18 length:spn2.value height:spn3.value
	Box pos:[width_w,0,0]  width:18 length:spn2.value height:spn3.value
	Box pos:[width_w*2,0,0]  width:18 length:spn2.value height:spn3.value
	Box pos:[width_w*3,0,0] isSelected:on width:18 length:spn2.value height:spn3.value
	Box pos:[0,0,0]  width:spn1.value length:18 height:60
	)
	--赋随机材质
	on btn2 pressed  do ( 
	$
	for cz in $ do cz.material=meditMaterials[random 1 6]	
	--$.material=meditMaterials[random 1 3]
	)
	on btn3 pressed  do ( 
		$
		for cor in $ do cor.wirecolor=color (random 0 255) (random 0 255) (random 0 255)	
		--$.material=meditMaterials[random 1 3]
		)
)

CreateDialog 定制衣柜