Great timing ND this is what I had come up with...
It's the same basic idea just used the current work space (project) as the path and it's not a procedure.
Code:
string $sel[] = `ls -sl`;
string $workspace = `workspace -q -fullName`;
for ($obj in $sel)
{
print("Exporting: " + $obj + "to " + $workspace + "/" + $obj + ".obj\n");
select $obj;
file -force -options "groups=1;ptgroups=1;materials=1;smoothing=1;normals=1" -typ "OBJexport" -pr -es ($workspace + "/" + $obj + ".obj");
}
"If I have seen further it is by standing on the shoulders of giants." Sir Isaac Newton, 1675