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
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
|
#usage "<b>Import an EAGLE Netscript into a Schematic</b>\n"
"<p>"
"Opens a file dialog to select a netscript file. "
"Some PCB systems allow to export an EAGLE netscript file in order to make "
"a layout in EAGLE. This ULP allows to use the netscript to generate an "
"EAGLE schematic, too. At least it can be used to draw all net connections "
"in the schematic easily, provided all parts have been placed before. "
"<p>"
"<b>Attention:</b><br>"
"In special situations it could happen that importing a netlist "
"into a schematic (in form of 'airwires' as it happens here) "
"results in misconnections. This is the case if a net line "
"overlaps a pin connection point. If this certain pin under the "
"net should get connected later, EAGLE will connect to the net "
"instead of the pin under it.<p>"
"We want to avoid this problem in the ULP by drawing the net "
"line from the first pin with an offset of 50 mil. This way "
"diagonal net lines will be drawn and there will be hardly pins "
"that lie under net lines.<p>"
"If a net has to be drawn on a further sheet of the schematic "
"EAGLE uses the diagonal offset of 50 mil and places an "
"additional LABEL."
"<p>"
"<author>Author: support@cadsoft.de</author>"
// 2006-01-26 -- modified #usage -- ric
// THIS PROGRAM IS PROVIDED AS IS AND WITHOUT WARRANTY OF ANY KIND, EXPRESSED OR IMPLIED
/* German info
"<b>ACHTUNG</b><p>\n"
"Das Einlesen einer Netzliste (Airwire) in den Schaltplan, "
"kann in besonderen Situationen zu falschen Verbindungen fuehren.<p>\n"
"Werden die Netze als "Luftlinien" zwischen den Bauteilpins gezeichnet, "
"so kann es vorkommen, dass eine Netzlinie Bauteilpins ueberlagert. "
"Wird spaeter <b>dieser</b> Pin unter der Linie an ein Netz angeschlossen "
"so nimmt EAGLE das Netz als Kontaktpunkt und nicht den "
"darunterliegenden Pin.<p>"
"In diesem ULP wird versucht diese Problematik zu umgehen, in dem vom "
"ersten Pin mit einem Offset (50mil) vom Pin weg "
"und dann zum zweiten Pin gezeichnet wird. Dadurch entstehen diagonale "
"Luftlinien die nur in seltenen Faellen einen Pin ueberlagern.<p>\n"
"Wird ein Netz auf einer anderen Schaltplanseite weitergefuehrt, "
"so wird vom Pin um 50 Mil diagonal weggezeichnet und zusaetzlich "
"ein <b>LABEL</b> plaziert.<p>\n"
*/
// Eagle NET-Command definition
string net_name = strupr(argv[1]);
string device_a = strupr(argv[2]);
string pin_a = strupr(argv[3]);
string device_b = strupr(argv[4]);
string pin_b = strupr(argv[5]);
string cmd = "";
string lines[];
int nLines;
string s;
// *** Eagle NET-SCRIPT definition ***
string tok_Signal = "Signal";
string signalLines[];
string signalName;
int signalCnt = 0;
string tok_Change = "Change";
// *** functions ***
int actSheet(UL_SHEET S)
{
return S.number;
}
void readNetList(void)
{
int sn = 0;
do {
if( strstr(lines[sn], tok_Signal) == 0) {
signalCnt = strsplit (signalLines, lines[sn], '\'');
// init NET command
string netName = signalLines[1];
string dev_a = signalLines[3];
string pin_a = signalLines[5];
string dev_b = "";
string pin_b = "";
// start NET command with run-cmd-net.ulp
sn++;
while (strstr(lines[sn], ";") < 0) { // end of Signallist
signalCnt = strsplit (signalLines, lines[sn], '\'');
string dev_b = signalLines[1];
string pin_b = signalLines[3];
cmd += "run " + argv[0] + " '" + netName + "' '" + dev_a + "' '" + pin_a + "' ";
cmd += "'" + dev_b + "' '" + pin_b + "' ;\n";
dev_a = dev_b;
pin_a = pin_b;
sn++;
}
}
if( strstr(lines[sn], tok_Change) == 0) {
sprintf(s, "%s\n", lines[sn]);
cmd += s;
}
sn++;
} while (lines[sn]);
return;
}
// *** MAIN ***
if (schematic) {
// run as net command
if (device_b && pin_b) {
int pinA_sheet = 0;
int pinB_sheet = 0;
int xA, yA, xB, yB;
string g = ";\nGRID LAST;\n";
int actualsheet;
if (sheet) sheet(SH) actualsheet = SH.number;
// *** Schematic coord. ***
schematic(S) {
cmd = "SET WIRE_BEND 2;\nGRID MIL 50 2 ;\n";
S.sheets(SH) {
SH.parts(PA) {
if (PA.name == device_a ) {
PA.instances(IN) {
IN.gate.symbol.pins(P) { // Pin
if (P.contact) {
string cp = P.contact.name; // PAD name von Connect/Pad
if (cp == pin_a) {
xA = P.x;
yA = P.y;
pinA_sheet = SH.number;
}
}
}
}
}
if (device_b) {
if (PA.name == device_b ) {
PA.instances(IN) {
IN.gate.symbol.pins(P) { // Pin
if (P.contact) {
string cp = P.contact.name; // PAD name von Connect/Pad
if (cp == pin_b) {
xB = P.x;
yB = P.y;
pinB_sheet = SH.number;
}
}
}
}
}
}
}
}
}
if (net_name) net_name = "'" + net_name + "'";
// place Name in ' ' for NET-Command
string s;
if ( (pinA_sheet != 0) && (pinB_sheet != 0) ) {
if (pinA_sheet == pinB_sheet) {
if (actualsheet != pinA_sheet) {
sprintf(s, "EDIT .s%d;\n", pinA_sheet);
cmd += s;
}
sprintf(s, "NET %s (%.3f %.3f)", net_name, u2mil(xA), u2mil(yA) );
cmd += s;
sprintf(s, " (%.3f %.3f)", u2mil(xA)+50, u2mil(yA)-50 );
cmd += s;
sprintf(s, " (%.3f %.3f);\n", u2mil(xB), u2mil(yB) );
cmd += s;
exit (cmd + g);
}
else {
if (actualsheet != pinA_sheet) {
sprintf(s, "EDIT .s%d;\n", pinA_sheet);
cmd += s;
}
sprintf(s, "NET %s (%.3f %.3f)", net_name, u2mil(xA), u2mil(yA) );
cmd += s;
sprintf(s, " (%.3f %.3f);\n", u2mil(xA)+50, u2mil(yA)+50 );
cmd += s;
sprintf(s, "LABEL (%.3f %.3f)", u2mil(xA), u2mil(yA) );
cmd += s;
sprintf(s, " (%.3f %.3f);\n", u2mil(xA)+50, u2mil(yA)+50 );
cmd += s;
sprintf(s, "CHANGE LAYER 91 (%.3f %.3f);\n", u2mil(xA)+50, u2mil(yA)+50 );
cmd += s;
if (actualsheet != pinB_sheet) {
sprintf(s, "EDIT .s%d;\n", pinB_sheet);
cmd += s;
}
sprintf(s, "NET %s (%.3f %.3f)", net_name, u2mil(xB), u2mil(yB) );
cmd += s;
sprintf(s, " (%.3f %.3f);\n", u2mil(xB)+50, u2mil(yB)+50 );
cmd += s;
sprintf(s, "LABEL (%.3f %.3f)", u2mil(xB), u2mil(yB) );
cmd += s;
sprintf(s, " (%.3f %.3f);\n", u2mil(xB)+50, u2mil(yB)+50 );
cmd += s;
sprintf(s, "CHANGE LAYER 91 (%.3f %.3f);\n", u2mil(xB)+50, u2mil(yB)+50 );
cmd += s;
exit (cmd + g);
}
}
else {
cmd = "";
if (pinA_sheet == 0) cmd += "Device " + device_a + " Pin " + pin_a + "\n";
if (pinB_sheet == 0) cmd += "Device " + device_b + " Pin " + pin_b + "\n";
cmd += "not fond!";
dlgMessageBox(cmd, "OK");
exit (-1);
}
}
// run as script converter
else {
string ulp_path ;
char bkslash = '/';
int pos = strrchr(argv[0], bkslash);
if (pos >= 0) {
ulp_path = strsub(argv[0], 0, pos + 1);
}
// File handling
int n = 0;
string text;
string NetListfileName;
int nBytes;
if (argv[1]) {
NetListfileName = argv[1];
}
else {
NetListfileName = dlgFileOpen("Select Script File", "*.scr", "*.*");
}
if (NetListfileName) {
nLines = fileread(lines, NetListfileName);
readNetList();
}
output(NetListfileName + "x", "wt") printf("%s", cmd);
exit (cmd);
}
}
else {
dlgMessageBox("Start this ULP from a schematic!", "OK");
exit (0);
}
|
