connecting multiple signals to component

Question

Hello 
 I need to connect multiple signals for DDR memory to FPGA component. 
 I have list of signals in Excel with required FPGA pins it should be connected to. 
 All the memory signal go to the same part of the FPGA component. 
 Its more than 100 signals and i have to do it for 4 banks, so its a lot of connectivity if done manually. 
 Is there any way to create such connectivity more automatically? 
 example, if we could generate some verilog like file from excel saying which signal name goes to which pin name. 
 
 Is there anything like this existing in Orcad? 
 Thank you in advance, 
 Michael

CadAP · Answer

# Tcl script to read the csv file to add wire and netalias to a selected component. 
 #I have created a tcl script which read the csv file and add netalias to the respective pin number from the csv file. 
 # Create a csv file name test.csv and put pin number in column 1(first column) and netname in column 2(second column). Save the test.csv file at the project location. Copy paste the below tcl code in text file and save it as .tcl. Select the component and source the save tcl file. package require csv package require struct::matrix 
 #proc to convert the user value to doc value proc ConvertUserToDoc { pPage pUser } { 
 set lDocDouble [expr "$pUser/[$pPage GetPhysicalGranularity]"] return $lDocDouble } 
 proc readCsvFile {PinNumber} { 
 struct::matrix::matrix m set fd [open "test.csv" r] csv::read2matrix $fd m , auto close $fd set chan [open "test1.csv" w] ::csv::writematrix m $chan close $chan set max_rows [m rows] set max_col [m columns] 
 for {set i 0} {$i < $max_rows} {incr i} { 
 if {[m get cell 0 $i] == $PinNumber} { 
 set name [m get cell 1 $i] m destroy return $name # m destroy } 
 } 
 }

set lStatus [DboState] #Get Selected Object set lInst [GetSelectedObjects] # set pinCount [$lInst GetPinCount $lStatus] #Set counter set lcounter 0 #Get Dbo Page set powner [$lInst GetOwner] #Set Pin Iteration set lIter [$lInst NewPinsIter $lStatus] set lNullObj NULL #Get the first pin of the part set lPin [$lIter NextPin $lStatus] 
 while {$lPin !=$lNullObj } { #Get XY loaction of pin hotspot set XYLocation [$lPin GetOffsetHotSpot $lStatus] #Get x loaction of hotspot set pinxLocation [DboTclHelper_sGetCPointX $XYLocation] #Get y loaction of hotspot set pinyLocation [DboTclHelper_sGetCPointY $XYLocation] #create a CString set number [DboTclHelper_sMakeCString] #Get Startpoint of a pin. set startPoint [$lPin GetStartPoint $lStatus] #Get x value of startPoint set Startx [DboTclHelper_sGetCPointX $startPoint] # puts [ConvertUserToDoc $powner $pinxLocation] #Convert the x and y loaction to doc set lx1 [ConvertUserToDoc $powner $pinxLocation] set lx2 [ expr { [ConvertUserToDoc $powner $pinxLocation] + 0.3} ] set lx3 [ expr { [ConvertUserToDoc $powner $pinxLocation] - 0.3} ] # puts [ConvertUserToDoc $powner $pinyLocation] set ly1 [ConvertUserToDoc $powner $pinyLocation] set ly2 [ConvertUserToDoc $powner $pinyLocation] # puts $ly2 #Get pin number $lPin GetPinNumber $number #Convert to tcl string set pinNumber [DboTclHelper_sGetConstCharPtr $number] #Get object type set objType [$lPin GetObjectType] # set pinvisible [$lPin GetIsNumberVisible $lStatus] #Check whether pin is visible(No Global pin) set pinvisible [$lPin GetIsVisible $lStatus] #Check object type is pin and visibility of pin is 1(not a global power/ground pin) if {$objType == 16 && $pinvisible == 1 } { 
 if { $Startx == 0} { 
 set netName [ readCsvFile $pinNumber ] # puts $netName PlaceWire $lx1 $ly1 $lx3 $ly2 PlaceNetAlias $lx3 $ly1 "$netName" # set lcounter [incr lcounter] 
 } else { set netName [ readCsvFile $pinNumber ] # puts $netName PlaceWire $lx1 $ly1 $lx2 $ly2 PlaceNetAlias $lx2 $ly2 "$netName" # set lcounter [incr lcounter] } } #get the next pin of the part set lPin [$lIter NextPin $lStatus] } delete_DboPartInstPinsIter $lIter

Stats

connecting multiple signals to component

Community Guidelines