calibredrv 删除GDS中的cell

set GDS_FILE /home/user/test.gds
set GDS_FILE_NEW /home/user/test.new.gds
set RCELL_LIST [ list \   b
cella \
cellb \
cellc \
]
set L [layout create $GDS_FILE -dt_expand -preservePaths -preserveTextAttributes -preserveProperties]
foreach RCELL $RCELL_LIST {
    $L delete cell $RCELL -deleteChildCells
    puts "delete cell $RCELL"
}
$L gdsout $GDS_FILE_NEW