Material ID (Mel Script)

This script for assign material easily

CODE

   if (`window -ex frmMaterialID` != true)
        {
window -w 310 -h 360 -t ("Assign Material ID Ver 1.3 by Vorasorn Ketlek") -in "cometRename" -s true -tb true frmMaterialID;

columnLayout  cr_mainCol;
  rowColumnLayout -nc 2 ;
       button -w 120 -h 40 -l "Face To UV Shell" -c "polySelectBorderShell 0;";
   
       setParent ..;
  rowColumnLayout -nc 6 ;
       button -l "" -c " vfn_MaterialID(1,0,0); " -w 40 -h 40 -bgc 1 0 0;
       button -l "" -c " vfn_MaterialID(1,1,0); "-w 40 -h 40 -bgc 1 1 0;
       button -l "" -c " vfn_MaterialID(0,1,0); "-w 40 -h 40 -bgc 0 1 0;
       button -l "" -c " vfn_MaterialID(0,1,1); "-w 40 -h 40 -bgc 0 1 1;
       button -l "" -c " vfn_MaterialID(0,0,1); "-w 40 -h 40 -bgc 0 0 1;              
       button -l "" -c " vfn_MaterialID(1,0,1); "-w 40 -h 40 -bgc 1 0 1;

       button -l "" -c " vfn_MaterialID(0.5,0,0); " -w 40 -h 40 -bgc 0.5 0 0;
       button -l "" -c " vfn_MaterialID(0.5,0.5,0); "-w 40 -h 40 -bgc 0.5 0.5 0;
       button -l "" -c " vfn_MaterialID(0,0.5,0); "-w 40 -h 40 -bgc 0 0.5 0;
       button -l "" -c " vfn_MaterialID(0,0.5,0.5); "-w 40 -h 40 -bgc 0 0.5 0.5;
       button -l "" -c " vfn_MaterialID(0,0,0.5); "-w 40 -h 40 -bgc 0 0 0.5;              
       button -l "" -c " vfn_MaterialID(0.5,0,0.5); "-w 40 -h 40 -bgc 0.5 0 0.5;

       button -l "" -c " vfn_MaterialID(0.25,0,0); " -w 40 -h 40 -bgc 0.25 0 0;
       button -l "" -c " vfn_MaterialID(0.25,0.25,0); "-w 40 -h 40 -bgc 0.25 0.25 0;
       button -l "" -c " vfn_MaterialID(0,0.25,0); "-w 40 -h 40 -bgc 0 0.25 0;
       button -l "" -c " vfn_MaterialID(0,0.25,0.25); "-w 40 -h 40 -bgc 0 0.25 0.25;
       button -l "" -c " vfn_MaterialID(0,0,0.25); "-w 40 -h 40 -bgc 0 0 0.25;              
       button -l "" -c " vfn_MaterialID(0.25,0,0.25); "-w 40 -h 40 -bgc 0.25 0 0.25;
            setParent ..;

showWindow frmMaterialID;
}
        else // else just pop it up from being minimized again
    {
   showWindow frmMaterialID;
}

global proc vfn_MaterialID(float $red,float $green,float $blue)
{
     string $sel[] =`ls -sl`;
     string $materialName = `shadingNode -n ($sel[0]+"_MT") -asShader surfaceShader`;
     setAttr ($materialName+".outColor") -type double3 $red $green $blue;
   
     select -r  $sel;
     hyperShade -assign $materialName;
   
 
}