MEL 選択オブジョクト位置と回転値に拘束されたロケーター作成(複数化ジョイントなど)

string $OBJS_01= `ls -sl`;

for( $OBJ in $OBJS_01)
{
select -r $OBJ;

float $obj =`xform -q -a -ws -t $OBJ`;
CreateLocator;
createPrimitive nullObject;
spaceLocator -p $obj[0] $obj[1] $obj[2];
setAttr ".rotatePivotX" $obj[0];
setAttr ".rotatePivotY" $obj[1];
setAttr ".rotatePivotZ" $obj[2];
string $LOC_01= `ls -sl`;
select -cl ;
select -r $OBJ;
select -tgl $LOC_01;
performOrientConstraint 0;
orientConstraint -offset 0 0 0 -weight 1;
pointConstraint -mo -weight 1;
};

string $OBJS_01= `ls -sl`;

for( $OBJ in $OBJS_01)
{
select -r $OBJ;

float $obj =`xform -q -a -ws -t $OBJ`;
CreateLocator;
createPrimitive nullObject;
spaceLocator -p $obj[0] $obj[1] $obj[2];
setAttr ".rotatePivotX" $obj[0];
setAttr ".rotatePivotY" $obj[1];
setAttr ".rotatePivotZ" $obj[2];
string $LOC_01= `ls -sl`;
select -cl ;
select -r $OBJ;
select -tgl $LOC_01;
performOrientConstraint 0;
orientConstraint -offset 0 0 0 -weight 1;
pointConstraint -mo -weight 1;
};