tools/MayaTools/Maya4.0/scripts/SimpsonsArt/setShapeNode.mel


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

global proc setShapeNode()
{
	string $objects[] = `ls -sl -tr`;
	print ("\n");
	print $objects;
	for($object in $objects)
	{
		string $shapes[] = `ls -dag -lf $object`;
		print ("\n");
		print $shapes;
		for($shape in $shapes)
		{
			string $parents[] = `listRelatives -p $shape`;
			rename $shape ($parents[0]+ "Shape");
		}
	}
}