Instantcopy(mel)

배치가 끝난 다수의 오브제 일괄 변형에 적용

기존 오브제의 히스토리를 지우면 안된다.

타킷을 모두 선택하고 멜을 실행하면  갯수만큼 인스턴스카피를 할 수 있다.

업그레이드 된 오브제의 이름을 멜의 (적색 위치) 덮어쓰거나 오브제의 이름을 'MM'로 바꾼다.

(쌍차 앰블렘 동전 작업시 만듦)

//before run rename the source  to MM and select all the targets.

global proc instantcopy()
{string $capSel[] = `ls -sl`;
string $sep;
float $rxv,$ryv,$rzv,$txv,$tyv,$tzv,$sxv,$syv,$szv;
$n=0;
for($sep in $capSel){
$txv=eval("getAttr " + $capSel[$n] + ".translateX");
$tyv=eval("getAttr " + $capSel[$n] + ".translateY");
$tzv=eval("getAttr " + $capSel[$n] + ".translateZ");
$rxv=eval("getAttr " + $capSel[$n] + ".rotateX");
$ryv=eval("getAttr " + $capSel[$n] + ".rotateY");
$rzv=eval("getAttr " + $capSel[$n] + ".rotateZ");
$sxv=eval("getAttr " + $capSel[$n] + ".scaleX");
$syv=eval("getAttr " + $capSel[$n] + ".scaleY");
$szv=eval("getAttr " + $capSel[$n] + ".scaleZ");

print("===========================================\n");
print($capSel[$n] + "  \n");
print ($rxv + ", "); print ($ryv + ", "); print ($rzv + ", "); print ($txv + ", "); print ($tyv + ", "); print ($tzv + "\n");
print ($sxv + ", "); print ($syv + ", "); print ($szv + "\n");
select -r MM;

instance; rotate -r $rxv $ryv $rzv; move -r $txv $tyv $tzv; scale -r $sxv $syv $szv; $n++;
 }}
instantcopy;