Get design name

Mhawley1 

Please use below code to get the design name.

set lSession $::DboSession_s_pDboSession
DboSession -this $lSession
set lDesign [$lSession GetActiveDesign]
set lDesignNameCString [DboTclHelper_sMakeCString]
$lDesign GetName $lDesignNameCString

set lDesignLoc [split [DboTclHelper_sGetConstCharPtr $lDesignNameCString] "\\"]
puts [lindex $lDesignLoc end]

CADAP , thank you so much again for this . Worked like a charm . 

These two lines really helped me 

set lDesignNameCString [DboTclHelper_sMakeCString]
$lDesign GetName $lDesignNameCString

I keep scanning the document and im not sure which class lDesign is part of but ill figure it out . 

CADAP , thank you so much again for this . Worked like a charm . 

These two lines really helped me 

set lDesignNameCString [DboTclHelper_sMakeCString]
$lDesign GetName $lDesignNameCString

I keep scanning the document and im not sure which class lDesign is part of but ill figure it out .