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.
665 lines
26 KiB
Plaintext
665 lines
26 KiB
Plaintext
15 years ago
|
#usage "<b>Renumber board components</b>\n"
|
||
|
|
"<p>"
|
||
|
|
"See Help of the ULP for further instructions."
|
||
|
|
"<p>"
|
||
|
|
"<author>Author: support@cadsoft.de (based on original code from Michel Dagenais, jcmae@sympatico.ca)</author>"
|
||
|
|
|
||
|
|
// THIS PROGRAM IS PROVIDED AS IS AND WITHOUT WARRANTY OF ANY KIND, EXPRESSED OR IMPLIED
|
||
|
|
|
||
|
|
// 16.06.2002 "Scan window"/"Unit" do not take effect in the current instance of the program -- alf@cadsoft.de
|
||
|
|
|
||
|
|
string HelpText =
|
||
|
|
|
||
|
|
"This ULP will renumber a board's components starting from any corner, renaming from suffix 1, either horizontally or vertically."
|
||
|
|
"<p>\n"
|
||
|
|
"If there are names like R01, the program will ask you if it may change those names. "
|
||
|
|
"Otherwise no renaming can be performed."
|
||
|
|
"<p>\n"
|
||
|
|
"Your board MUST be drawn on layer 20 (dimension) and all components MUST be inside it, otherwise the result is unpredictable.\n"
|
||
|
|
"<p>\n"
|
||
|
|
"<p>\n"
|
||
|
|
"<b>Meaning of Parameters</b>\n"
|
||
|
|
"<p>\n"
|
||
|
|
"<b>Unit</b>\n"
|
||
|
|
"<p>\n"
|
||
|
|
"Unit for the value entered in the Scan window.\n"
|
||
|
|
"<p>\n"
|
||
|
|
"<b>Direction</b>\n"
|
||
|
|
"<p>\n"
|
||
|
|
"Renumber direction.\n"
|
||
|
|
"<p>\n"
|
||
|
|
"<b>Top Side: Start from</b>\n"
|
||
|
|
"<p>\n"
|
||
|
|
"Renumber starting point for top (component) side.\n"
|
||
|
|
"<p>\n"
|
||
|
|
"<b>Bottom Side: Start from</b>\n"
|
||
|
|
"<p>\n"
|
||
|
|
"Renumber starting point for bottom (solder) side.\n"
|
||
|
|
"<p>\n"
|
||
|
|
"<b>Scan window</b>\n"
|
||
|
|
"<p>\n"
|
||
|
|
"Dimension of the user-defined window to determine row or column width for components scanning.\n"
|
||
|
|
"<p>\n"
|
||
|
|
"<b>Bottom suffix</b>\n"
|
||
|
|
"<p>\n"
|
||
|
|
"Renumbering starts at the component side.\n"
|
||
|
|
"If Bottom suffix is 0, the bottom component suffixes are continued in sequence.\n"
|
||
|
|
"If Bottom suffix is > 0, the bottom component suffixes start with this number, provided there is no overlapping with component names at the top side.\n"
|
||
|
|
"<p>\n"
|
||
|
|
"<b>Show scripts</b>\n"
|
||
|
|
"<p>\n"
|
||
|
|
"If this box is checked, the respective command scripts are shown before execution of Preview and Renumber.<br>\n"
|
||
|
|
"The Renumber Script can be saved.\n"
|
||
|
|
"<p>\n"
|
||
|
|
"<b>Preview</b>\n"
|
||
|
|
"<p>\n"
|
||
|
|
"Highlights all components in the order of the currently selected renumbering sequence.<br>\n"
|
||
|
|
"Please note that on fast computers Preview might be too fast to watch!\n"
|
||
|
|
"<p>\n"
|
||
|
|
"<b>Renumber</b>\n"
|
||
|
|
"<p>\n"
|
||
|
|
"Executes the renumber function and quits program.\n"
|
||
|
|
"<p>\n"
|
||
|
|
;
|
||
|
|
//-----------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
real window, win;
|
||
|
|
int sequence_bottom;
|
||
|
|
int dir;
|
||
|
|
int c_top;
|
||
|
|
int c_bottom;
|
||
|
|
enum {unitINCH, unitMM};
|
||
|
|
int unit = unitINCH;
|
||
|
|
int show_script;
|
||
|
|
string params;
|
||
|
|
|
||
|
|
if (!argv[1]) { // first program instance
|
||
|
|
//---- edit the following default values to your liking ---------------------------------
|
||
|
|
window = 0.4 ; // default scan window width
|
||
|
|
sequence_bottom = 100; // if no overlap, use this new suffix to start on bottom,
|
||
|
|
// otherwise continue in sequence
|
||
|
|
dir = 0; // 0 = horizontally, 1 = vertically
|
||
|
|
c_top = 0; // starting point for top side
|
||
|
|
c_bottom = 3; // starting point for bottom side
|
||
|
|
unit = unitINCH; // change to unitMM, if you want mm as default
|
||
|
|
show_script = 0; // 1 = show script file before execution
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
if (argv[1] == "end") { // last program instance
|
||
|
|
dlgMessageBox("Renumber finished!", "&OK");
|
||
|
|
exit(0);
|
||
|
|
}
|
||
|
|
sprintf (params, " %s", argv[1]); // other program instances
|
||
|
|
window = strtod(params);
|
||
|
|
for (int ix = 2; ix <= 7; ix++) {
|
||
|
|
string hx = "";
|
||
|
|
sprintf (hx, " %s", argv[ix]);
|
||
|
|
params += hx;
|
||
|
|
}
|
||
|
|
sequence_bottom = strtol(argv[2]);
|
||
|
|
dir = strtol(argv[3]);
|
||
|
|
c_top = strtol(argv[4]);
|
||
|
|
c_bottom = strtol(argv[5]);
|
||
|
|
unit = strtol(argv[6]);
|
||
|
|
show_script = strtol(argv[7]);
|
||
|
|
if (unit == unitINCH)
|
||
|
|
win = window;
|
||
|
|
else
|
||
|
|
win = window / 25.4;
|
||
|
|
}
|
||
|
|
|
||
|
|
//-----------------------------------------------------------------------------------------
|
||
|
|
string h, cmd;
|
||
|
|
int Result, tmp_int, i, j, z, length_of_name, number_prefix, largest_number_prefix;
|
||
|
|
int i_p_top, index_top[], old_suffix_top[], new_suffix_top[];
|
||
|
|
real comp_x_abs_top[], comp_y_abs_top[];
|
||
|
|
int i_p_bottom, index_bottom[], old_suffix_bottom[], new_suffix_bottom[];
|
||
|
|
real comp_x_abs_bottom[], comp_y_abs_bottom[];
|
||
|
|
int i_p_both, index_both[], old_suffix_both[], new_suffix_both[];
|
||
|
|
real tmp_real, w, pcb_min_x, pcb_min_y, pcb_max_x, pcb_max_y, pcb_length, pcb_height;
|
||
|
|
string tmp_string, ref_name, last_prefix, prefix_top[], prefix_bottom[], prefix_both[];
|
||
|
|
//-----------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
void DisplayHelp(void)
|
||
|
|
{
|
||
|
|
dlgDialog("Renumer Help") {
|
||
|
|
dlgHBoxLayout dlgSpacing(400);
|
||
|
|
dlgHBoxLayout {
|
||
|
|
dlgVBoxLayout dlgSpacing(300);
|
||
|
|
dlgTextView(HelpText);
|
||
|
|
}
|
||
|
|
dlgHBoxLayout {
|
||
|
|
dlgStretch(1);
|
||
|
|
dlgPushButton("-Close") dlgReject();
|
||
|
|
}
|
||
|
|
};
|
||
|
|
}
|
||
|
|
//-----------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
string get_progname(void) {
|
||
|
|
string s = strsub(argv[0], 0, strlen(argv[0])-4);
|
||
|
|
string p = s;
|
||
|
|
char c = '/';
|
||
|
|
int pos = strrchr(s, c);
|
||
|
|
if (pos >= 0) {
|
||
|
|
p = strsub(s, pos + 1);
|
||
|
|
}
|
||
|
|
return p;
|
||
|
|
}
|
||
|
|
//-----------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
void renumber (void) {
|
||
|
|
cmd = "";
|
||
|
|
h = ""; sprintf(h, ";\n"); cmd += h;
|
||
|
|
h = ""; sprintf(h, "Grid Inch;\n"); cmd += h;
|
||
|
|
h = ""; sprintf(h, "Display None;\n"); cmd += h;
|
||
|
|
h = ""; sprintf(h, "Window fit;\n"); cmd += h;
|
||
|
|
h = ""; sprintf(h, "Display 20 21 22 25 26 -27 -28;\n"); cmd += h;
|
||
|
|
for (i = 0; i < i_p_both; ++i) {
|
||
|
|
new_suffix_both[i] = i + 1 ;
|
||
|
|
}
|
||
|
|
sort (i_p_both, index_both, prefix_both, new_suffix_both, old_suffix_both);
|
||
|
|
for (j = 0; j < i_p_both; ++j) { // all parts ------------------------
|
||
|
|
z = 1;
|
||
|
|
tmp_int = 1;
|
||
|
|
tmp_string = prefix_both[index_both[j]];
|
||
|
|
for (i = j; prefix_both[index_both[i]] == tmp_string; ++i) {
|
||
|
|
if ((sequence_bottom > largest_number_prefix) && (new_suffix_both[index_both[i]] > i_p_top) && (tmp_int == 1)) {
|
||
|
|
z = sequence_bottom;
|
||
|
|
tmp_int = 0;
|
||
|
|
}
|
||
|
|
if ((new_suffix_both[index_both[i]] > 0) && (old_suffix_both[index_both[i]] != z)) {
|
||
|
|
new_suffix_both[index_both[i]] = z * -1;
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
new_suffix_both[index_both[i]] = 0 ;
|
||
|
|
}
|
||
|
|
++z;
|
||
|
|
if (i == i_p_both - 1) break; // added!!!
|
||
|
|
}
|
||
|
|
if (i == i_p_both - 1) break; // added!!!
|
||
|
|
j = i - 1;
|
||
|
|
}
|
||
|
|
for (i = 0; i < i_p_both; ++i) {
|
||
|
|
if (new_suffix_both[index_both[i]] < 0) {
|
||
|
|
h = ""; sprintf(h, "Name '%s%d' '$$%s%d';\n", prefix_both[index_both[i]], old_suffix_both[index_both[i]], prefix_both[index_both[i]], abs(new_suffix_both[index_both[i]])); cmd += h;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
for (i = 0; i < i_p_both; ++i) {
|
||
|
|
if (new_suffix_both[index_both[i]] < 0) {
|
||
|
|
h = ""; sprintf(h, "Name '$$%s%d' '%s%d';\n", prefix_both[index_both[i]], abs(new_suffix_both[index_both[i]]), prefix_both[index_both[i]], abs(new_suffix_both[index_both[i]])); cmd += h;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
h = ""; sprintf(h, "Grid Last;\n"); cmd += h;
|
||
|
|
if (show_script) {
|
||
|
|
Result = dlgDialog("Edit Commands") {
|
||
|
|
dlgVBoxLayout {
|
||
|
|
dlgLabel("Edit only if you are sure what you do!");
|
||
|
|
dlgTextEdit(cmd);
|
||
|
|
}
|
||
|
|
dlgHBoxLayout {
|
||
|
|
dlgPushButton("+Ok") dlgAccept();
|
||
|
|
dlgPushButton("-Quit") dlgReject();
|
||
|
|
dlgPushButton("+Save") {
|
||
|
|
string dest = dlgFileSave("Save Script File", "renumber.scr", "*.scr");
|
||
|
|
if (dest != "") output(dest, "wt") {printf(cmd);}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
};
|
||
|
|
if (!Result) exit(0);
|
||
|
|
}
|
||
|
|
cmd += "RUN "+get_progname()+" end";
|
||
|
|
exit(cmd);
|
||
|
|
}
|
||
|
|
//--------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
void preview(void) {
|
||
|
|
cmd = "";
|
||
|
|
sprintf (params, " %f %d %d %d %d %d %d",
|
||
|
|
window, sequence_bottom, dir, c_top, c_bottom, unit, show_script);
|
||
|
|
h = ""; sprintf(h, ";\n"); cmd += h;
|
||
|
|
h = ""; sprintf(h, "Grid Inch;\n"); cmd += h;
|
||
|
|
h = ""; sprintf(h, "Display None;\n"); cmd += h;
|
||
|
|
h = ""; sprintf(h, "Window fit;\n"); cmd += h;
|
||
|
|
h = ""; sprintf(h, "Display 20 21 22 25 26 -27 -28;\n"); cmd += h;
|
||
|
|
for (i = 0; i < i_p_both; ++i)
|
||
|
|
{
|
||
|
|
h = ""; sprintf(h, "Show %s%d %s%d;\n", prefix_both[i], old_suffix_both[i], prefix_both[i], old_suffix_both[i]); cmd += h;
|
||
|
|
}
|
||
|
|
if (show_script) {
|
||
|
|
Result = dlgDialog("Edit Commands") {
|
||
|
|
dlgVBoxLayout {
|
||
|
|
dlgLabel("Edit only if you are sure what you do!");
|
||
|
|
dlgTextEdit(cmd);
|
||
|
|
}
|
||
|
|
dlgHBoxLayout {
|
||
|
|
dlgPushButton("+Ok") dlgAccept();
|
||
|
|
dlgPushButton("-Quit") dlgReject();
|
||
|
|
}
|
||
|
|
};
|
||
|
|
if (!Result) exit(0);
|
||
|
|
}
|
||
|
|
cmd += "RUN "+get_progname()+params;
|
||
|
|
exit(cmd);
|
||
|
|
}
|
||
|
|
//--- collect data ---------------------------------------------------------------
|
||
|
|
|
||
|
|
void get_data(void) {
|
||
|
|
board(B) { // Get board size to determine ratio.
|
||
|
|
tmp_int = 1;
|
||
|
|
B.wires(W) {
|
||
|
|
if (W.layer == 20) {
|
||
|
|
if (tmp_int == 1) {
|
||
|
|
pcb_min_x = u2inch(W.x1);
|
||
|
|
pcb_min_y = u2inch(W.y1);
|
||
|
|
pcb_max_x = u2inch(W.x1);
|
||
|
|
pcb_max_y = u2inch(W.y1);
|
||
|
|
tmp_int = 0;
|
||
|
|
}
|
||
|
|
if (u2inch(W.x1) < pcb_min_x){pcb_min_x = u2inch(W.x1);}
|
||
|
|
if (u2inch(W.x1) > pcb_max_x){pcb_max_x = u2inch(W.x1);}
|
||
|
|
if (u2inch(W.x2) < pcb_min_x){pcb_min_x = u2inch(W.x2);}
|
||
|
|
if (u2inch(W.x2) > pcb_max_x){pcb_max_x = u2inch(W.x2);}
|
||
|
|
if (u2inch(W.y1) < pcb_min_y){pcb_min_y = u2inch(W.y1);}
|
||
|
|
if (u2inch(W.y1) > pcb_max_y){pcb_max_y = u2inch(W.y1);}
|
||
|
|
if (u2inch(W.y2) < pcb_min_y){pcb_min_y = u2inch(W.y2);}
|
||
|
|
if (u2inch(W.y2) > pcb_max_y){pcb_max_y = u2inch(W.y2);}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
pcb_length = pcb_max_x - pcb_min_x;
|
||
|
|
pcb_height = pcb_max_y - pcb_min_y;
|
||
|
|
number_prefix = 1;
|
||
|
|
last_prefix = "";
|
||
|
|
largest_number_prefix = 1;
|
||
|
|
B.elements(E) {
|
||
|
|
ref_name = E.name ;
|
||
|
|
if (!(strlen(ref_name)<=1 || isdigit(ref_name[0]))) { // exclude R, 04 etc.
|
||
|
|
length_of_name = strlen(ref_name) ;
|
||
|
|
prefix_top[i_p_top] = "" ;
|
||
|
|
new_suffix_top[i_p_top] = 0 ;
|
||
|
|
tmp_string = "" ;
|
||
|
|
if (isdigit(ref_name[length_of_name - 1]) && E.mirror == 0 ) { // on top & num suffix
|
||
|
|
for (i = strlen(ref_name) - 1; isdigit(ref_name[i]); --i); // find prefix + suffix
|
||
|
|
prefix_top[i_p_top] = strsub(ref_name, 0, i+1); // prefix
|
||
|
|
tmp_string = strsub(ref_name, i+1); // suffix
|
||
|
|
|
||
|
|
if (prefix_top[i_p_top] == last_prefix) {
|
||
|
|
++number_prefix; // inc as long as same prefix
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
last_prefix = prefix_top[i_p_top];
|
||
|
|
if (number_prefix > largest_number_prefix) {
|
||
|
|
largest_number_prefix = number_prefix; // update largest_n..
|
||
|
|
number_prefix = 1;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
old_suffix_top[i_p_top] = strtol(tmp_string) ;
|
||
|
|
switch (c_top) {
|
||
|
|
case 1: // Top-Right
|
||
|
|
{
|
||
|
|
comp_x_abs_top[i_p_top] = abs(u2inch(E.x) - pcb_max_x) ;
|
||
|
|
comp_y_abs_top[i_p_top] = abs(u2inch(E.y) - pcb_max_y) ;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
case 0: // Top-Left
|
||
|
|
{
|
||
|
|
comp_x_abs_top[i_p_top] = abs(u2inch(E.x) + abs(pcb_min_x)) ;
|
||
|
|
comp_y_abs_top[i_p_top] = abs(u2inch(E.y) - pcb_max_y) ;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
case 2: // Bottom-Left
|
||
|
|
{
|
||
|
|
comp_x_abs_top[i_p_top] = abs(u2inch(E.x) + abs(pcb_min_x)) ;
|
||
|
|
comp_y_abs_top[i_p_top] = abs(u2inch(E.y) + abs(pcb_min_y)) ;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
case 3: // Bottom-Right
|
||
|
|
|
||
|
|
{
|
||
|
|
comp_x_abs_top[i_p_top] = abs(u2inch(E.x) - pcb_max_x) ;
|
||
|
|
comp_y_abs_top[i_p_top] = abs(u2inch(E.y) + abs(pcb_min_y)) ;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
default: // default is Top-Left Corner for Top side.
|
||
|
|
{
|
||
|
|
comp_x_abs_top[i_p_top] = abs(u2inch(E.x) + abs(pcb_min_x)) ;
|
||
|
|
comp_y_abs_top[i_p_top] = abs(u2inch(E.y) - pcb_max_y) ;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
++i_p_top ;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if (number_prefix > largest_number_prefix) {
|
||
|
|
largest_number_prefix = number_prefix; // update largest_n..
|
||
|
|
number_prefix = 1;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if (dir == 1) {
|
||
|
|
sort (i_p_top, index_top, comp_x_abs_top, comp_y_abs_top, prefix_top, old_suffix_top, new_suffix_top) ;
|
||
|
|
j = 0 ;
|
||
|
|
do {
|
||
|
|
w = comp_x_abs_top[index_top[j]] + win;
|
||
|
|
for (i = j + 1; i < i_p_top; ++i) {
|
||
|
|
if (comp_x_abs_top[index_top[i]] > w) {
|
||
|
|
break ;
|
||
|
|
}
|
||
|
|
if (comp_y_abs_top[index_top[i]] < comp_y_abs_top[index_top[i - 1]]) {
|
||
|
|
tmp_real = comp_x_abs_top[index_top[i - 1]];
|
||
|
|
comp_x_abs_top[index_top[i - 1]] = comp_x_abs_top[index_top[i]];
|
||
|
|
comp_x_abs_top[index_top[i]] = tmp_real;
|
||
|
|
tmp_real = comp_y_abs_top[index_top[i - 1]];
|
||
|
|
comp_y_abs_top[index_top[i - 1]] = comp_y_abs_top[index_top[i]];
|
||
|
|
comp_y_abs_top[index_top[i]] = tmp_real;
|
||
|
|
tmp_string = prefix_top[index_top[i - 1]];
|
||
|
|
prefix_top[index_top[i - 1]] = prefix_top[index_top[i]];
|
||
|
|
prefix_top[index_top[i]] = tmp_string;
|
||
|
|
tmp_int = old_suffix_top[index_top[i - 1]];
|
||
|
|
old_suffix_top[index_top[i - 1]] = old_suffix_top[index_top[i]];
|
||
|
|
old_suffix_top[index_top[i]] = tmp_int;
|
||
|
|
tmp_int = new_suffix_top[index_top[i - 1]];
|
||
|
|
new_suffix_top[index_top[i - 1]] = new_suffix_top[index_top[i]];
|
||
|
|
new_suffix_top[index_top[i]] = tmp_int;
|
||
|
|
i = j ;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
j = i ;
|
||
|
|
} while (j < i_p_top) ;
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
sort (i_p_top, index_top, comp_y_abs_top, comp_x_abs_top, prefix_top, old_suffix_top, new_suffix_top) ;
|
||
|
|
j = 0 ;
|
||
|
|
do {
|
||
|
|
w = comp_y_abs_top[index_top[j]] + win;
|
||
|
|
for (i = j + 1; i < i_p_top; ++i) {
|
||
|
|
if (comp_y_abs_top[index_top[i]] > w) {
|
||
|
|
break ;
|
||
|
|
}
|
||
|
|
if (comp_x_abs_top[index_top[i]] < comp_x_abs_top[index_top[i - 1]]) {
|
||
|
|
tmp_real = comp_x_abs_top[index_top[i - 1]];
|
||
|
|
comp_x_abs_top[index_top[i - 1]] = comp_x_abs_top[index_top[i]];
|
||
|
|
comp_x_abs_top[index_top[i]] = tmp_real;
|
||
|
|
tmp_real = comp_y_abs_top[index_top[i - 1]];
|
||
|
|
comp_y_abs_top[index_top[i - 1]] = comp_y_abs_top[index_top[i]];
|
||
|
|
comp_y_abs_top[index_top[i]] = tmp_real;
|
||
|
|
tmp_string = prefix_top[index_top[i - 1]];
|
||
|
|
prefix_top[index_top[i - 1]] = prefix_top[index_top[i]];
|
||
|
|
prefix_top[index_top[i]] = tmp_string;
|
||
|
|
tmp_int = old_suffix_top[index_top[i - 1]];
|
||
|
|
old_suffix_top[index_top[i - 1]] = old_suffix_top[index_top[i]];
|
||
|
|
old_suffix_top[index_top[i]] = tmp_int;
|
||
|
|
tmp_int = new_suffix_top[index_top[i - 1]];
|
||
|
|
new_suffix_top[index_top[i - 1]] = new_suffix_top[index_top[i]];
|
||
|
|
new_suffix_top[index_top[i]] = tmp_int;
|
||
|
|
i = j ;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
j = i ;
|
||
|
|
} while (j < i_p_top) ;
|
||
|
|
}
|
||
|
|
// Bottom side of board
|
||
|
|
board(B) {
|
||
|
|
B.elements(E) {
|
||
|
|
ref_name = E.name ;
|
||
|
|
if (!(strlen(ref_name)<=1 || isdigit(ref_name[0]))) { // exclude R, 04 etc.
|
||
|
|
length_of_name = strlen(ref_name) ;
|
||
|
|
prefix_bottom[i_p_bottom] = "" ;
|
||
|
|
new_suffix_bottom[i_p_bottom] = 0 ;
|
||
|
|
tmp_string = "" ;
|
||
|
|
if (isdigit(ref_name[length_of_name - 1]) && E.mirror == 1 ) {
|
||
|
|
for (i = strlen(ref_name) - 1; isdigit(ref_name[i]); --i); // find prefix
|
||
|
|
prefix_bottom[i_p_bottom] = strsub(ref_name, 0, i+1);
|
||
|
|
tmp_string = strsub(ref_name, i+1); // suffix
|
||
|
|
old_suffix_bottom[i_p_bottom] = strtol(tmp_string) ;
|
||
|
|
switch (c_bottom)
|
||
|
|
{
|
||
|
|
case 1: // Top-Right
|
||
|
|
{
|
||
|
|
comp_x_abs_bottom[i_p_bottom] = abs(u2inch(E.x) - pcb_max_x) ;
|
||
|
|
comp_y_abs_bottom[i_p_bottom] = abs(u2inch(E.y) - pcb_max_y) ;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
case 0: // Top-Left
|
||
|
|
{
|
||
|
|
comp_x_abs_bottom[i_p_bottom] = abs(u2inch(E.x) + abs(pcb_min_x)) ;
|
||
|
|
comp_y_abs_bottom[i_p_bottom] = abs(u2inch(E.y) - pcb_max_y) ;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
case 2: // Bottom-Left
|
||
|
|
{
|
||
|
|
comp_x_abs_bottom[i_p_bottom] = abs(u2inch(E.x) + abs(pcb_min_x)) ;
|
||
|
|
comp_y_abs_bottom[i_p_bottom] = abs(u2inch(E.y) + abs(pcb_min_y)) ;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
case 3: // Bottom-Right
|
||
|
|
{
|
||
|
|
comp_x_abs_bottom[i_p_bottom] = abs(u2inch(E.x) - pcb_max_x) ;
|
||
|
|
comp_y_abs_bottom[i_p_bottom] = abs(u2inch(E.y) + abs(pcb_min_y)) ;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
default: // default is Top-Right Corner for Bottom side.
|
||
|
|
{
|
||
|
|
comp_x_abs_bottom[i_p_bottom] = abs(u2inch(E.x) - pcb_max_x) ;
|
||
|
|
comp_y_abs_bottom[i_p_bottom] = abs(u2inch(E.y) - pcb_max_y) ;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
++i_p_bottom ;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if (dir == 1) {
|
||
|
|
sort (i_p_bottom, index_bottom, comp_x_abs_bottom, comp_y_abs_bottom, prefix_bottom, old_suffix_bottom, new_suffix_bottom) ;
|
||
|
|
j = 0 ;
|
||
|
|
do {
|
||
|
|
w = comp_x_abs_bottom[index_bottom[j]] + win;
|
||
|
|
for (i = j + 1; i < i_p_bottom; ++i) {
|
||
|
|
if (comp_x_abs_bottom[index_bottom[i]] > w) {
|
||
|
|
break ;
|
||
|
|
}
|
||
|
|
if (comp_y_abs_bottom[index_bottom[i]] < comp_y_abs_bottom[index_bottom[i - 1]]) {
|
||
|
|
tmp_real = comp_x_abs_bottom[index_bottom[i - 1]];
|
||
|
|
comp_x_abs_bottom[index_bottom[i - 1]] = comp_x_abs_bottom[index_bottom[i]];
|
||
|
|
comp_x_abs_bottom[index_bottom[i]] = tmp_real;
|
||
|
|
tmp_real = comp_y_abs_bottom[index_bottom[i - 1]];
|
||
|
|
comp_y_abs_bottom[index_bottom[i - 1]] = comp_y_abs_bottom[index_bottom[i]];
|
||
|
|
comp_y_abs_bottom[index_bottom[i]] = tmp_real;
|
||
|
|
tmp_string = prefix_bottom[index_bottom[i - 1]];
|
||
|
|
prefix_bottom[index_bottom[i - 1]] = prefix_bottom[index_bottom[i]];
|
||
|
|
prefix_bottom[index_bottom[i]] = tmp_string;
|
||
|
|
tmp_int = old_suffix_bottom[index_bottom[i - 1]];
|
||
|
|
old_suffix_bottom[index_bottom[i - 1]] = old_suffix_bottom[index_bottom[i]];
|
||
|
|
old_suffix_bottom[index_bottom[i]] = tmp_int;
|
||
|
|
tmp_int = new_suffix_bottom[index_bottom[i - 1]];
|
||
|
|
new_suffix_bottom[index_bottom[i - 1]] = new_suffix_bottom[index_bottom[i]];
|
||
|
|
new_suffix_bottom[index_bottom[i]] = tmp_int;
|
||
|
|
i = j ;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
j = i ;
|
||
|
|
} while (j < i_p_bottom) ;
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
sort (i_p_bottom, index_bottom, comp_y_abs_bottom, comp_x_abs_bottom, prefix_bottom, old_suffix_bottom, new_suffix_bottom) ;
|
||
|
|
j = 0 ;
|
||
|
|
do {
|
||
|
|
w = comp_y_abs_bottom[index_bottom[j]] + win;
|
||
|
|
for (i = j + 1; i < i_p_bottom; ++i) {
|
||
|
|
if (comp_y_abs_bottom[index_bottom[i]] > w) {
|
||
|
|
break ;
|
||
|
|
}
|
||
|
|
if (comp_x_abs_bottom[index_bottom[i]] < comp_x_abs_bottom[index_bottom[i - 1]]) {
|
||
|
|
tmp_real = comp_x_abs_bottom[index_bottom[i - 1]];
|
||
|
|
comp_x_abs_bottom[index_bottom[i - 1]] = comp_x_abs_bottom[index_bottom[i]];
|
||
|
|
comp_x_abs_bottom[index_bottom[i]] = tmp_real;
|
||
|
|
tmp_real = comp_y_abs_bottom[index_bottom[i - 1]];
|
||
|
|
comp_y_abs_bottom[index_bottom[i - 1]] = comp_y_abs_bottom[index_bottom[i]];
|
||
|
|
comp_y_abs_bottom[index_bottom[i]] = tmp_real;
|
||
|
|
tmp_string = prefix_bottom[index_bottom[i - 1]];
|
||
|
|
prefix_bottom[index_bottom[i - 1]] = prefix_bottom[index_bottom[i]];
|
||
|
|
prefix_bottom[index_bottom[i]] = tmp_string;
|
||
|
|
tmp_int = old_suffix_bottom[index_bottom[i - 1]];
|
||
|
|
old_suffix_bottom[index_bottom[i - 1]] = old_suffix_bottom[index_bottom[i]];
|
||
|
|
old_suffix_bottom[index_bottom[i]] = tmp_int;
|
||
|
|
tmp_int = new_suffix_bottom[index_bottom[i - 1]];
|
||
|
|
new_suffix_bottom[index_bottom[i - 1]] = new_suffix_bottom[index_bottom[i]];
|
||
|
|
new_suffix_bottom[index_bottom[i]] = tmp_int;
|
||
|
|
i = j ;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
j = i ;
|
||
|
|
} while (j < i_p_bottom) ;
|
||
|
|
}
|
||
|
|
i_p_both = 0;
|
||
|
|
for (i = 0; i < i_p_top; ++i) {
|
||
|
|
prefix_both[i_p_both] = prefix_top[index_top[i]];
|
||
|
|
old_suffix_both[i_p_both] = old_suffix_top[index_top[i]];
|
||
|
|
new_suffix_both[i_p_both] = new_suffix_top[index_top[i]];
|
||
|
|
++i_p_both;
|
||
|
|
}
|
||
|
|
for (i = 0; i < i_p_bottom; ++i) {
|
||
|
|
prefix_both[i_p_both] = prefix_bottom[index_bottom[i]];
|
||
|
|
old_suffix_both[i_p_both] = old_suffix_bottom[index_bottom[i]];
|
||
|
|
new_suffix_both[i_p_both] = new_suffix_bottom[index_bottom[i]];
|
||
|
|
++i_p_both;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
//--------------------------------------------------------------------------------
|
||
|
|
// change names if necessary: R01 -> R100001 etc.
|
||
|
|
|
||
|
|
string correct_name(string s) {
|
||
|
|
string s1, s2;
|
||
|
|
int i, j;
|
||
|
|
if (strlen(s) < 2 || isdigit(s[0]))
|
||
|
|
return s; // single character or name starts with 0
|
||
|
|
if (!isdigit(s[strlen(s)-1])) // no suffix
|
||
|
|
return s;
|
||
|
|
for (i = 0; !isdigit(s[i]); ++i); // i points to first numeric character
|
||
|
|
for (j = strlen(s) - 1; isdigit(s[j]); --j); // j points to last non-numeric character
|
||
|
|
if ((i < strlen(s) -1) && s[i] == '0') {
|
||
|
|
s1 = strsub(s, 0, i);
|
||
|
|
s2 = strsub(s, i);
|
||
|
|
s = s1+"1000"+s2;
|
||
|
|
}
|
||
|
|
return s;
|
||
|
|
}
|
||
|
|
//--------------------------------------------------------------------------------
|
||
|
|
void view_names(void) {
|
||
|
|
board(B) {
|
||
|
|
B.elements(P) {
|
||
|
|
h= ""; sprintf(h, "%s\n", P.name);
|
||
|
|
cmd += h;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
dlgDialog("Part names") {
|
||
|
|
dlgHBoxLayout {
|
||
|
|
dlgVBoxLayout dlgSpacing(300);
|
||
|
|
dlgTextView(cmd);
|
||
|
|
}
|
||
|
|
dlgHBoxLayout {
|
||
|
|
dlgStretch(1);
|
||
|
|
dlgPushButton("-Close") dlgReject();
|
||
|
|
}
|
||
|
|
};
|
||
|
|
}
|
||
|
|
//--------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
void check_names(void) {
|
||
|
|
int name_changed = 0;
|
||
|
|
string corr_name;
|
||
|
|
cmd = ";\n";
|
||
|
|
board(B) { // replace R01 with R100001 etc.
|
||
|
|
B.elements(P) {
|
||
|
|
corr_name = correct_name(P.name);
|
||
|
|
if (corr_name != P.name) {
|
||
|
|
name_changed = 1;
|
||
|
|
h= ""; sprintf(h, "NAME '%s' '%s';\n", P.name, corr_name);
|
||
|
|
cmd += h;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if (name_changed) {
|
||
|
|
if (dlgMessageBox("Board contains packages with leading zero\nsuffixes (e.g. R01). Renumber cannot handle such names!\n\nChange automatically?",
|
||
|
|
"&OK", "&Quit") == 0) {
|
||
|
|
Result = dlgDialog("Changes") {
|
||
|
|
dlgHBoxLayout {
|
||
|
|
dlgVBoxLayout dlgSpacing(300);
|
||
|
|
dlgTextView(cmd);
|
||
|
|
}
|
||
|
|
dlgHBoxLayout {
|
||
|
|
dlgStretch(1);
|
||
|
|
dlgSpacing(40);
|
||
|
|
dlgPushButton("-OK") dlgAccept();
|
||
|
|
dlgPushButton("-Close") dlgReject();
|
||
|
|
}
|
||
|
|
};
|
||
|
|
if (!Result) exit(0);
|
||
|
|
cmd += "RUN "+get_progname();
|
||
|
|
exit(cmd);
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
exit(0);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
//--- main -----------------------------------------------------------------------
|
||
|
|
|
||
|
|
if (!board) {
|
||
|
|
dlgMessageBox(usage + "<hr><b>ERROR: No board!</b><p>\nThis program can only work in the board editor.");
|
||
|
|
exit(1);
|
||
|
|
}
|
||
|
|
|
||
|
|
dlgDialog("Renumber Components") {
|
||
|
|
dlgHBoxLayout {
|
||
|
|
dlgGroup("Unit") {
|
||
|
|
dlgRadioButton("&inch", unit);
|
||
|
|
dlgRadioButton("&mm", unit);
|
||
|
|
}
|
||
|
|
dlgGroup("Direction") {
|
||
|
|
dlgRadioButton("&Horizontal", dir);
|
||
|
|
dlgRadioButton("&Vertical", dir);
|
||
|
|
}
|
||
|
|
dlgGroup("Top Side: Start from") {
|
||
|
|
dlgGridLayout {
|
||
|
|
dlgCell(0, 0) dlgRadioButton("Top left", c_top);
|
||
|
|
dlgCell(0, 3) dlgRadioButton("Top right", c_top);
|
||
|
|
dlgCell(3, 0) dlgRadioButton("Bottom left ", c_top);
|
||
|
|
dlgCell(3, 3) dlgRadioButton("Bottom right", c_top);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
dlgGroup("Bottom Side: Start from") {
|
||
|
|
dlgGridLayout {
|
||
|
|
dlgCell(0, 0) dlgRadioButton("Top left", c_bottom);
|
||
|
|
dlgCell(0, 3) dlgRadioButton("Top right", c_bottom);
|
||
|
|
dlgCell(3, 0) dlgRadioButton("Bottom left ", c_bottom);
|
||
|
|
dlgCell(3, 3) dlgRadioButton("Bottom right", c_bottom);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
dlgHBoxLayout {
|
||
|
|
dlgRealEdit(window, 0.0, 99.0);
|
||
|
|
dlgLabel("Scan &window ");
|
||
|
|
dlgIntEdit(sequence_bottom, 0, 1000);
|
||
|
|
dlgLabel("Bottom suffix ");
|
||
|
|
dlgCheckBox("&Show scripts ", show_script);
|
||
|
|
dlgStretch(1);
|
||
|
|
}
|
||
|
|
dlgSpacing(30);
|
||
|
|
dlgHBoxLayout {
|
||
|
|
dlgStretch(1);
|
||
|
|
dlgPushButton("&View names") view_names();
|
||
|
|
dlgPushButton("+&Preview") { get_data();
|
||
|
|
check_names();
|
||
|
|
preview();
|
||
|
|
}
|
||
|
|
dlgPushButton("&Renumber") { get_data();
|
||
|
|
check_names();
|
||
|
|
renumber();
|
||
|
|
}
|
||
|
|
dlgPushButton("-&Quit") dlgReject();
|
||
|
|
dlgSpacing(30);
|
||
|
|
dlgPushButton("&Help") DisplayHelp();
|
||
|
|
}
|
||
|
|
};
|