How to select a project and save it with Tcl Command

Morgan 

Please find below sample code. It will get the last opened project based on the .dsn file time. Tcl code will save and close the project also.

Try and let me know your feedback.

set lDesignNameCs [DboTclHelper_sMakeCString]
set lSession $::DboSession_s_pDboSession
DboSession -this $lSession
set lStatus [DboState]
set sep ","
set lDesignTime {}
set lDesignloc {}
set lDesignsIter [$lSession NewDesignsIter $lStatus]
#get the first design
set lDesign [$lDesignsIter NextDesign $lStatus]
set lNullObj NULL
while { $lDesign!= $lNullObj} {
#placeholder: do your processing on $lDesign
# puts $lDesign
$lDesign GetName $lDesignNameCs
set lDesignName [DboTclHelper_sGetConstCharPtr $lDesignNameCs]
set lFileTime [file atime $lDesignName]
set ldesignFileTime "[clock format $lFileTime -format %H:%M:%S]"

lappend lDesignloc $lDesignName
lappend lDesignTime $ldesignFileTime

set lDesign [$lDesignsIter NextDesign $lStatus]

}
delete_DboSessionDesignsIter $lDesignsIter

# foreach lDesgTime $

# puts [llength $designlocAndTime]

set lcount 0
foreach lData $lDesignTime {

if {$lcount == 0} {
set lLastTime [split $lData ":"]
incr lcount
}
# puts $lData
if {$lcount > 0} {
set lLastHr [lindex $lLastTime 0]
set lLastMins [lindex $lLastTime 1]
set lLastSec [lindex $lLastTime 2]
set lDesignTm [split $lData ":"]
set lDesignHr [lindex $lDesignTm 0]
set lDesignMins [lindex $lDesignTm 1]
set lDesignSec [lindex $lDesignTm 2]
}

if {$lLastHr > $lDesignHr} {

# puts $lData
set lLastTime [split $lData ":"]

}
if {$lLastHr == $lDesignHr} {

# puts $lData
if {$lLastMins > $lDesignMins} {
set lLastTime [split $lData ":"]
}

if {$lLastMins == $lDesignMins} {
if {$lLastSec > $lDesignSec} {
set lLastTime [split $lData ":"]
}
}
}
}

set lLastDesignTime [join $lLastTime ":"]
# puts $lLastDesignTime
# puts $lDesignTime
set lTimeIndex [lsearch $lDesignTime $lLastDesignTime]
# puts $lTimeIndex
set lDesignfromIndex [lindex $lDesignloc $lTimeIndex]
# ui::PMActivate "$lDesignloc"
set lDesgnLoc [split $lDesignfromIndex "\\"]

set lDesignName [lindex $lDesgnLoc [expr { [llength $lDesgnLoc] - 1}]]
ui::PMActivate "$lDesignfromIndex"
puts "/$lDesignName"
Menu "File::Save"
Menu "File::Close"

Hi CadAP, thank you for the code, I run it on my computer.

1. When I close one project, then run the program, the dsn name still appears in the list lDesignloc.

2. <ui::PMActivate "$lDesignfromIndex"> can't active and select any dsn file, it print message: [    1]No View Present, Is there any Datbase Tcl Command that implements this function(select dsn file), such as SelectPMItem or GetSelectedPMItems?

Morgan 

I have tried multiple times but not able to see the issue as mentioned above.

Can you please check that you have "ON "the journaling option present in the "Extended Preference".

Hi CadAP, 

Yes, I have "ON "the journaling option, but after I have close it, the 2 issue not disappeared, and test in cadence version 16.6, 24.1

Morgan 

I tried in SPB24.1 and it is working as expected.

I have modified the code a little bit let check if it works for you or not?

# Get last design open and close it
set lDesignNameCs [DboTclHelper_sMakeCString]
set lSession $::DboSession_s_pDboSession
DboSession -this $lSession
set lStatus [DboState]
set sep ","
set lDesignTime {}
set lDesignloc {}
set lDesignsIter [$lSession NewDesignsIter $lStatus]
#get the first design
set lDesign [$lDesignsIter NextDesign $lStatus]
set lNullObj NULL
while { $lDesign!= $lNullObj} {
#placeholder: do your processing on $lDesign
# puts $lDesign
$lDesign GetName $lDesignNameCs
set lDesignName [DboTclHelper_sGetConstCharPtr $lDesignNameCs]
set lFileTime [file atime $lDesignName]
set ldesignFileTime "[clock format $lFileTime -format %H:%M:%S]"

lappend lDesignloc $lDesignName
lappend lDesignTime $ldesignFileTime

set lDesign [$lDesignsIter NextDesign $lStatus]

}
delete_DboSessionDesignsIter $lDesignsIter

