/********************************************************/ /**** Routine de lecture et visu d'un fichier GERBER ****/ /********************************************************/ #include "fctsys.h" #include "common.h" #include "gerbview.h" #include "pcbplot.h" #include "protos.h" /* Format Gerber : NOTES : Fonctions preparatoires: Gn = G01 interpolation lineaire ( trace de droites ) G02,G20,G21 Interpolation circulaire , sens trigo < 0 G03,G30,G31 Interpolation circulaire , sens trigo > 0 G04 commentaire G06 Interpolation parabolique G07 Interpolation cubique G10 interpolation lineaire ( echelle 10x ) G11 interpolation lineaire ( echelle 0.1x ) G12 interpolation lineaire ( echelle 0.01x ) G52 plot symbole reference par Dnn code G53 plot symbole reference par Dnn ; symbole tourne de -90 degres G54 Selection d'outil G55 Mode exposition photo G56 plot symbole reference par Dnn A code G57 affiche le symbole reference sur la console G58 plot et affiche le symbole reference sur la console G60 interpolation lineaire ( echelle 100x ) G70 Unites = Inches G71 Unites = Millimetres G74 supprime interpolation circulaire sur 360 degre, revient a G01 G75 Active interpolation circulaire sur 360 degre G90 Mode Coordonnees absolues G91 Mode Coordonnees Relatives Coordonnees X,Y X,Y sont suivies de + ou - et de m+n chiffres (non separes) m = partie entiere n = partie apres la virgule formats classiques : m = 2, n = 3 (format 2.3) m = 3, n = 4 (format 3.4) ex: G__ X00345Y-06123 D__* Outils et D_CODES numero d'outil ( identification des formes ) 1 a 99 (classique) 1 a 999 D_CODES: D01 ... D9 = codes d'action: D01 = activation de lumiere (baisser de plume) lors du déplacement D02 = extinction de lumiere (lever de plume) lors du déplacement D03 = Flash D09 = VAPE Flash D51 = precede par G54 -> Select VAPE D10 ... D255 = Indentification d'outils ( d'ouvertures ) Ne sont pas tj dans l'ordre ( voir tableau dans PCBPLOT.H) */ /* Variables locales : */ /* Routines Locales */ /* Routine de Lecture d'un fichier de D Codes. Accepte format standard ou ALSPCB un ';' demarre un commentaire. Format Standard: tool, Horiz, Vert, drill, vitesse, acc. ,Type ; [DCODE (commentaire)] ex: 1, 12, 12, 0, 0, 0, 3 ; D10 Format ALSPCB: Ver , Hor , Type , Tool [,Drill] ex: 0.012, 0.012, L , D10 Classe les caract en buf_tmp sous forme de tableau de structures D_CODE. Retourne: < 0 si erreur: -1 = Fichier non trouve -2 = Erreur lecture fichier Rang de D_code maxi lu ( nbr de dcodes ) Representation interne: Les lignes sont représentées par des TRACKS standards Les Flash sont représentées par des DRAWSEGMENTS - ronds ou ovales: DRAWSEGMENTS - rectangles: DRAWSEGMENTS la reference aux D-CODES est placée dans le membre m_NetCode */ /********************************************************/ bool WinEDA_GerberFrame::Read_GERBER_File(wxDC * DC, const wxString & GERBER_FullFileName, const wxString & D_Code_FullFileName) /********************************************************/ /* Lecture de 1 fichier gerber. Format Imperial Absolu fin de bloc = * CrLf apres chaque commande G codes repetes */ { int G_commande = 0, D_commande = 0 ; /* Numero de commande G et D codes */ char Line[1024]; // Buffer des lignes du fichier gerber en cours wxString msg; char * text; int layer = GetScreen()->m_Active_Layer; GERBER_Descr * gerber_layer; wxPoint pos; int error = 0; if ( g_GERBER_Descr_List[layer] == NULL ) { g_GERBER_Descr_List[layer] = new GERBER_Descr(layer); } gerber_layer = g_GERBER_Descr_List[layer]; /* Mise a jour de l'echelle gerber : */ gerber_layer->ResetDefaultValues(); /* Lecture du fichier de Trace */ gerber_layer->m_Current_File = wxFopen(GERBER_FullFileName, wxT("rt") ); if (gerber_layer->m_Current_File == 0) { msg = _("File ") + GERBER_FullFileName + _(" not found"); DisplayError(this, msg, 10); return FALSE; } gerber_layer->m_FileName = GERBER_FullFileName; wxSetWorkingDirectory(wxPathOnly(GERBER_FullFileName)); wxBusyCursor show_wait; setlocale(LC_NUMERIC, "C"); while( TRUE ) { if ( fgets(Line,255,gerber_layer->m_Current_File) == NULL ) // E.O.F { if ( gerber_layer->m_FilesPtr == 0 ) break; fclose(gerber_layer->m_Current_File); gerber_layer->m_FilesPtr --; gerber_layer->m_Current_File = gerber_layer->m_FilesList[gerber_layer->m_FilesPtr]; continue; } text = StrPurge(Line); while ( text && *text ) { switch( *text ) { case ' ': case '\r': case '\n': text ++; break; case '*': // End commande gerber_layer->m_CommandState = END_BLOCK; text ++; break; case 'M': // End file gerber_layer->m_CommandState = CMD_IDLE; while ( *text ) text ++; break; case 'G': /* Ligne type Gxx : commande */ G_commande = gerber_layer->ReturnGCodeNumber(text); gerber_layer->Execute_G_Command(text, G_commande); break ; case 'D': /* Ligne type Dxx : Selection d'un outil ou commande si xx = 0..9*/ D_commande = gerber_layer->ReturnDCodeNumber(text); gerber_layer->Execute_DCODE_Command(this, DC, text, D_commande); break ; case 'X': case 'Y': /* Commande de deplacement ou de Trace */ pos = gerber_layer->ReadXYCoord(text); if ( *text == '*' ) // command like X12550Y19250* { gerber_layer->Execute_DCODE_Command(this, DC, text, gerber_layer->m_Last_Pen_Command); } break; case 'I': case 'J': /* Commande de deplacement ou de Trace */ pos = gerber_layer->ReadIJCoord(text); break; case '%': if (gerber_layer->m_CommandState != ENTER_RS274X_CMD ) { gerber_layer->m_CommandState = ENTER_RS274X_CMD; gerber_layer->ReadRS274XCommand(this, DC, Line, text); } else //Error { wxBell(); error++; gerber_layer->m_CommandState = CMD_IDLE; text++; } break; default: text ++; error++; break; } // end switch (*text) } // end while (text } // end while (TRUE) if ( error ) { msg.Printf( _("%d errors while reading Gerber file [%s]"), error, GERBER_FullFileName.GetData()); DisplayError(this, msg); } fclose(gerber_layer->m_Current_File) ; setlocale(LC_NUMERIC, ""); /* Init tableau des DCodes et Lecture fichier DCODES */ if ( !gerber_layer->m_As_DCode ) { wxString DCodeFileName; if( D_Code_FullFileName.IsEmpty()) { wxString mask; DCodeFileName = GERBER_FullFileName; ChangeFileNameExt(DCodeFileName, g_PenFilenameExt); mask = wxT("*") + g_PenFilenameExt; DCodeFileName = EDA_FileSelector( _("D CODES files:"), wxEmptyString, /* Chemin par defaut */ DCodeFileName, /* nom fichier par defaut */ g_PenFilenameExt, /* extension par defaut */ mask, /* Masque d'affichage */ this, 0, TRUE ); } else DCodeFileName = D_Code_FullFileName; if ( ! DCodeFileName.IsEmpty() ) { Read_D_Code_File(DCodeFileName); CopyDCodesSizeToItems(); } } return TRUE; }