'Made by Padovan Andrea & Pieroni Daniele -- PLAYSTOS entertainment
'Date 06-04-2002 19:13
'////////////////////////////MAIN//////////////////////////////////
	
dim xmin, ymin, zmin, xmax, ymax, zmax 
dim list, object
set list = GetValue( "SelectionList" ) 

for each object in list
GetBBox object, FALSE, xmin, ymin, zmin, xmax, ymax, zmax 

dim centerX, centerY, centerZ

centerX = (xmin + xmax) / 2
centerY = (ymin + ymax) / 2
centerZ = (zmin + zmax) / 2 

LogMessage object & " X " & centerX & " Y " & centerY & " Z " & centerZ

Translate object, centerX, centerY, centerZ, siAbsolute, siView, siCtr, siXYZ

next