Stats

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

Help me with Via parameter !

luanvn81

 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

Parents

  •  Hi ! thank for your code. It works OK, I have changed writting out method in order to apply for many layers.

      Now. Can you show me other problem ?

    I'm testing a code, but there something I don't know. Here the code.

      axlCmdRegister( "Reportvia" `Reportvia)
    (defun Reportvia ()

    if(isFile("netlist.txt") then
    netlist = list()
    netlist = nil
    inPort = infile( "netlist.txt" )
    when( inPort
    while( gets( nextline inPort )
    netlist = cons(concat(nextline),netlist)
    );end while
    close( inPort )
    netlist=reverse(netlist)
    );end when
    else
    axlUIConfirm( "File netlist.txt can't be found!")
    exit()
    );end if

          foreach(netname, netlist
            netlist->netname = 10    ; property of each net name =10
          );end foreach

        writeOutFile = outfile( "./Via_report.txt" )

          foreach(netname, netlist
           fprintf(writeOutFile, "%s %d\n", get_pname(concat(netname)), netlist->netname)
           );end foreach
          close(writeOutFile)

    );end defun

    1/ Can you show me  if the netlist.txt file isn't exist ==> ;E- *Error* eval: unbound variable - netlist. How can I resolve it?

    2/ In order to print netname out, is there any others way to get name of net.

    3/ the result of my code : (via_report.txt), - and the result don't like as I wish.

    D1_HC1_4
     10
    netname 10 
    10 10
    D1_HC2
     10
    D1_HC3
     10
    D1_HC4
     10
    D1_HC5 10
     

     ===> please show me where is wrong?how can I fix it?

    (my netlist is: 

    D1_HC1_4
    D1_HC2
    D1_HC3
    D1_HC4
    D1_HC5

    )

    tks.

    Luan.

Reply

  •  Hi ! thank for your code. It works OK, I have changed writting out method in order to apply for many layers.

      Now. Can you show me other problem ?

    I'm testing a code, but there something I don't know. Here the code.

      axlCmdRegister( "Reportvia" `Reportvia)
    (defun Reportvia ()

    if(isFile("netlist.txt") then
    netlist = list()
    netlist = nil
    inPort = infile( "netlist.txt" )
    when( inPort
    while( gets( nextline inPort )
    netlist = cons(concat(nextline),netlist)
    );end while
    close( inPort )
    netlist=reverse(netlist)
    );end when
    else
    axlUIConfirm( "File netlist.txt can't be found!")
    exit()
    );end if

          foreach(netname, netlist
            netlist->netname = 10    ; property of each net name =10
          );end foreach

        writeOutFile = outfile( "./Via_report.txt" )

          foreach(netname, netlist
           fprintf(writeOutFile, "%s %d\n", get_pname(concat(netname)), netlist->netname)
           );end foreach
          close(writeOutFile)

    );end defun

    1/ Can you show me  if the netlist.txt file isn't exist ==> ;E- *Error* eval: unbound variable - netlist. How can I resolve it?

    2/ In order to print netname out, is there any others way to get name of net.

    3/ the result of my code : (via_report.txt), - and the result don't like as I wish.

    D1_HC1_4
     10
    netname 10 
    10 10
    D1_HC2
     10
    D1_HC3
     10
    D1_HC4
     10
    D1_HC5 10
     

     ===> please show me where is wrong?how can I fix it?

    (my netlist is: 

    D1_HC1_4
    D1_HC2
    D1_HC3
    D1_HC4
    D1_HC5

    )

    tks.

    Luan.

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.