31 lines
1,012 B
Text
31 lines
1,012 B
Text
|
#usage "<b>run a ULP through all libraries in a directory</b><p>\n"
|
||
|
|
"This is an example how to loop through all libraries in a directory "
|
||
|
|
"and counts the devices.<p>"
|
||
|
|
"Load any library from the library directory and execute the ULP.<p>"
|
||
|
|
"<author>Author: support@cadsoft.de</author><p><p>"
|
||
|
|
|
||
|
|
string a[], cmd;
|
||
|
|
|
||
|
|
|
||
|
|
//-------- main program --------------------------------------------------
|
||
|
|
|
||
|
|
|
||
|
|
if (library) {
|
||
|
|
library(L) {
|
||
|
|
string lbr_path = filedir(L.name);
|
||
|
|
string ulpFile = dlgFileOpen("Select a ULP to run in LBRs", "", "*.ulp");
|
||
|
|
if (!ulpFile) exit(0); // 2006.02.20 librarian@cadsoft.de
|
||
|
|
int n = fileglob(a, lbr_path + "*.lbr");
|
||
|
|
if (n) {
|
||
|
|
for (int xl = 0; xl < n; xl++) {
|
||
|
|
string h;
|
||
|
|
sprintf(h, "OPEN '" + lbr_path + filename(a[xl]) + "';\nRUN '" + ulpFile + "';\n");
|
||
|
|
cmd += h;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
exit (cmd);
|
||
|
|
}
|
||
|
|
|
||
|
|
else dlgMessageBox("Start this ULP from a Library", "OK");
|