Copy / Duplicate Pages within a .DSN in Orcad Using TCL

CadAP could you give me some more advice ? thanks.

Hi Tennywhy,

Please try below code just open a design and modify tcl for schematic name and source it.

set lSession $::DboSession_s_pDboSession
DboSession -this $lSession
set lStatus [DboState]

set lDesignLoc [GetSelectedPMItems]
set ldesign [GetActivePMDesign]
set lschiName [DboTclHelper_sMakeCString]
set lDesignName [DboTclHelper_sMakeCString]
set lschiNewName [DboTclHelper_sMakeCString "CadAP"]
set lView [$ldesign GetRoot $lStatus]
set lSchi [$ldesign GetRootSchematic $lStatus]
set lPagecount [$lSchi GetPageCount $lStatus]
# $lSchi GetName $lschiName
$lSchi SetName $lschiNewName
Menu "File::Save"

$ldesign GetName $lDesignName

set lSchi [$ldesign GetRootSchematic $lStatus]
$lSchi GetName $lschiName

set lDesignloc [DboTclHelper_sGetConstCharPtr $lDesignName]

for {set i 0} {$i <$lPagecount} {incr i} {
set lPageNewName [DboTclHelper_sMakeCString "Test$i"]
set lDboPage [$lSchi GetPage $i $lStatus]
# puts $lDboPage
$lSchi Rename $lDboPage $lPageNewName
$lSchi SavePage $lDboPage 1
}
Menu "File::Save"
Menu "File::Close"
after 1000
Open "$lDesignloc"

Try and let me know your feedback.

Thank you so much sir , that exactly was i want, it's worked perfectly,
i need digest your code. You've done me a great favor

tennywhy  Good to hear that helped.

Keep exploring tcl ......

Thank you so much, your encouragement is very important to me