MAYA MEL UV Scaler

string $obj[]= `ls -sl`;
ConvertSelectionToUVs;
polyMapCut -ch 1 `ls -sl -flatten`;
select -r $obj;
ConvertSelectionToFaces;
string $obj2[]= `ls -sl -flatten`;
for($i1 = 0; $i1 < size($obj2); $i1++){
   select -r $obj2[$i1];
   ConvertSelectionToUVs;
   float $loca[] = {0,0};
   string $selection[] = `ls -sl -flatten`;
   int $numUVs[] = `polyEvaluate -uv`;
   for($i = 0; $i < size($selection); $i++){
        float $loc[] = `polyEditUV -q -u -v ($selection[$i])`;
        $loca[0] = $loca[0] + $loc[0];
        $loca[1] = $loca[1] + $loc[1];
   }
   $loca[0] = $loca[0] / 4;
   $loca[1] = $loca[1] / 4;
   polyEditUV -pu $loca[0] -pv $loca[1] -su 0.5 -sv 0.5 ;
}
print ("Done");