检查盲埋孔叠孔

wang66jin · 发表于 2016-4-1 11:52

针对ALLEGRO一些版本的BUG,盲埋孔叠孔不报错，借用论坛里的一个程序改的，水平有限，瞎改。

axlCmdRegister("BBVIATOBBVIA" `BBVIATOBBVIA)
procedure( BBVIATOBBVIA()
      let(
                  (vias
                        lx
                        ly
                        ux
                        uy
                        VIATOVIAS
                        logfile
                        rep_file
                        section_list
                  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
         section_list = axlGetXSection()
num = 0
vialayer_name_list = nil
        foreach(x section_list
                  everylayer_name = nth(0 x)
                  everylayer_type = nth(1 x)  ;conductor plane

               if(  everylayer_type == "PLANE" || everylayer_type == "CONDUCTOR"  then
      num = num + 1
            vialayer_name = strcat( "VIA CLASS/" everylayer_name)
   vialayer_name_list = cons(vialayer_name vialayer_name_list)
   ;axlVisibleLayer( vialayer_name t)
                        ;axlVisibleUpdate(t)
         )
            )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
         axlClearSelSet()
         axlVisibleDesign(nil)
         axlMsgPut("%d " num)
VIATOVIAS=nil
         for(n 0 num-1
axlVisibleDesign(nil)
axlMsgPut("%d " n)
         if( (n+1) < num then
vialayer_namex = nth(n vialayer_name_list)
axlVisibleLayer( vialayer_namex t)
vialayer_namex = nth(n+1 vialayer_name_list)
axlVisibleLayer( vialayer_namex t)
         axlVisibleUpdate(t)

         axlSetFindFilter( ?enabled (list "vias" ) ?onButtons (list "vias"))
         vias = axlGetSelSet(axlAddSelectAll())

      foreach( via  vias
                     axlClearSelSet()
                     lx=car(via->xy)-4
                     ly=cadr(via->xy)-4
                     ux=car(via->xy)+4
                     uy=cadr(via->xy)+4
               axlAddSelectBox(list(lx:ly ux:uy))
               n = axlGetSelSetCount()
               if( axlGetSelSetCount()>1  then
                        VIATOVIAS=cons(via VIATOVIAS)
                        ); end if
                     );end foreach

);if
);for

foreach(vialayer_name vialayer_name_list
         axlVisibleLayer( vialayer_name t)
               axlVisibleUpdate(t)
         )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                  logfile="./VIA_TO_VIA.txt"
                  rep_file=outfile(logfile)
            fprintf(rep_file "\t Stack Vias Report\n\n Padstack Name\t\tLocation\n\n")


      foreach( via VIATOVIAS

            fprintf(rep_file "%L\t\t%L\n" via->name , via->xy )

               if( length(VIATOVIAS)==0 then
                  axlMsgPut("No VIA TO VIA .")
                  else
                  axlMsgPut("%d VIA TO VIA exist."  length(VIATOVIAS))
                  );end if
);end foreach


               axlClearSelSet()
         close(rep_file)
         axlUIViewFileCreate(logfile " Vias Log" t)
      );end let
      );end defun