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.
557 lines
16 KiB
Plaintext
557 lines
16 KiB
Plaintext
15 years ago
|
#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);
|