jet_ecs.il

Allegro常用skill

procedure(_ecs_via()
let( (dvias svias tb_vias op1 op2 count _name _nets)
  sh("if exist via_dip.txt del via_*.txt")
  sh("if exist via_smd.txt del via_*.txt")
  (axlVisibleDesign nil)
  axlVisibleLayer("BOARD GEOMETRY/OUTLINE" t)
  axlVisibleLayer("VIA CLASS/TOP" t)
  axlVisibleLayer("VIA CLASS/BOTTOM" t)
  axlSetFindFilter(?enabled list("noall" "vias") ?onButtons list("all"))
  wbox=axlGetParam("paramDesign")->bBox   dvias=nil   svias=nil 
  tb_vias=axlGetSelSet(axlSingleSelectBox(wbox))  axlClearSelSet()
  (foreach v tb_vias if(v->net->prop->ECL then
    if(v->isThrough then dvias=cons(v->net->name dvias)
     else svias=cons(v->net->name svias) ) )  )
  printf("--- ecl_via-dip=%d ;  ecl_via-smd=%d ;\n" length(dvias) length(svias))
  if(length(svias)>0 then op1=outfile("via_dip.log") op2=outfile("via_smd.log") )
  _nets=(axlDBGetDesign)->nets     count=0
  (foreach n _nets if(n->prop->ECL then  ++count _name=n->name
   if(length(svias)>0 then
    if(!member(_name dvias) then fprintf(op1 "%s : 0\n" _name))
    if(!member(_name svias) then fprintf(op2 "%s : 0\n" _name)) )
  ));foreach
  op3=outfile("no_rpt.txt") 
  fprintf(op3 "--- .brd Total : [ %d ] ecl-nets  ---\n" count)
  if(length(svias)>0 then
   while(length(dvias)>0    count=0      _name=nth(0 dvias)
    (foreach d dvias if(d==_name then ++count))
    dvias=remd(_name dvias) 
    fprintf(op1 "%s : %d\n" _name count) )
   while(length(svias)>0    count=0      _name=nth(0 svias)
    (foreach s svias if(s==_name then ++count))
    svias=remd(_name svias) 
    fprintf(op2 "%s : %d\n" _name count) )
   close(op1)    close(op2)   
  );if(length(svias)>0
  close(op3)  sh("ecs_a")
)) ; load("ecsvia.il")  2008/9/11

procedure(ecs()
let( (jobname sh_cmd)
 jobname=axlCurrentDesign()
 axlSaveDesign() 
 if(axlDesignType(t)=="BOARD" then (sprintf sh_cmd "report -h %s.brd ecs" jobname))
 if(axlDesignType(t)=="PARTITION" then (sprintf sh_cmd "report -h %s.dpf ecs" jobname))
 sh(sh_cmd)        (_ecs_via)         
 axlUIViewFileCreate("no_rpt.txt" "Ecs Report" nil)
));ecs 2008/9/11

axlCmdRegister( "ecs" `ecs)
;Command > skill load("jet_ecs.il")    ;or load("jet_ecs.il")
;Command >ecs