# foreach lDesgTime $

# puts [llength $designlocAndTime]

# DboDesign_StartDBBatchUpdate
set lcount 0
foreach lData $lDesignTime {

if {$lcount == 0} {
set lLastTime [split $lData ":"]
incr lcount
}
# puts $lData
if {$lcount > 0} {
set lLastHr [lindex $lLastTime 0]
set lLastMins [lindex $lLastTime 1]
set lLastSec [lindex $lLastTime 2]
set lDesignTm [split $lData ":"]
set lDesignHr [lindex $lDesignTm 0]
set lDesignMins [lindex $lDesignTm 1]
set lDesignSec [lindex $lDesignTm 2]
}

if {$lLastHr > $lDesignHr} {

# puts $lData
set lLastTime [split $lData ":"]

}
if {$lLastHr == $lDesignHr} {

# puts $lData
if {$lLastMins > $lDesignMins} {
set lLastTime [split $lData ":"]
}

if {$lLastMins == $lDesignMins} {
if {$lLastSec > $lDesignSec} {
set lLastTime [split $lData ":"]
}
}
}
}

set lLastDesignTime [join $lLastTime ":"]
# puts $lLastDesignTime
# puts $lDesignTime
set lTimeIndex [lsearch $lDesignTime $lLastDesignTime]
# puts $lTimeIndex
set lDesignfromIndex [lindex $lDesignloc $lTimeIndex]
# ui::PMActivate "$lDesignloc"
set lDesgnLoc [split $lDesignfromIndex "\\"]

set lDesignName [lindex $lDesgnLoc [expr { [llength $lDesgnLoc] - 1}]]

if {$lDesignfromIndex != ""} {
ui::PMActivate "$lDesignfromIndex"
puts "/$lDesignName"
Menu "File::Save"
Menu "File::Close"
}

Morgan 

I tried in SPB24.1 and it is working as expected.

I have modified the code a little bit let check if it works for you or not?

# Get last design open and close it
set lDesignNameCs [DboTclHelper_sMakeCString]
set lSession $::DboSession_s_pDboSession
DboSession -this $lSession
set lStatus [DboState]
set sep ","
set lDesignTime {}
set lDesignloc {}
set lDesignsIter [$lSession NewDesignsIter $lStatus]
#get the first design
set lDesign [$lDesignsIter NextDesign $lStatus]
set lNullObj NULL
while { $lDesign!= $lNullObj} {
#placeholder: do your processing on $lDesign
# puts $lDesign
$lDesign GetName $lDesignNameCs
set lDesignName [DboTclHelper_sGetConstCharPtr $lDesignNameCs]
set lFileTime [file atime $lDesignName]
set ldesignFileTime "[clock format $lFileTime -format %H:%M:%S]"

lappend lDesignloc $lDesignName
lappend lDesignTime $ldesignFileTime

set lDesign [$lDesignsIter NextDesign $lStatus]

}
delete_DboSessionDesignsIter $lDesignsIter

# foreach lDesgTime $

# puts [llength $designlocAndTime]

# DboDesign_StartDBBatchUpdate
set lcount 0
foreach lData $lDesignTime {

if {$lcount == 0} {
set lLastTime [split $lData ":"]
incr lcount
}
# puts $lData
if {$lcount > 0} {
set lLastHr [lindex $lLastTime 0]
set lLastMins [lindex $lLastTime 1]
set lLastSec [lindex $lLastTime 2]
set lDesignTm [split $lData ":"]
set lDesignHr [lindex $lDesignTm 0]
set lDesignMins [lindex $lDesignTm 1]
set lDesignSec [lindex $lDesignTm 2]
}

if {$lLastHr > $lDesignHr} {

# puts $lData
set lLastTime [split $lData ":"]

}
if {$lLastHr == $lDesignHr} {

# puts $lData
if {$lLastMins > $lDesignMins} {
set lLastTime [split $lData ":"]
}

if {$lLastMins == $lDesignMins} {
if {$lLastSec > $lDesignSec} {
set lLastTime [split $lData ":"]
}
}
}
}

set lLastDesignTime [join $lLastTime ":"]
# puts $lLastDesignTime
# puts $lDesignTime
set lTimeIndex [lsearch $lDesignTime $lLastDesignTime]
# puts $lTimeIndex
set lDesignfromIndex [lindex $lDesignloc $lTimeIndex]
# ui::PMActivate "$lDesignloc"
set lDesgnLoc [split $lDesignfromIndex "\\"]

