選択以下の全てのジョイントにスケールを伝播(MEL)

{
    string $Sel[] =`ls -sl`;
    string $tmpSel,$tmp;
    int $Set = 0;
    for($tmpSel in $Sel){
        if(`objectType $tmpSel`=="joint"){
            setAttr ($tmpSel +".segmentScaleCompensate") $Set;
        }
        string $Joint[] = `listRelatives -ad -type "joint" -pa`;
        for($tmp in $Joint){
            setAttr ($tmp +".segmentScaleCompensate") $Set;
        }
    }
}