You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
90 lines
2.7 KiB
Plaintext
90 lines
2.7 KiB
Plaintext
15 years ago
|
#usage "<nobr>This ULP generates a script to clear layer(s) in library.<p>"
|
||
|
|
"run clear-layer-in-lbr.ulp [YES] <b>layer</b> [layer] [layer] ....<br>"
|
||
|
|
"YES = clear without confirmation.<br>"
|
||
|
|
"Clear only layer in packages</nobr>"
|
||
|
|
"<p>"
|
||
|
|
"<author>Author: support@cadsoft.de</author>"
|
||
|
|
|
||
|
|
// Version 1.01 -- 2008-04-10 changed GROUP ... (>x y); alf@cadsoft.de
|
||
|
|
|
||
|
|
// ---------- parameter section -------------------------------------
|
||
|
|
|
||
|
|
string clrscript = "~clear~.scr";
|
||
|
|
string scriptfile;
|
||
|
|
|
||
|
|
int layer_visible[];
|
||
|
|
int clear_layer[];
|
||
|
|
|
||
|
|
int cnt = 1;
|
||
|
|
int clear_outo = 0;
|
||
|
|
string s;
|
||
|
|
|
||
|
|
|
||
|
|
// **** main ****
|
||
|
|
if (library) {
|
||
|
|
string cmd;
|
||
|
|
if (argc < 2) {
|
||
|
|
dlgMessageBox("<nobr>Start this ulp from command line with parameter</nobr><p>Usage:<br>" + usage, "OK");
|
||
|
|
exit(0);
|
||
|
|
}
|
||
|
|
if (argv[1] == "YES") { cnt = 2; clear_outo = 1; }
|
||
|
|
for (int n = cnt; n <= argc; n++) {
|
||
|
|
clear_layer[n] = strtol(argv[n]);
|
||
|
|
cmd += argv[n] + "\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
library(L) {
|
||
|
|
L.layers(LY) {
|
||
|
|
layer_visible[LY.number] = LY.visible;
|
||
|
|
}
|
||
|
|
scriptfile = filedir(L.name) + clrscript;
|
||
|
|
output(scriptfile, "wtD") {
|
||
|
|
printf("GRID MM FINEST;\nDISPLAY NONE ");
|
||
|
|
for (int n = cnt; n < argc; n++) {
|
||
|
|
printf(" %d", clear_layer[n]);
|
||
|
|
if (clear_layer[n] == 21) {
|
||
|
|
printf(" -23 -25 -27 -51");
|
||
|
|
}
|
||
|
|
if (clear_layer[n] == 22) {
|
||
|
|
printf(" -24 -26 -28 -52");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
printf(";\n");
|
||
|
|
|
||
|
|
L.packages(P) {
|
||
|
|
// extended with .PAC ## 22.03.2005 support@cadsoft.de
|
||
|
|
sprintf(s, "Edit %s.PAC;\nCHANGE LAYER %d;\nRECT (%.4f %.4f)(%.4f %.4f);\nGROUP (%.4f %.4f) (%.4f %.4f) (%.4f %.4f) (%.4f %.4f) (>%.4f %.4f);\nDELETE (>%.4f %.4f);\n",
|
||
|
|
P.name,
|
||
|
|
clear_layer[cnt],
|
||
|
|
u2mm(P.area.x1)/2, u2mm(P.area.y1)/2,
|
||
|
|
u2mm(P.area.x2)/2, u2mm(P.area.y2)/2,
|
||
|
|
u2mm(P.area.x1), u2mm(P.area.y1),
|
||
|
|
u2mm(P.area.x2), u2mm(P.area.y1),
|
||
|
|
u2mm(P.area.x2), u2mm(P.area.y2),
|
||
|
|
u2mm(P.area.x1), u2mm(P.area.y2),
|
||
|
|
u2mm(P.area.x1), u2mm(P.area.y1),
|
||
|
|
u2mm(P.area.x1), u2mm(P.area.y1) );
|
||
|
|
if (clear_outo) {
|
||
|
|
printf("%s", s);
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
if (dlgMessageBox("clear layer(s) in package:\n" + P.name, "Yes", "+No") == 0) {
|
||
|
|
printf("%s", s);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
printf("grid last;\n");
|
||
|
|
printf("DISPLAY NONE ");
|
||
|
|
for (int l = 255; l ; l--) {
|
||
|
|
if (l == 99) l = 89; // *** no Symbol Layer ***
|
||
|
|
if (layer_visible[l]) printf(" %d", l);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
exit("SCRIPT '" + scriptfile + "';");
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
dlgMessageBox("Start this ULP from a Library", "OK");
|
||
|
|
exit(0);
|