1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
|
#usage "<b>Snap pads and smds in a package</b>\n"
"<p>"
"Snaps pads and SMDs in the package editor to a given grid "
"(different grids in x and y direction selectable)."
"<p>"
"<author>Author: support@cadsoft.de</author>"
// THIS PROGRAM IS PROVIDED AS IS AND WITHOUT WARRANTY OF ANY KIND, EXPRESSED OR IMPLIED
string h, cmd;
real GridDistH = 50.0, GridDistV = 50.0;
enum {unitINCH, unitMIL, unitMM, unitMIC};
int unit = unitMIL; // predefined unit, can be changed to unitMM, unitINCH, unitMIC
int show_script;
int Result;
int sym = 1;
int version_4_0 = 0;
// get project path, if in board or schematic, otherwise library path
string get_project_path() {
string s = "", p = "";;
if (library) { library(L) s = L.name;}
if (board) { board(B) s = B.name;}
if (schematic){ schematic(S) s = S.name;}
char c = '/';
int pos = strrchr(s, c);
if (pos >= 0) {
p = strsub(s, 0, pos + 1);
}
return p;
}
real u2unit(int u) {
if (unit == unitMIL) return u2mil(u);
if (unit == unitMM) return u2mm(u);
if (unit == unitINCH) return u2inch(u);
if (unit == unitMIC) return u2mic(u);
}
real snapH(int n) { // returns next grid point
return round(u2unit(n) / GridDistH) * GridDistH;
}
real snapV(int n) { // returns next grid point
return round(u2unit(n) / GridDistV) * GridDistV;
}
void snappads(void) {
if (unit == unitMIL) {h = ""; sprintf(h, "GRID MIL FINEST;\n"); cmd += h;}
if (unit == unitMM) {h = ""; sprintf(h, "GRID MM FINEST;\n"); cmd += h;}
if (unit == unitINCH) {h = ""; sprintf(h, "GRID INCH FINEST;\n"); cmd += h;}
if (unit == unitMIC) {h = ""; sprintf(h, "GRID MIC FINEST;\n"); cmd += h;}
h = ""; sprintf(h, "DISPLAY NONE TOP PADS;\n"); cmd += h;
library(L) {
if (package) package(PAC) {
PAC.contacts(C) {
h = "";
sprintf(h, "MOVE (%f %f) (%f %f);\n", u2unit(C.x), u2unit(C.y), snapH(C.x), snapV(C.y));
cmd += h;
}
}
else {
dlgMessageBox("<b>No package loaded!</b>", "OK");
}
}
h = ""; sprintf(h, "GRID LAST;\n"); cmd += h;
/* left for test purposes
dlgDialog("Edit Commands") {
dlgVBoxLayout {
dlgLabel("Edit only if you are sure what you do!");
dlgTextEdit(cmd);
dlgPushButton("+Ok") dlgAccept();
dlgPushButton("-Cancel") dlgReject();
}
};
*/
if (!version_4_0) {
exit(cmd);
}
else {
output(get_project_path()+"$$$.scr", "wt") printf("%s", cmd);
exit("SCRIPT '"+get_project_path()+"$$$.scr';\n");
}
}
//------- main -----------
if ((EAGLE_VERSION == 4 && EAGLE_RELEASE == 0) || (EAGLE_VERSION == 3 && EAGLE_RELEASE >96))
version_4_0 = 1; // used for workaround
if (!library) {
dlgMessageBox(usage + "<hr><b>ERROR: No package!</b><p>\nThis program can only work in the package editor.");
exit(1);
}
library(L) {
if (package) package(PAC) {
}
else {
dlgMessageBox("<b>No package loaded!</b>", "OK");
exit(1);
}
}
while (1) {
dlgDialog("Snap") {
dlgHBoxLayout {
dlgHBoxLayout {
dlgGroup("Unit") {
dlgRadioButton("&inch", unit);
dlgRadioButton("&mil", unit);
dlgRadioButton("&mm", unit);
dlgRadioButton("&mic", unit);
dlgSpacing(20);
dlgLabel("Snap grid horizontal");
dlgRealEdit(GridDistH, 0.0001, 1000);
if (!sym) {
dlgLabel("Snap grid vertical");
dlgRealEdit(GridDistV, 0.0001, 1000);
}
}
}
dlgSpacing(10);
dlgVBoxLayout {
dlgSpacing(110);
if (!sym)dlgSpacing(35);
dlgHBoxLayout {
if (sym) {
dlgPushButton("Two Grids ") {sym = 0;
GridDistV = GridDistH;
dlgAccept();
}
}
else {
dlgPushButton("One Grid ") {sym = 1;
dlgAccept();
}
}
dlgPushButton("+&Snap") {if (sym) GridDistV = GridDistH;
snappads();
}
dlgPushButton("-&Cancel") exit(0);
}
}
}
};
}
|
