calibredrv给GDS中的cell加后缀

set L [layout create xxx.gds -dt_expand -preservePaths -preserveTextAttributes -preserveProperties]
set T  {$L topcell]
set clist [$L cells]
foreach child $clist {
  if {$child !=$T} {
    $L cellname $child ${child}_yourSuffix
  }
}
$L gdsout xxx_new.gds