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

Question

Hai Community, 
 I want to copy all the values of one property tab to another property tab using the TCL command in the Capture. 
 For example, in the below image, there is PCB Footprint value property defined for all the schematic symbols, also there is PCB_FP properties for which values are blank for all the schematic symbols. 
 Can i use the TCL command such that all the values of PCB Footprint property will be transfer or copied to PCB_FP property for all schematic symbols.

For reference, Once the TCL command executed / completed, below is how it should look like after execution (Note: In the below image the values are edited using Microsoft paint and not using the OrCAD Capture, ( Edited image ))

Regards, 
 Rohit Rohan

CadAP · Accepted Answer

Hi RohitRohan, 
 
 Please use the below tcl code for updating the property name "PCB_FP" with the value taken from "PCB Footprint" property. 
 
 set lSession $::DboSession_s_pDboSession DboSession -this $lSession set lNullObj NULL set lStatus [DboState] set lDesign [$lSession GetActiveDesign] set lSchi_Name [DboTclHelper_sMakeCString] set lPartCount 0 set lPropName [DboTclHelper_sMakeCString "PCB Footprint"] set lPropName1 [DboTclHelper_sMakeCString "PCB_FP"] set lPropValue [DboTclHelper_sMakeCString] set lSchematicIter [$lDesign NewViewsIter $lStatus $::IterDefs_SCHEMATICS] #get the first schematic view set lView [$lSchematicIter NextView $lStatus] # set lPage_Name [DboTclHelper_sMakeCString] while { $lView != $lNullObj} { #dynamic cast from DboView to DboSchematic set lSchematic [DboViewToDboSchematic $lView] $lSchematic GetName $lSchi_Name set lPagesIter [$lSchematic NewPagesIter $lStatus] #get the first page set lPage [$lPagesIter NextPage $lStatus] # puts [DboTclHelper_sGetConstCharPtr $lSchi_Name] while {$lPage!=$lNullObj} { # puts [DboTclHelper_sGetConstCharPtr $lPage_Name] set lPartInstsIter [$lPage NewPartInstsIter $lStatus] #get the first part inst set lInst [$lPartInstsIter NextPartInst $lStatus] while {$lInst!=$lNullObj} { #dynamic cast from DboPartInst to DboPlacedInst set lPlacedInst [DboPartInstToDboPlacedInst $lInst] if {$lPlacedInst != $lNullObj} { set lObjType [$lPlacedInst GetObjectType] if {$lObjType == 13} { #placeholder: do your processing on $lPlacedInst set lStatus [$lPlacedInst GetEffectivePropStringValue $lPropName $lPropValue] if {[$lStatus OK] ==1} { $lPlacedInst SetEffectivePropStringValue $lPropName1 $lPropValue incr lPartCount $lStatus -delete } # $lPlacedInst GetName $lPart_Name # puts $lObjType # puts $lObjType } } #get the next part inst set lInst [$lPartInstsIter NextPartInst $lStatus] } #get the next page set lPage [$lPagesIter NextPage $lStatus] } delete_DboSchematicPagesIter $lPagesIter #get the next schematic view set lView [$lSchematicIter NextView $lStatus] } delete_DboLibViewsIter $lSchematicIter puts "$lPartCount Parts PCB_FP poperty are updated" 
 
 Please check and let me know you feedback.

CadAP · Answer

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.

Stats

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

Community Guidelines