Use TCL to get all "page name" when no title block

RS202512234819 

proc lGetAllPages {} {

set lSession $::DboSession_s_pDboSession
DboSession -this $lSession
set lNullObj NULL
set lStatus [DboState]
set lDesign [$lSession GetActiveDesign]
set lSchi_Name [DboTclHelper_sMakeCString]

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]
lappend pagelist [DboTclHelper_sGetConstCharPtr $lPage_Name]
#get the next page
set lPage [$lPagesIter NextPage $lStatus]
}
#placeholder: do your processing on $lSchematic

#puts $lSchematic

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

} else { puts "No Active Design"; orPrm::DestroyWidget $i}

return $pagelist

}

lGetAllPages 

Above code will return all page names in a list format in capture command console.

RS202512234819 

proc lGetAllPages {} {

set lSession $::DboSession_s_pDboSession
DboSession -this $lSession
set lNullObj NULL
set lStatus [DboState]
set lDesign [$lSession GetActiveDesign]
set lSchi_Name [DboTclHelper_sMakeCString]

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]
lappend pagelist [DboTclHelper_sGetConstCharPtr $lPage_Name]
#get the next page
set lPage [$lPagesIter NextPage $lStatus]
}
#placeholder: do your processing on $lSchematic

#puts $lSchematic

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

} else { puts "No Active Design"; orPrm::DestroyWidget $i}

return $pagelist

}

lGetAllPages 

Above code will return all page names in a list format in capture command console.