box() --创建box
--创建一个50*50的box阵列
for a in 0 to 50 do ( for i in 0 to 50 do copy $Box001 pos:[25*a,i*25,0] )
--给box的wirecolor设置随机颜色 for i in selection do ( rNumber=random 0 255 i.wirecolor=(color rNumber rNumber rNumber)--(random black white)--color (random 1 255) (random 1 255) (random 1 255) ) --设置box的高度为10-50的随机数 for i in selection do ( i.height=random 10 50 )
原文:http://www.cnblogs.com/amixc/p/3993295.html