Batch import of references

[moogy1]

Hello

first off I'm not a good mel scripter...
I would like to create a script that imports all the references in a scene

This is what I have so far...

string $sReFfile[] = file -q -l;
int $i;
for ($i = 0; $i < size($sReFfile); $i++){
print $sReFfile[$i];
file -importReference $sReFfile[$i];
}

My mane problems seems it selects more then I want and can't import

Can anyone help me on this

Thank you

Moogy

[warpcat]

Here's some code that I use:

global proc WC_autoLoadAllReferences()
{
int $b=0;
string $sceneName = file -q -sn; // find the name of the current scene
string $ma_mb_only[];
string $refFileList[] = file -q -l; // get a list of the referenced scenes
for ($a=0; $a < size($refFileList); $a++)
{
if (gmatch $refFileList[$a] "*.m?") // is the reference a .ma or .mb? If so....
{
if (gmatch $refFileList[$a] $sceneName) // if the reference is the scene name, skip
continue;
else
$ma_mb_only[$b++] = $refFileList[$a]; // all other references get added to a new array
}
}
for ($c=0; $c < size($ma_mb_only); $c++) // for each item in our new reference array
{
string $cmd = ("file -ir "" + $ma_mb_only[$c] + """);
catch (eval($cmd)); // this may spit out errors on those references that can't be imported,
} // or on those scenes which have been imported, but sill live in the array, but it won't hurt it.
}

[harrym]

Hey Moogy,
I started out using file -q -l for this sort of thing, and I agree it's a real pain in the rear. Luckily, there's also the -r flag which lists only references. So all you need to do is:

string $allRefs[] = file -q -r;
for ($ref in $allRefs) {
file -ir $ref;
}

There is one additional thing to watch out for - what if there are unloaded references in the scene. Trying to import them will cause an error. If you are concerned about this you can insert the following inside the main for loop, before the file -ir statement.

if (file -q -dr $ref) {
file -lr $ref;
// load it first
}

Hope this is helpful!

-Harry