How can I get other parts infomation of a multi-part package part with tcl script?

Question

After I select just a part (for example U2A) of a multi-part symbol. How I use TCL script to get other parts (such as U2B/U2C....) infomations? 
 I want to use tcl to get all wires connected to the part pins. In other word, I want to iterate all nets on all pins for the multi-part symbol.

CadAP · Accepted Answer

Hi Jadystone, 
 
 Select the parts with multiple section and source the below code: 
 
 proc dumplist {ref} { #Use current Session in Orcad_Capture set lSession $::DboSession_s_pDboSession DboSession -this $lSession set lNullObj NULL set lStatus [DboState] set lDesign [$lSession GetActiveDesign] set lSchi_Name [DboTclHelper_sMakeCString] set lPropRef [DboTclHelper_sMakeCString "Reference"] set lPropPRName [DboTclHelper_sMakeCString "Part Reference"] set lPropPRVal [DboTclHelper_sMakeCString ] set lPropRefVal [DboTclHelper_sMakeCString ] set reflist {} if {$lDesign != $lNullObj} { 
 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} { #placeholder: do your processing on $lPage $lPage GetName $lPage_Name # 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} { $lPlacedInst GetEffectivePropStringValue $lPropRef $lPropRefVal $lPlacedInst GetEffectivePropStringValue $lPropPRName $lPropPRVal if {[DboTclHelper_sGetConstCharPtr $lPropRefVal ] == $ref && [DboTclHelper_sGetConstCharPtr $lPropPRVal] != $ref} { lappend reflist [DboTclHelper_sGetConstCharPtr $lPropPRVal] } } #get the next part inst set lInst [$lPartInstsIter NextPartInst $lStatus] } #get the next page set lPage [$lPagesIter NextPage $lStatus] } #get the next schematic view set lView [$lSchematicIter NextView $lStatus] } delete_DboLibViewsIter $lSchematicIter delete_DboSchematicPagesIter $lPagesIter return $reflist } } 
 set selObj [GetSelectedObjects] set lPropRefDes [DboTclHelper_sMakeCString "Reference"] set lPropRefDesVal [DboTclHelper_sMakeCString ] foreach obj $selObj { 
 $obj GetEffectivePropStringValue $lPropRefDes $lPropRefDesVal set lRefdes [DboTclHelper_sGetConstCharPtr $lPropRefDesVal] # puts $lRefdes puts [dumplist $lRefdes] 
 } 
 
 Hope this helps!

Stats

How can I get other parts infomation of a multi-part package part with tcl script?

Community Guidelines