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.

557 lines
16 KiB
Plaintext

#usage "<b>Convert a CAM job to a script to export IMAGE data</b>"
"<p>"
"<nobr>Usage: RUN cam2image [ <i>filename monochrome resolution image type</i>]"
"<p>"
"Tip: Assign a funktion key with"
"<br>"
"<tt>ASSIGN Shift+Ctrl+Alt+I 'run cam2image;';</tt>"
"<br>"
"or <tt>ASSIGN Shift+Ctrl+Alt+I 'run cam2image myjob.cam monochrome 150 .bmp;';</tt>"
"<br>"
"or <tt>ASSIGN Shift+Ctrl+Alt+I 'run cam2image myjob.cam color 300 .tif;';</tt>"
"<p>"
"<author>Author: support@cadsoft.de</author></nobr>"
// THIS PROGRAM IS PROVIDED AS IS AND WITHOUT WARRANTY OF ANY KIND, EXPRESSED OR IMPLIED
// Revision 1. 14.02.2005 Exdendet with .tif format alf@cadsoft.de
// Revision 2. 23.02.2005 Use correct file name in CAM-Job-Section alf@cadsoft.de
// CAM-Job token
string tok_job = "[CAM Processor Job]";
string tok_Descrition = "Description=";
string description;
string descriptionLine[];
int descrCnt;
string tok_Section = "Section=";
string tok_Sec_n = "[Sec_";
string section[];
string tok_Name = "Name=";
string sec_Name[];
string tok_Prompt = "Prompt=";
string sec_Prompt[];
string tok_Out_put = "Output=";
string sec_Out_put[];
string file_name;
string tok_Sheet = "Sheet=";
int sec_Sheet[];
int sheetprint = 0; // 0 = All, 1 = From To, 2 = This section defined, 3 = Actual
int sheetprint_from[];
int sheetprint_to[];
string actualsheet;
string tok_Layers = "Layers=";
string sec_Layers[];
string sec_usedlayer[];
int absolutUsedLayer = 0;
string lines[];
int nLines;
string s;
string nu;
int sx = 0;
int lVisible[];
int useLayer[];
string lNames[] = { " " };
int lastsheet = 0;
string lastSH;
int Resolution = 75; // DPI
string monochrome = "";
int sel_monochrome = 0;
string filetype[] = {
".bmp", // Windows-Bitmap-Datei
".png", // Portable-Network-Graphics-Datei
".pbm", // Portable-Bitmap-Datei
".pgm", // Portable-Grayscale-Bitmap-Datei
".ppm", // Portable-Pixelmap-Datei
".xbm", // X-Bitmap-Datei
".xpm", // X-Pixmap-Datei
".tif" // Tiff-Datei
};
int selfiletype = 0;
string help = usage+ "<qt><b>This ULP converts a CAM Job to a Export IMAGE!</b><br>\n" +
"If the layer list is empty after starting this ULP,<br>" +
"you did not start it from the proper editor window (SCH/BRD).<br>" +
"CAM jobs for the layout have to be started from the Layout Editor, " +
"jobs for a schematic from the Schematic Editor. " +
"CAM Jobs can be edited and saved by the CAM processor only.</qt>";
string ulp_path ;
char bkslash = '/';
int pos = strrchr(argv[0], bkslash);
if (pos >= 0) ulp_path = strsub(argv[0], 0, pos + 1);
string cmd = "";
int test = 0;
int Result = 0;
// File handling
int n = 0;
string text;
string CAMfileName;
int nBytes;
int align;
string CAMfile;
string Eagle ="<img src=eagle.bmp>";
// *** functions ***
void editsec(int sec) {
string num;
sprintf(num, "%d", sec);
dlgDialog("Section Editor") {
dlgLabel("Section " + num);
dlgHBoxLayout {
dlgPushButton("+OK") dlgAccept();
dlgPushButton("-Cancel") dlgReject();
dlgStretch(1);
}
};
return;
}
void commandPrint(string sectab) {
string h;
string Path = filedir(sectab);
string File_Name = filesetext(filename(sectab), "");
string Extension = fileext(sectab);
string expfilename;
if (Path) { // check filename in CAM-Job *** 23.02.2005 alf@cadsoft.de
if (!File_Name) {
expfilename = Path + filesetext(filename(file_name), "") + Extension;
}
else {
expfilename = Path + File_Name + Extension;
}
}
else {
expfilename = file_name + Extension;
}
sprintf(h, "EXPORT IMAGE '%s%s' %s %d;\n", expfilename, filetype[selfiletype], monochrome, Resolution);
cmd += h;
return;
}
void viewDescript(void) {
string ds;
for (int n = 1 ; n < descrCnt; n++ ) {
if (ds[0] = ' ') {
ds = descriptionLine[n];
ds[0] = ' ';
descriptionLine[n] = ds;
}
}
descriptionLine[0] = "<qt>" + descriptionLine[0] + "</qt>";
ds = strjoin(descriptionLine, '\n');
dlgMessageBox(ds, "OK");
return;
}
void readCam(void) {
sx = 0;
for (int sn = 0; sn < nLines; sn++) {
if( strstr(lines[sn], tok_Descrition) == 0) {
description = strsub(lines[sn], strlen(tok_Descrition) + 1, strlen(lines[sn]) - (strlen(tok_Descrition)+2) );
descrCnt = strsplit (descriptionLine, description, '\\');
}
if( strstr(lines[sn], tok_Sec_n) == 0) {
sx = strtol( strsub(lines[sn], strstr(lines[sn], "_") + 1) );
sprintf(nu, "%d", sx);
}
if( strstr(lines[sn], tok_Name ) == 0) {;
sec_Name[sx] = strsub(lines[sn], strlen(tok_Name) + 1, strlen(lines[sn]) - (strlen(tok_Name)+2) );
sheetprint_from[sx] = 1;
}
if( strstr(lines[sn], tok_Prompt ) == 0) {;
sec_Prompt[sx] = strsub(lines[sn], strlen(tok_Prompt) + 1, strlen(lines[sn]) - (strlen(tok_Prompt)+2) );
}
if( strstr(lines[sn], tok_Out_put ) == 0) {
sec_Out_put[sx] = strsub(lines[sn], strlen(tok_Out_put) + 1, strlen(lines[sn]) - (strlen(tok_Out_put)+2) );
}
if( strstr(lines[sn], tok_Sheet ) == 0) {
sec_Sheet[sx] = strtod( strsub(lines[sn], strlen(tok_Sheet) , strlen(lines[sn]) - (strlen(tok_Sheet) ) ) );
}
// n Layers (max 255)
if( strstr(lines[sn], tok_Layers ) == 0) {
sec_Layers[sx] = strsub(lines[sn], strlen(tok_Layers) + 2, strlen(lines[sn]) - (strlen(tok_Layers)+3) );
// hier noch die Layer
}
}
return;
}
// main
int nt = 0;
do {
if(strlwr(argv[4]) == filetype[nt]) {
selfiletype = nt;
break;
}
nt++;
} while(filetype[nt]);
if (argv[3]) Resolution = strtol(argv[3]);
if (strupr(argv[2]) == "MONOCHROME") sel_monochrome = 1;
if (argv[1]) {
CAMfileName = argv[1];
string dir = filedir(CAMfileName);
if (filedir(CAMfileName)) ;
else CAMfileName = path_cam[0] + "/" + argv[1];
}
else {
CAMfileName = dlgFileOpen("Select CAM File", path_cam[0]+"/*.cam", "*.*");
}
if (CAMfileName) {
nLines = fileread(lines, CAMfileName);
readCam();
}
else exit (0);
if(lines[0] != tok_job) {
dlgMessageBox(CAMfileName + "\nis not a EAGLE CAM-Job\n" + lines[0], "OK");
exit (0);
}
if (schematic) {
schematic(S) {
file_name = filesetext(S.name, "");
if (sheet) sheet(SH) sprintf(actualsheet, "%d", SH.number);
}
schematic(S) {
S.sheets(SH) {
if (lastsheet < SH.number) lastsheet = SH.number;
}
S.layers(L) {
lNames[L.number] = L.name;
lVisible[L.number] = L.visible;
useLayer[L.number] = L.used;
}
}
}
if (board) {
board(B) {
file_name = filesetext(B.name, "");
B.layers(L) {
lNames[L.number] = L.name;
lVisible[L.number] = L.visible;
useLayer[L.number] = L.used;
}
}
}
// tabs menue
Result = dlgDialog("CAM-Job to EXPORT Image-Command") {
//Define a container for tab pages
dlgTabWidget {
int tpn=1;
sheetprint_to[tpn] = lastsheet;
while (sec_Name[tpn]) {
dlgTabPage(sec_Name[tpn]) {
dlgLabel("<b>JOB Name</b>: " + CAMfileName);
dlgSpacing(10);
dlgStretch(0);
dlgHBoxLayout {
dlgStretch(0);
dlgSpacing(10);
dlgLabel(Eagle);
dlgSpacing(10);
if (board) {
dlgVBoxLayout {
dlgGroup("File name/suffix") dlgLabel(sec_Out_put[tpn]);
dlgStretch(1);
}
}
dlgStretch(0);
dlgHBoxLayout {
dlgStretch(0);
dlgVBoxLayout {
if (schematic) {
dlgStretch(0);
dlgGroup("Sheet") {
dlgVBoxLayout {
dlgHBoxLayout {
dlgRadioButton("&All ", sheetprint);
dlgLabel(" ");
dlgStretch(1);
}
dlgHBoxLayout {
dlgRadioButton("&From ", sheetprint);
dlgLabel("S&heet ");
dlgIntEdit(sheetprint_from[tpn], 1, lastsheet);
dlgLabel(" &to ");
dlgIntEdit(sheetprint_to[tpn], sheetprint_from[tpn], lastsheet);
dlgStretch(1);
}
dlgHBoxLayout {
dlgRadioButton("&# ", sheetprint);
string sl;
sprintf(sl, "%d/%d", sec_Sheet[tpn], lastsheet);
dlgLabel(sl + " (def. in section)");
dlgStretch(1);
}
dlgHBoxLayout {
dlgRadioButton("Actua&l ", sheetprint);
dlgLabel(actualsheet);
dlgStretch(1);
}
}
}
} // if schematic
dlgStretch(1);
}
// *** Layer list to print ***
int Seleclayer;
string layer[] ;
int n = 0;
int ln = strsplit(layer, sec_Layers[tpn], ' ');
for (int x = 0; x < ln; x++) {
int num = strtod(layer[x]);
if (useLayer[num]) {
if(schematic) {
if (num >= 90) {
sprintf(sec_usedlayer[n], "%3s %s", layer[x], lNames[num]);
n++;
}
}
if(board) {
if (num < 90 || num > 100) {
sprintf(sec_usedlayer[n], "%3s %s", layer[x], lNames[num]);
n++;
}
}
}
}
sec_usedlayer[n] = ""; // clear last+1
absolutUsedLayer = n;
dlgStretch(0);
dlgSpacing(10);
dlgVBoxLayout {
if (absolutUsedLayer) {
dlgHBoxLayout { dlgSpacing(100); }
dlgLabel("Printed layers");
dlgListBox(sec_usedlayer, Seleclayer);
}
else {
dlgLabel("<img src=warning.bmp>");
dlgLabel("no Layers selected\nin this CAM-Job/Section!\nLoad a correct Job.");
}
}
dlgSpacing(10);
}
dlgStretch(1);
}
dlgStretch(1);
tpn++;
}
} // ************ End of TAB | SHEET ***********
dlgTabPage("&Help") {
dlgSpacing(10);
dlgHBoxLayout {
dlgSpacing(10);
dlgVBoxLayout {
dlgHBoxLayout {
dlgLabel(Eagle);
dlgSpacing(10);
dlgVBoxLayout {
dlgLabel(EAGLE_SIGNATURE);
dlgSpacing(10);
if (description) {
dlgHBoxLayout {
dlgPushButton("&Show Job Description") viewDescript();
dlgStretch(1);
}
}
else dlgLabel("CAM Job description is EMPTY");
}
dlgStretch(1);
}
dlgSpacing(10);
dlgLabel(help);
dlgStretch(1);
}
}
}
} // ************ End of all TABs ***********
dlgHBoxLayout {
dlgLabel("FileType");
dlgComboBox(filetype, selfiletype);
dlgSpacing(15);
dlgCheckBox("Monochrome", sel_monochrome);
dlgSpacing(15);
dlgLabel("Resolution DPI");
dlgIntEdit(Resolution, 50, 600);
dlgStretch(1);
}
dlgHBoxLayout {
dlgStretch(0);
dlgPushButton("+OK") dlgAccept();
dlgStretch(0);
dlgPushButton("-Cancel") dlgReject();
dlgStretch(1);
dlgPushButton("&Load CAM-File") {
CAMfileName = dlgFileOpen("select a File", path_cam[0]+"/*.cam", "");
if (CAMfileName) {
exit ("run '" + filesetext(argv[0], "") + "' '" + CAMfileName + "';\n");
}
}
dlgStretch(1);
}
};
if (Result == 0) exit (0);
if (sel_monochrome) monochrome = "MONOCHROME";
else monochrome = "";
if (test) cmd = "# generatet by " + argv[0] + " from " + CAMfileName + "\n";
for (int tpn = 1; tpn <= sx; tpn++) {
string layer[] ;
int n = 0;
int ln = strsplit(layer, sec_Layers[tpn], ' ');
if (test) cmd += "# Section: " + sec_Name[tpn] + "\n";
if(board) {
cmd += "SET DISPLAY_MODE REAL;\n";
cmd += "RATSNEST;\n";
cmd += "DISPLAY NONE ";
for (int x = 0; x < ln; x++) {
int num = strtod(layer[x]);
if (num < 90 || num > 100) {
if (useLayer[num]) {
sprintf(s, " %3s", layer[x]);
cmd += s;
if(num == 21) cmd += " -23 -25 -27 -51";
if(num == 22) cmd += " -24 -26 -28 -52";
n++;
}
}
}
cmd += ";\n";
commandPrint(sec_Out_put[tpn]);
}
if(schematic) {
cmd += "DISPLAY NONE ";
for (int x = 0; x < ln; x++) {
int num = strtod(layer[x]);
if (useLayer[num]) {
if (num >= 90) {
sprintf(s, " %3s", layer[x]);
cmd += s;
n++;
}
}
}
cmd += ";\n";
string sh;
string shn;
switch (sheetprint) {
case 0 : schematic(S) {
S.sheets(SH) {
sprintf(sh, "EDIT '.s%d';\n", SH.number);
cmd += sh;
sprintf(shn, "_s%d", SH.number);
commandPrint(shn);
}
}
break;
case 1 : for (int prn = sheetprint_from[tpn]; prn <= sheetprint_to[tpn]; prn++) {
sprintf(sh, "EDIT '.s%d';\n", prn);
cmd += sh;
sprintf(shn, "_s%d", prn);
commandPrint(shn);
}
break;
case 2 : sprintf(sh, "EDIT '.s%d';\n", sec_Sheet[tpn]);
cmd += sh;
sprintf(shn, "_s%d", sec_Sheet[tpn]);
commandPrint(shn);
break;
case 3 : sprintf(sh, "EDIT '.s%s';\n", actualsheet);
cmd += sh;
sprintf(shn, ".s%s", actualsheet);
commandPrint(shn);
break;
}
}
}
cmd += "DISPLAY ";
if(board) {
for(int l = 1; l < 90; l++) {
if (useLayer[l]) {
if (lVisible[l]) {
sprintf(s, " %d", l);
cmd += s;
}
else {
sprintf(s, " -%d", l);
cmd += s;
}
}
}
for(l = 100; l < 256; l++) {
if (useLayer[l]) {
if (lVisible[l]) {
sprintf(s, " %d", l);
cmd += s;
}
else {
sprintf(s, " -%d", l);
cmd += s;
}
}
}
cmd += ";\n";
}
if(schematic) {
for(int l = 91; l < 256; l++) {
if (useLayer[l]) {
if (lVisible[l]) {
sprintf(s, " %d", l);
cmd += s;
}
else {
sprintf(s, " -%d", l);
cmd += s;
}
}
}
cmd += ";\n";
sprintf(s, "EDIT '.s%s';\n", actualsheet);
cmd += s;
}
if (test) { dlgMessageBox(cmd, "OK", "Cancel"); exit (0);}
exit (cmd);