delns

global proc delns()
{
//删除namespace
    string $nslist[] = {};
    string $rens[] = {};
    int $j=0;
    $nslist = `namespaceInfo -lon -an `;//print $nslist  print `namespaceInfo -lon -an -r`
    $nslist = stringArrayRemoveDuplicates($nslist);
    $nslist = sort($nslist);
    $nslist = stringArrayRemoveExact({":shared",":UI"},$nslist);
    do
    {
        namespace -set ":";
        for ($i=0;$i<`size $nslist`;$i++)
        {
            int $cat = catch(`namespace -f -mv $nslist[$i] ":"`);
            if ($cat==1)
            {
                $rens[$j] = $nslist[$i];
                $j++;
                continue;
            }
            namespace -rm $nslist[$i];
            print ("remove namespace "+$nslist[$i]+"\n"); 
        }
        $nslist = `namespaceInfo -lon -an `;
        $nslist = stringArrayRemoveDuplicates($nslist);
        $nslist = sort($nslist);
        $nslist = stringArrayRemoveExact({":shared",":UI"},$nslist);
        $nslist = stringArrayRemove($rens,$nslist);
    }
    while(`size $nslist`!=0);
}