Editing the schematic symbol part properties using the TCL command in OrCAD Capture

Hai CadAP,

Thank you so much for the previous TCL code and I really appreciate it. 

Currently I have an very urgent requirement, I have a schematic symbol of 100 pins, the problem is all the 100 pins are having the same pin name which is "Vss", when I create netlist from the schematic it creates an error stating that pin names are duplicated, I have disabled the DRC check for duplicate pin names but still the same problem.

Is it possible to create a TCL command such that I want to change the Pins names of the schematic symbol in sequence order, like the schematic symbol has 100 pins with all being Vss, I want to make them like Vss1 to Vss100 using the TCL command. 

Regards,

Rohit Rohan

Hi Rohit Rohan,

Please find the tcl for changing the selected Part pin name from VSS to Vss$Pin_Number.

For example,

          If a part has the pin name VSS and the same pin has pin number 1, then the new pin name will be VSS1.

set lStatus [DboState]
set lInst [GetSelectedObjects]

set lPlacedInst [DboPartInstToDboPlacedInst $lInst]
#Get DboLibPart from the Placed Inst
set lPart [$lPlacedInst GetPart $lStatus]
set lIter [$lPart NewPinsIter $lStatus]
set lNullObj NULL
set lPinNameCS [DboTclHelper_sMakeCString]
set lPinNumberCS [DboTclHelper_sMakeCString]
#get the first pin of the part
set lPin [$lIter NextPin $lStatus]
while {$lPin !=$lNullObj } {
$lPin GetPinName $lPinNameCS
set lPinName "[DboTclHelper_sGetConstCharPtr $lPinNameCS]"
# puts $lPinPos
if {$lPinName == "VSS"} {
set lPinPos [$lPin GetPinPosition $lStatus]
set lNewPinPos [expr {$lPinPos + 1}]
set lNewPinName "$lPinName$lNewPinPos"
set lNewPinNameCS [DboTclHelper_sMakeCString "$lNewPinName"]
set lStatus [$lPin SetPinName $lNewPinNameCS]
if {[$lStatus OK] != 1} {
puts "Error in changing the pin name of $lNewPinName"

}
}
#get the next pin of the part
set lPin [$lIter NextPin $lStatus]
}
$lStatus -delete
delete_DboSymbolPinsIter $lIter

Hope this will address your current concern and let you move forward in your design process.