检查盲埋孔叠孔

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

EDA365欢迎您登录！

您需要登录才可以下载或查看，没有帐号？注册

x

针对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

wang66jin · 发表于 2016-4-1 14:15

程序有问题

skill_rc · 发表于 2016-4-15 16:26

看看

evel · 发表于 2016-4-17 22:59

Allegro 自身可以检查这种问题啊。看看 BB Via Separation 设置

LX0105 · 发表于 2016-10-12 17:06

学习了！

LX0105 · 发表于 2017-4-27 09:26

非常的好，谢谢分享

bingshuihuo · 发表于 2017-4-27 19:28

非常的好，谢谢分享

zhuhj · 发表于 2017-11-15 17:30

厉害了

szhot · 发表于 2017-11-16 20:21

可以有

mentorkk · 发表于 2017-11-17 02:06

程序有问题

changjinling · 发表于 2017-12-7 11:27

刚开始学，不太能看懂

moca · 发表于 2017-12-11 09:01

有問題嗎? 來去檢查看看一下 !! 謝囉

kcm · 发表于 2018-9-7 09:25

skill程序优化完了？能否分享下，谢谢！

mingx · 发表于 2019-1-29 10:40

thank's for your provide

senfetech · 发表于 2024-1-8 08:53

6666666666

帐号		自动登录	找回密码
密码			注册

检查盲埋孔叠孔

EDA365欢迎您登录！

浏览过的版块

推荐内容 /1