Get level of hierarchy of part

Hi ElecDesigner,

I think you can try the below suggestion

1. Iterate over each page .

2. run below command on the page, if $error is 1 the parts are from block and if error is "Menu command not found" then parts are on top. 

catch {Menu "View::Ascend Hierarchy"} error1

 puts $error1

3. if error ==1 then dump the parts else ignore it.

Please do let me know your feedback.

Hi CadAP, this command did not help. It only tells me if the selected part can be descended or not. I am looking for a command that tells me which level of hierarchy a part is located. 

Main level: Hierarchy = 0
Inside one Hierarchal block: Hierarchy = 1
Inside two Hierarchal blocks: Hierarchy = 2 
etc. 

Hi ElecDesigner,

I have created a sample script which will print the part hierarchy level with root schematic as well as schematic under which part is placed.

Steps to run:

1. Copy the code in notepad and save with .tcl extension.

2. Select a part and source the code.

set lPartNameCs [DboTclHelper_sMakeCString]
set lSchiNameCs [DboTclHelper_sMakeCString]
set lPropNameCs [DboTclHelper_sMakeCString "Part Reference"]
set lPropValueCs [DboTclHelper_sMakeCString]
set lSelectedObj [GetSelectedObjects]
set lSession $::DboSession_s_pDboSession
DboSession -this $lSession
set lStatus [DboState]
set lLib [$lSelectedObj GetContainingLib]
set lPage [$lSelectedObj GetOwner]
set lSchi [$lPage GetOwner]

$lSchi GetName $lSchiNameCs

$lSelectedObj GetEffectivePropStringValue $lPropNameCs $lPropValueCs
# $ob GetName $lPartNameCs
set lPropValue [DboTclHelper_sGetConstCharPtr $lPropValueCs]
set lPartName [DboTclHelper_sGetConstCharPtr $lPartNameCs]

set lSchiName [DboTclHelper_sGetConstCharPtr $lSchiNameCs]
set lPrpName [DboTclHelper_sMakeCString "Root View"]
set lPrpValue [DboTclHelper_sMakeCString]
$lLib GetEffectivePropStringValue $lPrpName $lPrpValue
set lcounter 0
set lRootSchi [DboTclHelper_sGetConstCharPtr $lPrpValue]
puts [DboTclHelper_sGetConstCharPtr $lPrpValue]

if {$lRootSchi != $lSchiName} {

# incr lcounter
catch {Menu "View::Ascend Hierarchy"} error1
while {$error1 == 1} {

catch {Menu "View::Ascend Hierarchy"} error1
incr lcounter
}

}

puts "Refdes $lPropValue is palced on Schmetic $lSchiName\(Root_SchiName:= $lRootSchi\) at hierachy level $lcounter "

Thanks, this gives the hierarchy level of selected part. 

Thanks, this gives the hierarchy level of selected part.