MEL Set Pivotで選択オブジェクトのピボット位置をコピー

//Move Pivotで別の選択オブジェクトにピボット位置をペースト　注意スケールは1

string $window = `window -widthHeight 10 10`;
setParent ..;
showWindow $window;
deleteUI -window $window;

window -width 300 -height 135 -title "OBJ pivot" -rtf 1;
columnLayout -adjustableColumn true;
button -label "Set Pivot" -command "string $PO_v= `ls -sl`;\rfloat $vvv =`xform -q -ws -t $PO_v`;"
;
button -label "Move Pivot" -command "makeIdentity -apply true -t 1 -r 0 -s 0 -n 0;\rResetTransformations;\rsetAttr \".rotatePivotX\" $vvv[0];\rsetAttr \".rotatePivotY\" $vvv[1];\rsetAttr \".rotatePivotZ\" $vvv[2];\rsetAttr \".scalePivotX\" $vvv[0];\rsetAttr \".scalePivotY\" $vvv[1];\rsetAttr \".scalePivotZ\" $vvv[2];";
setParent..;

showWindow;