SysCap - "Swap" Net Name"

Question

Hi Everyone, 
 
 I'm having a problem using SysCapture. I would like to swap "net name" of a FPGA 
 
 On VHD designer -> Texte/swap 
 On SysCap -> Swap PIN 
 But the function modifies the PIN name and not the associated NET.

CadAP · Accepted Answer

Thanks for reply JohnFr38 
 #I have made little changes to the code. Please copy the below tcl code. 
 You have to select pins of components whose nets need to be interchanged. 
 #Please follow below steps: 
 1.Copy the below code in a notepad and save with .tcl extension. 2. Please select the two Pins of component whose nets need to be interchanged. See the below attached screenshot 
 3.Source the tcl code in System Capture command window. 
 Please take a backup of your project and then run the tcl. 
 Hope this helps!

proc swapNetsName {} { 
 set pageId [sch::dbGetActivePage] set pageSpath [sch::dbGetActivePageSpath] set selectedItems [sch::dbGetSelectedItems $pageId] if { [llength $selectedItems] > 0 } { foreach item $selectedItems { 
 set itemId [sch::dbGetConnectedItems $item] # puts $itemId set itemType [sch::dbGetType $itemId] # puts $itemType if {$itemType eq $sch::DBTRoute} { set name [sch::dbGetItemName $itemId] set netpos [sch::dbGetPos $item] set netXY [ sch::dbConvertToUserUnits $netpos] lappend netlist $name lappend netXYPos $netXY } } # return $netlist # return $netXYPos 
 if {[llength $netlist] == 2} { # puts "$netlist" # puts "$netXYPos" set net0 [lindex $netlist 0] # puts $net0 set net1 [lindex $netlist 1] # puts $net1 set net0Xpos [lindex [lindex $netXYPos 0] 0] # puts $net0Xpos set net0Ypos [lindex [ lindex $netXYPos 0] 1] # puts $net0Ypos set net1Xpos [lindex [lindex $netXYPos 1 ] 0] # puts $net1Xpos set net1Ypos [lindex [lindex $netXYPos 1] 1] # puts $net1Ypos renameSignal -pg $pageSpath -net [list $net0Xpos $net0Ypos $net0 $net1] renameSignal -pg $pageSpath -net [list $net1Xpos $net1Ypos $net1 $net0] puts "Successfully interchange selected instances of $net0 with $net1" selectObject none } 
 if { [llength $selectedItems] <= 1 } { puts "Net Interchange tcl Does Not Run For Single Net. Please Select Two Pins whose nets need to be interchanged " } if {[llength $selectedItems] > 2} { puts "More than two Pins are selected, Please select two Pins"} 
 } else {puts "No Object Is Selected On The Schematic!"} 
 } swapNetsName

CadAP · Answer

#After sourcing the below tcl code "CustomMenu" will be added and active till the System Capture is open. If you closed the system capture then you need to source the tcl file again. See the below attached screenshot.

# For AutoLoading tcl in System Capture you can follow the below link: 
 support.cadence.com/.../ArticleAttachmentPortal 
 proc callMenu {} { 
 set menu {CustomMenu} addMenuToMenuBar $menu {} 1 {} sch addActionToMenu $menu "Swap_Net" swapNetsName {} {} {} sch } 
 proc swapNetsName {} { 
 set pageId [sch::dbGetActivePage] set pageSpath [sch::dbGetActivePageSpath] set selectedItems [sch::dbGetSelectedItems $pageId] if { [llength $selectedItems] > 0 } { foreach item $selectedItems { 
 set itemId [sch::dbGetConnectedItems $item] # puts $itemId set itemType [sch::dbGetType $itemId] # puts $itemType if {$itemType eq $sch::DBTRoute} { set name [sch::dbGetItemName $itemId] set netpos [sch::dbGetPos $item] set netXY [ sch::dbConvertToUserUnits $netpos] lappend netlist $name lappend netXYPos $netXY } } # return $netlist # return $netXYPos 
 if {[llength $netlist] == 2} { # puts "$netlist" # puts "$netXYPos" set net0 [lindex $netlist 0] # puts $net0 set net1 [lindex $netlist 1] # puts $net1 set net0Xpos [lindex [lindex $netXYPos 0] 0] # puts $net0Xpos set net0Ypos [lindex [ lindex $netXYPos 0] 1] # puts $net0Ypos set net1Xpos [lindex [lindex $netXYPos 1 ] 0] # puts $net1Xpos set net1Ypos [lindex [lindex $netXYPos 1] 1] # puts $net1Ypos renameSignal -pg $pageSpath -net [list $net0Xpos $net0Ypos $net0 $net1] renameSignal -pg $pageSpath -net [list $net1Xpos $net1Ypos $net1 $net0] puts "Successfully interchange selected instances of $net0 with $net1" selectObject none } 
 if { [llength $selectedItems] <= 1 } { puts "Net Interchange tcl Does Not Run For Single Net. Please Select Two Pins whose nets need to be interchanged " } if {[llength $selectedItems] > 2} { puts "More than two Pins are selected, Please select two Pins"} 
 } else {puts "No Object Is Selected On The Schematic!"} 
 } 
 callMenu

Stats

SysCap - "Swap" Net Name"

Community Guidelines