#objectselection | Explore Tumblr posts and blogs

objectRenamer.mel Script

/* Author: Beth Barry Original Release: 10/19/2017 Description: objectRenamer.mel is a script that renames object. The user has the option to append each object's object type to the object's creation name or to specify a specific prefix for selected objects. The script will not continuously append the object's object type (i.e. mesh_geo_geo). */

////////////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////// /////////////////////////// DIALOG BOX PROCEDURE /////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////// proc diaBox() { string $sel[] = `ls -sl -tr`;

int $selObjRename_diaBoxSelect = 0; if ($selObjRename_diaBoxSelect == 1) {

} else { //Create name for selection string $objName; string $diaQuestion; $diaQuestion = `promptDialog -title "Object Name" -message "Enter what prefix you want the selection to have:" -button "OK" -button "Cancel" -defaultButton "OK" -cancelButton "Cancel" -dismissString "Cancel"`; // if OK pressed if ($diaQuestion == "OK") { // query the entry typed by the user $objName = `promptDialog -query -text`; selObjRename($objName); } else { error(" No name printed. \n"); quit -ec; } } }

////////////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////// /////////////////////// SUFFIX CREATOR PROCEDURE /////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////// proc string suffixCreator(string $a) {

string $children [] = `listRelatives ($a)`; string $objType; string $suffix;

if (size($children) == 1){ $child = $children[0]; $objType = objectType ($child); print $objType; print (" \n"); } else { $objType = objectType($a); print $objType; print (" \n"); }

// Rename the objects based on the object type.

switch ($objType) { case "mesh": $suffix = "_geo"; break; case "joint" : $suffix = "_jnt"; break; case "camera" : print("Skipping Camera \n"); break; case "transform" : $suffix = "_grp"; break; case "renderBox" : $suffix = "_rBox"; break; case "renderCone" : $suffix = "_rCone"; break; case "renderSphere" : $suffix = "_rSphere"; break; case "nurbsSurface" : $suffix = "_nurbs"; break; case "nurbsCurve" : $suffix = "_curve"; break; case "ambientLight" : case "directionalLight" : case "spotLight" : case "pointLight" : case "areaLight" : case "volumeLight" : $suffix = "_lght"; break; case "locator" : $suffix = "_loc"; break; } return $suffix;

}

////////////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////// //////////////////// DAG OBJECT RENAMER PROCEDURE ////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////// proc string[] dagObjRenamer() { string $sel[] = `ls - tr`; global string $objNames[]; global string $dagNewName; string $prefix; // List the relatives of all the objects in the sel variable, put those objects in a variable, and // retrieve the object type of those objects. for ($obj in $sel){ string $children [] = `listRelatives ($obj)`; string $objType; string $suffix;

$suffix =`suffixCreator($obj)`;

// if object has already been renamed, skip object.

if (endsWith($obj, $suffix)) { print "Object(s) has already been renamed \n"; //continue; } else { $prefix = $obj; $dagNewName = `rename $obj ($prefix + $suffix)`; $sel[0] = $dagNewName; appendStringArray ($objNames, $sel, 1);

}

print ("Dag Proc's $objNames contents are: \n"); print $objNames; print (" \n"); return $objNames;

}

////////////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////// //////////////// SELECTED OBJECT RENAMER PROCEDURE ///////////////////////////// ////////////////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////////////////

proc string[] selObjRename(string $newName) { string $sel[] = `ls -sl -tr`; global string $objNames[]; global string $selObjNewName; int $x = 1; // List the relatives of all the objects in the sel variable, put those objects in a variable, and // retrieve the object type of those objects. for ($obj in $sel){

$suffix =`suffixCreator($obj)`; $selObjNewName = `rename $obj ($newName + "_" + $x + $suffix)`; $sel[0] = $selObjNewName; appendStringArray ($objNames, $sel, 1);

$x++ ; }

print ("Selected Obj's Proc's $objNames contents are: \n"); print $objNames; print (" \n"); return $objNames;

}

////////////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////// //////////////// OBJECT SELECTION & PROCEDURE CONDITION //////////////////////// ////////////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////// proc objectSelect() { // creates sel variable and puts selection in list. global string $dagNewName; global string $selObjNewName; string $sel[] = `ls -sl`;

// If there are objects selected, put those objects in the sel array // and print the number of objects in the array. If there are no // objects selected, put all transform nodes in the scene in the // sel variable and print the phrase "There are no objects selected."

if (size($sel) > 0) { diaBox(); print ("Number of objects in array = " + size($sel) + " \n"); } else if (size($sel) == 0) { dagObjRenamer(); print ("There are no objets selected \n"); }

}

////////////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////// //////////////////////// MAIN CALL PROCEDURE //////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////// proc mainCall() { objectSelect(); }

mainCall();