TCL problem when get net name of pin in hierarchy design

LL202411014740 

Please copy the below code in text editor and save with .tcl extension.

Now source in the capture command window;

#Get pin and conneted netnames of hierachical blocks

proc dumphierpinsnets {} {
# global i
set lSession $::DboSession_s_pDboSession
DboSession -this $lSession
set lNullObj NULL
set lCount 0
set lStatus [DboState]
set lDesign [$lSession GetActiveDesign]
set lSchi_Name [DboTclHelper_sMakeCString]
set lNetNameCString [DboTclHelper_sMakeCString]
set lPinNameCString [DboTclHelper_sMakeCString]
set lNameCString [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} {

set lPartInstsIter [$lPage NewPartInstsIter $lStatus]
#get the first part inst
set lInst [$lPartInstsIter NextPartInst $lStatus]
while {$lInst!=$lNullObj} {
#dynamic cast from DboPartInst to DboDrawnInst
set lDrawnInst [DboPartInstToDboDrawnInst $lInst]
if {$lDrawnInst != $lNullObj} {
$lDrawnInst GetName $lNameCString
puts [DboTclHelper_sGetConstCharPtr $lNameCString]
set lIter [$lDrawnInst NewPinsIter $lStatus]
#get the first pin of the part
set lPin [$lIter NextPin $lStatus]
while {$lPin !=$lNullObj } {
#placeholder: do your processing on $lPin
$lPin GetPinName $lPinNameCString
set lNet [$lPin GetNet $lStatus]
$lNet GetNetName $lNetNameCString
# puts [DboTclHelper_sGetConstCharPtr $lNameCString]
puts "Pin_Name:== [DboTclHelper_sGetConstCharPtr $lPinNameCString]"
puts "Net_Name:== [DboTclHelper_sGetConstCharPtr $lNetNameCString]"
#get the next pin of the part
set lPin [$lIter NextPin $lStatus]
}
delete_DboPartInstPinsIter $lIter
#placeholder: do your processing on $lDrawnInst
}
#get the next part inst
set lInst [$lPartInstsIter NextPartInst $lStatus]
}
#placeholder: do your processing on $lPage
# $lPage GetName $lPage_Name
# puts [DboTclHelper_sGetConstCharPtr $lPage_Name]
#get the next page
set lPage [$lPagesIter NextPage $lStatus]
}
#puts $lSchematic

#get the next schematic view
set lView [$lSchematicIter NextView $lStatus]
}
delete_DboLibViewsIter $lSchematicIter
delete_DboSchematicPagesIter $lPagesIter

}

dumphierpinsnets

Hope it helps!