neingeist
/
arduinisten
Archived
1
0
Fork 0
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.
This repo is archived. You can view files and clone it, but cannot push or open issues/pull-requests.

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);