Stats

Replies 12
Subscribers 159
Views 16180
Members are here 0

Help me with Via parameter !

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

eDave over 13 years ago

Hi Luan,
exit doesn't behave as you are expecting. You can't use it to "exit" your code like this.
Your code is very confusing. Is this what you are trying to do?

axlCmdRegister( "Reportvia" 'Reportvia)
defun( Reportvia ()
if(isFile("netlist.txt") then
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)
foreach(netname, netlist
netname ->count = 10
);end foreach
writeOutFile = outfile( "./Via_report.txt" )
foreach(netname, netlist
fprintf(writeOutFile, "%s %d\n", get_pname(netname), netname ->count)
);end foreach
close(writeOutFile)

);end when
else
axlUIConfirm( "File netlist.txt can't be found!")
);end if
);end defun
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel

Reply

eDave over 13 years ago

Hi Luan,
exit doesn't behave as you are expecting. You can't use it to "exit" your code like this.
Your code is very confusing. Is this what you are trying to do?

axlCmdRegister( "Reportvia" 'Reportvia)
defun( Reportvia ()
if(isFile("netlist.txt") then
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)
foreach(netname, netlist
netname ->count = 10
);end foreach
writeOutFile = outfile( "./Via_report.txt" )
foreach(netname, netlist
fprintf(writeOutFile, "%s %d\n", get_pname(netname), netname ->count)
);end foreach
close(writeOutFile)

);end when
else
axlUIConfirm( "File netlist.txt can't be found!")
);end if
);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.