set lDesignName [lindex $lDesgnLoc [expr { [llength $lDesgnLoc] - 1}]]

if {$lDesignfromIndex != ""} {
ui::PMActivate "$lDesignfromIndex"
puts "/$lDesignName"
Menu "File::Save"
Menu "File::Close"
}

Hi CadAP, 

I use V24.1, and open 5 dsn files.

With your code, it just process the time minimum dsn file, if I modify variable lTimeIndex, such as "set lTimeIndex 3", the code always not work(can't switch to that dsn window), and if I add SelectPMItem "./$lDesignName" after ui::PMActivate, if always fail and print message:RuntimeError Item Not Found.

The last few lines of code I modified were:

#set lTimeIndex [lsearch $lDesignTime $lLastDesignTime]
set lTimeIndex 3
# puts $lTimeIndex
set lDesignfromIndex [lindex $lDesignloc $lTimeIndex]
# ui::PMActivate "$lDesignloc"
set lDesgnLoc [split $lDesignfromIndex "\\"]
set lDesignName [lindex $lDesgnLoc [expr { [llength $lDesgnLoc] - 1}]]

if {$lDesignfromIndex != ""} {
ui::PMActivate "$lDesignfromIndex"
SelectPMItem "./$lDesignName"
puts "/$lDesignName"

catch the SelectPMItem message, print like this:

So the issue is, can't process other dsn file name but the time minimum one, can you help me solve the problem?

HI Morgan,

Please dump list value "$lDesignloc", then check correct output is stored in the variable "lDesignfromIndex".

Also check "lDesignName" variable is storing correct value.

I think somewhere variable are messing up with the values.

Hi CadAP, 

When I puts this 3 variable, see command log as follows, Looks like nothing is wrong.

Now "set lTimeIndex 4", get the dsn name T5.DSN, but Actually PMActivate the dsn file T3, and SelectPMItem it failed.

#this is command log

Capture> source [file normalize {G:/Cadence/Work/GetLastOpenedProject.tcl}]
lDesignloc: {G:\CADENCE\WORK\TEST\T1.DSN} {G:\CADENCE\WORK\TEST\T2.DSN} {G:\CADENCE\WORK\TEST\T3.DSN} {G:\CADENCE\WORK\TEST\T4.DSN} {G:\CADENCE\WORK\TEST\T5.DSN}
lDesgnLoc: G: CADENCE WORK TEST T5.DSN
lDesignfromIndex: G:\CADENCE\WORK\TEST\T5.DSN
lDesignName: T5.DSN

Capture> ui::PMActivate "G:/CADENCE/WORK/TEST/T3.opj"
Capture> [ 1]RuntimeError Item Not Found

Hi CadAP,

I puts this 3 variable, all the values look like not wrong.

Now "set lTimeIndex 4", get the lDesignName T5.DSN, but Actually PMActivate file T3, and SelectPMItem failed.

#the command log as below:

Capture> source [file normalize {G:/Cadence/Work/GetLastOpenedProject.tcl}]
lDesignloc: {G:\CADENCE\WORK\TEST\T1.DSN} {G:\CADENCE\WORK\TEST\T2.DSN} {G:\CADENCE\WORK\TEST\T3.DSN} {G:\CADENCE\WORK\TEST\T4.DSN} {G:\CADENCE\WORK\TEST\T5.DSN}
lDesgnLoc: G: CADENCE WORK TEST T5.DSN
lDesignfromIndex: G:\CADENCE\WORK\TEST\T5.DSN
lDesignName: T5.DSN

Capture> ui::PMActivate "G:/CADENCE/WORK/TEST/T3.opj"
Capture> [ 1]RuntimeError Item Not Found

Hi CadAP,

I puts this 3 variable, all the values look like not wrong.

Now "set lTimeIndex 4", get the lDesignName T5.DSN, but Actually PMActivate file T3, and SelectPMItem failed.

#the command log as below:

Capture> source [file normalize {G:/Cadence/Work/GetLastOpenedProject.tcl}]
lDesignloc: {G:\CADENCE\WORK\TEST\T1.DSN} {G:\CADENCE\WORK\TEST\T2.DSN} {G:\CADENCE\WORK\TEST\T3.DSN} {G:\CADENCE\WORK\TEST\T4.DSN} {G:\CADENCE\WORK\TEST\T5.DSN}
lDesgnLoc: G: CADENCE WORK TEST T5.DSN
lDesignfromIndex: G:\CADENCE\WORK\TEST\T5.DSN
lDesignName: T5.DSN

Capture> ui::PMActivate "G:/CADENCE/WORK/TEST/T3.opj"
Capture> [ 1]RuntimeError Item Not Found