Import OBJ Sequence MEL Script

global proc objSequence(string $path, string $fileName, string $objectName, int $frameStart, int $frameEnd, int $repeats){

int $i=1;
for($i=$frameStart;$i<=$frameEnd;$i++){
//String concatenation uses +
string $name=($path+”/”+$fileName+”_”+$i+”.obj”);
file -import -type “OBJ” -namespace “mesh” -options “mo=1″ -pr $name;
}

//Make Visible one per frame frame
//set time to 1 frame
float $myTime=1;//`currentTime -query`;
currentTime  $myTime -update no;

for($i=$frameStart;$i<=$frameEnd;$i++){
//Set Key Frames
setAttr ($objectName+”_”+$i+”.visibility”) off;
setKeyframe  ($objectName+”_”+$i+”.visibility”);
$myTime++;
currentTime  $myTime -update no;
setAttr ($objectName+”_”+$i+”.visibility”) on;
setKeyframe  ($objectName+”_”+$i+”.visibility”);
//Make invisible previus one
if($i!=$frameStart){  //if not the first one
setAttr ($objectName+”_”+($i-1)+”.visibility”) off;
setKeyframe  ($objectName+”_”+($i-1)+”.visibility”);
}
}

}

//usar:  objSequence(“meshes/”,”mesh”,”mesh”,1,30,0);