tools/PCB2HPGL

   1 #!/usr/bin/perl
   2 #
   3 #
   4 #       Der der Autor ist kein geringerer wie <smilebef@web.de> der Smilie
   5 #       Also Fragen zu Hpgl oder Plotter,
   6 #       möglicherweise kann ich ja helfen
   7 #
   8 #       Also ganz einfach die Layer.Dateien mit diesen Program erzeugen
   9 #       mit "Program pcb-Datei"
  10 #       das ganze in einem Verzeichnis wo ihr auch schreibrechte habt
  11 #       und dann ganz einfach den gewünchten Layer auf den Plotter kopieren
  12 #       zBsp. so "cat Layer.1.jenachdem.hpgl > /dev/lp0
  13 #       den Stift müßt ihr dem Plotter in die Hand geben
  14 #       und den Stiftrevolver entnehmen daß es eine Kollision giebt.
  15
  16 if( $ARGV[0] )
  17 {
  18 }
  19 else{print "use ".$0." [pcb-file] to convert to hpgl\n";
  20 exit;};
  21
  22 sub abschnitt
  23
  24 {
  25 close(DATEI);
  26 if(/Layer.(\d)\s.(\w+)../)
  27 {
  28 $da="Layer.$1.$2.hpgl";
  29 }
  30 open(DATEI , ">$da");
  31 }
  32
  33
  34
  35 sub via
  36
  37 {
  38
  39 open(DATE,">>Layer.Via.hpgl");
  40 if(/Via.(\S+)\s(\S+)\s(\S+)\s(\S+)/)
  41 {
  42 print(DATE "PA".($1).",".($2).";CI".($4).";");
  43 }
  44 close(DATE);
  45 }
  46 sub pin
  47
  48 {
  49 open(DATE,">>Layer.Pin.hpgl");
  50 if(/\tPin.(\S+)\s(\S+)\s(\S+)\s(\S+)/)
  51 {
  52 print(DATE "PA".($1).",".($2).";CI".($4).";");
  53 }
  54 close(DATE);
  55
  56 }
  57
  58
  59
  60 sub text
  61
  62 {
  63 open(DATE,">>Layer.Text.hpgl");
  64 if(/\tText.(\S+)\s(\S+)\s(\S+)\s(\S+)\s"(\S+)"/)
  65 {
  66 if($3==0){$di=";DI0,1;";};
  67 if($3==1){$di=";DI1,0;";};
  68 print(DATE "PA".$1.",".$2.$di."SI".($4/450).",".($4/675).";LB".$5."\e;");
  69 }
  70 close(DATE);
  71
  72 }
  73
  74
  75
  76 sub linie
  77
  78 {
  79 if(/\tLine.(\S+)\s(\S+)\s(\S+)\s(\S+)/)
  80 {
  81 print (DATEI "PU".($1).",".($2).";PD".($3).",".($4).";PU;");
  82 }
  83 }
  84
  85
  86
  87 sub arc
  88
  89 {
  90 if(/\tArc.(\S+)\s(\S+)\s(\S+)\s(\S+)\s(\S+)\s(\S+)\s(\S+)/)
  91 {
  92 if($6==90){$sin=1;$cos=0;}
  93 if($6==-90){$sin=-1;$cos=0;}
  94 if($6==0){$sin=0;$cos=1;}
  95 if($6==180){$sin=0;$cos=-1;}
  96 if($6==-180){$sin=0;$cos=-1;}
  97 if($6==270){$sin=-1;$cos=0;}
  98 if($6==-270){$sin=1;$cos=0;}
  99 print (DATEI "PA".($1-($3*$cos)).",".($2+($3*$sin)).";PD;AA".($1).",".($2).",".($7*(-1)).";PU;");
 100 }
 101 }
 102
 103
 104
 105 sub polygon
 106
 107 {
 108 if(/\t\t.(\S+)\s(\S+).\s.(\S+)\s(\S+).\s.(\S+)\s(\S+).\s.(\S+)\s(\S)./)
 109 {
 110 print (DATEI "PA".$1.",".$2.";RA".$5.",".$6.";");
 111 }
 112 }
 113
 114 # ist noch nicht eingebunden.
 115 #sub polygon
 116
 117 #{
 118 #s/\t\t./PU/;
 119 #s/\s/,/;
 120 #while(/\)\s\(/)
 121 #{s/\)\s\(/\;PD/;}
 122 #while(/\S\s\S/)
 123 #{s/\s/,/;}
 124 #s/\)/\;PU\;/;
 125 #print (DATEI $_);
 126 #}
 127
 128
 129 open(DATE,">Layer.Via.hpgl");
 130 close(DATE);
 131 open(DATE,">Layer.Text.hpgl");
 132 print(DATE "DT\e;");
 133 close(DATE);
 134 open(DATE,">Layer.Pin.hpgl");
 135 close(DATE);
 136 while(<>)
 137 {
 138 if(/\tPin/){&pin}
 139 if(/Layer/){&abschnitt;}
 140 if(/Via/){&via;}
 141 if(/\tArc/){&arc;}
 142 if(/\tLine/){ &linie;}
 143 if(/\t\t/){&polygon;}
 144 if(/\tText\(/){&text;}
 145 }
 146 close(DATEI);
 147