Getting Hierarchical Page Occurrence Name

Hi karthikeyank,

I am looking for a feasibility to get the desired output.

Keep you posted soon.

Hi karthikeyank,

I am looking for a feasibility to get the desired output.

Keep you posted soon.

karthikeyank Please find the below tcl script for your requirement.:

Please check and let me know your comments.

set selectedobjs [GetSelectedPMItems]
set objlength [llength $selectedobjs]
set lStatus [DboState]
set lNullObj NULL
set lcount 0
for {set j 0} {$j < $objlength} {incr j} {
set lPage [lindex $selectedobjs $j]
set lPageNameCS [DboTclHelper_sMakeCString]
set lPageNameCS1 [DboTclHelper_sMakeCString]
$lPage GetName $lPageNameCS
set lPageName [DboTclHelper_sGetConstCharPtr $lPageNameCS]
# puts $lPageName
set PlIter [$lPage NewPartInstsIter $lStatus]
set lPart [$PlIter NextPartInst $lStatus]
if {$lPart != $lNullObj } {
set lReferenceName [DboTclHelper_sMakeCString]
$lPart GetReference $lReferenceName
set lReferenceNameS [DboTclHelper_sGetConstCharPtr $lReferenceName]
# puts $lReferenceNameS
set lOccCount [$lPart GetOccurrencesCount]
# puts $lOccCount
for {set i 0} {$i<$lOccCount} {incr i} {
set lOcc [$lPart GetOccurrencesAtPos $i]
set lReferenceName1 [DboTclHelper_sMakeCString]
$lOcc GetPathName $lReferenceName1
set lReferenceNameS1 [DboTclHelper_sGetConstCharPtr $lReferenceName1]
if {$lcount == 0} {
puts "Selected Page $lPageName has below page occurances:"
incr lcount
}
puts [lindex [split $lReferenceNameS1 "/" ] 0]
}
}
}

Thank you for your support.