cam2image.ulp

老外的PCB设计软件,是免费的.可以上网更新.

#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: [e-mail]</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 [e-mail]
// Revision 2. 23.02.2005 Use correct file name in CAM-Job-Section [e-mail]


// 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  [e-mail]
      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);