• Skip to main content
  • Skip to search
  • Skip to footer
Cadence Home
  • This search text may be transcribed, used, stored, or accessed by our third-party service providers per our Cookie Policy and Privacy Policy.

  1. Community Forums
  2. Allegro X PCB Editor
  3. Help me with Via parameter !

Stats

  • Replies 12
  • Subscribers 159
  • Views 16192
  • Members are here 0
More Content

Help me with Via parameter !

luanvn81
luanvn81 over 13 years ago

 Hi everyone!
I have a skill file ( download from internet), I'm researching it but there are something I don't understand, so I hope evertone can help me. And here is it:
*****************************************************************
axlCmdRegister( "myCompanyViaReport" `myCompanyViaReport)
(defun myCompanyViaReport ()
; Find all of the vias in the design
allViasInDesign=list()
originalVisible=axlVisibleGet()
designName = axlCurrentDesign()
axlVisibleDesign(t)
axlShell("redisplay")
axlSetFindFilter(?enabled '(noall vias) ?onButtons '(noall vias))
allViasInDesign=axlGetSelSet(axlAddSelectAll())
axlClearSelSet()
; Open a file to work on
if(length(allViasInDesign)==0
then
axlUIConfirm("No vias in this design. Please try another design.")
else
writeOutFile = outfile("./TBL-DesignViaReport.csv" "w")
fprintf(writeOutFile strcat("Design Via Report for " designName "\n\n"))
fprintf(writeOutFile "Via Location,Via Net Name,Padstack Name,Via Start
Layer,Via End Layer\n")
; Output data for each via to the file
foreach(via allViasInDesign
viaLocation = sprintf(nil "%L:%L" car(via->xy) cadr(via->xy))
fprintf(writeOutFile strcat(viaLocation ","))
fprintf(writeOutFile strcat(via->net->name ","))
fprintf(writeOutFile strcat(via->name ","))
fprintf(writeOutFile strcat(car(via->startEnd) ","))
fprintf(writeOutFile strcat(cadr(via->startEnd) "\n"))
);end foreach via allViasInDesign
; Close the file and wrap up
fprintf(writeOutFile "END OF FILE")
close(writeOutFile)
axlVisibleSet(originalVisible)
axlShell("redisplay")
axlUIConfirm( "Report has been generated in your working directory." )
; This next line launches Excel and displays the report
axlHttp("TBL-DesignViaReport.csv")
);end if length(allViasInDesign)==0
);end defun myCompanyViaReport
********************************************************************
??????????????????
- How can I know paramerter of Vias such as ViaLocation, via net name, via name, via start layer, end layer in order to make this:
================================================================
viaLocation = sprintf(nil "%L:%L" car(via->xy) cadr(via->xy))
fprintf(writeOutFile strcat(viaLocation ","))
fprintf(writeOutFile strcat(via->net->name ","))
fprintf(writeOutFile strcat(via->name ","))
fprintf(writeOutFile strcat(car(via->startEnd) ","))
fprintf(writeOutFile strcat(cadr(via->startEnd) "\n")
================================================================

I'm using Allegro 16.3 and it seem can't run with BB via.
Tks!
Luanvn81

  • Sign in to reply
  • Cancel
Parents
  • eDave
    eDave over 13 years ago

    Hi Luan,

    There must be easier was to do this but here are some corrections:

     defun( Reportvia ()

    originalVisible=axlVisibleGet()

    designName = axlCurrentDesign()

    subclasses = '("VP24, VP23, VP22" )

     

    ;========Check & get input file==========

    if(isFile("netlist.txt") then

    ;netlist=list(); unnecessary

    netlist=nil

     

    inPort = infile( "netlist.txt" )

    when( inPort

    while( gets( nextline inPort )

    nextline = car(parseString(nextline, "\n"))

    netlist=cons(concat(nextline), netlist)

    );end while

    close( inPort )

    netlist = reverse(netlist)

     

    ;==========format what to do for each subclass ==========================

    foreach(subclass, subclasses

     

    ;========== Get vias layer by layer & save in a list=====================

    viaList = concat("viaList_", subclass)

    set(viaList, nil)

    axlVisibleDesign(nil)

    axlVisibleLayer(strcat("via class/", subclass) t)

    axlVisibleUpdate(t)

    axlSetFindFilter(?enabled '(noall vias) ?onButtons '(noall vias))

    allViasInSubclass = axlGetSelSet(axlAddSelectAll())

    axlClearSelSet()

     

    ;===== Create listnetslayer & set list's elements = netlist's element====

    netlistlayer = concat("netlist_", subclass)

    set(netlistlayer, netlist)

     

    ;========== Caculating number of vias each net in layer =================

    foreach(netname, eval(netlistlayer)

      ;sumvias = setof(via, allViasInSubclass, via->net->name = get_pname(netname))

      sumvias = setof(via, allViasInSubclass, via ->net ->name == get_pname(netname))

      netname ->count = length(sumvias)

    );end foreach netname

    );end foreach subclass

     

    ;========== Write out file========

    writeOutFile = outfile( "./Via_by_layer_and_netname_report.txt" ) ; open write tmp file

     

    ;========== Format outfile =======

    ; ##########NOT FORMAT YET###########

    fprintf(writeOutFile "END OF FILE")

     

    close(writeOutFile)

    );end when

    ;======= Review begin status======

     

    else

    axlUIConfirm( "File netlist.txt can't be found!")

    axlVisibleSet(originalVisible)

    axlShell("redisplay")

    );enf if netlist.txt

    );end defun 

    • Cancel
    • Vote Up 0 Vote Down
    • Sign in to reply
    • Cancel
Reply
  • eDave
    eDave over 13 years ago

    Hi Luan,

    There must be easier was to do this but here are some corrections:

     defun( Reportvia ()

    originalVisible=axlVisibleGet()

    designName = axlCurrentDesign()

    subclasses = '("VP24, VP23, VP22" )

     

    ;========Check & get input file==========

    if(isFile("netlist.txt") then

    ;netlist=list(); unnecessary

    netlist=nil

     

    inPort = infile( "netlist.txt" )

    when( inPort

    while( gets( nextline inPort )

    nextline = car(parseString(nextline, "\n"))

    netlist=cons(concat(nextline), netlist)

    );end while

    close( inPort )

    netlist = reverse(netlist)

     

    ;==========format what to do for each subclass ==========================

    foreach(subclass, subclasses

     

    ;========== Get vias layer by layer & save in a list=====================

    viaList = concat("viaList_", subclass)

    set(viaList, nil)

    axlVisibleDesign(nil)

    axlVisibleLayer(strcat("via class/", subclass) t)

    axlVisibleUpdate(t)

    axlSetFindFilter(?enabled '(noall vias) ?onButtons '(noall vias))

    allViasInSubclass = axlGetSelSet(axlAddSelectAll())

    axlClearSelSet()

     

    ;===== Create listnetslayer & set list's elements = netlist's element====

    netlistlayer = concat("netlist_", subclass)

    set(netlistlayer, netlist)

     

    ;========== Caculating number of vias each net in layer =================

    foreach(netname, eval(netlistlayer)

      ;sumvias = setof(via, allViasInSubclass, via->net->name = get_pname(netname))

      sumvias = setof(via, allViasInSubclass, via ->net ->name == get_pname(netname))

      netname ->count = length(sumvias)

    );end foreach netname

    );end foreach subclass

     

    ;========== Write out file========

    writeOutFile = outfile( "./Via_by_layer_and_netname_report.txt" ) ; open write tmp file

     

    ;========== Format outfile =======

    ; ##########NOT FORMAT YET###########

    fprintf(writeOutFile "END OF FILE")

     

    close(writeOutFile)

    );end when

    ;======= Review begin status======

     

    else

    axlUIConfirm( "File netlist.txt can't be found!")

    axlVisibleSet(originalVisible)

    axlShell("redisplay")

    );enf if netlist.txt

    );end defun 

    • Cancel
    • Vote Up 0 Vote Down
    • Sign in to reply
    • Cancel
Children
No Data
Cadence Guidelines

Community Guidelines

The Cadence Design Communities support Cadence users and technologists interacting to exchange ideas, news, technical information, and best practices to solve problems and get the most from Cadence technology. The community is open to everyone, and to provide the most value, we require participants to follow our Community Guidelines that facilitate a quality exchange of ideas and information. By accessing, contributing, using or downloading any materials from the site, you agree to be bound by the full Community Guidelines.

© 2025 Cadence Design Systems, Inc. All Rights Reserved.

  • Terms of Use
  • Privacy
  • Cookie Policy
  • US Trademarks
  • Do Not Sell or Share My Personal Information