Get net name error in Hierarchy design

LL202411014740 

Please use below tcl code to get pin name and net name connected to that pin.

#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