calibredrv删除GDS中所有label

ouu

1. proc deltxtlayer {L topcell} {
   
2.   set layers [$L layers]
   
3.   for {set i 0} {$i < [llength $layers]} {incr i} {
   
4.     # Search text label in all layers
   
5.     set lay [lindex $layers $i]
   
6.     set inst_all [$L iterator text $topcell $lay range 0 end]
   
7.     set text_num [llength $inst_all]
   
8.     if { $text_num > 0 } {
   
9.       # Fnd if layer does have some text labels
   
10.       for {set j 0} {$j < $text_num} {incr j} {
    
11.         # Delete all text labels
    
12.         set inst [lindex $inst_all $j]
    
13.         set text_str [lindex $inst 0]
    
14.         set text_x [lindex $inst 1]
    
15.         set text_y [lindex $inst 2]
    
16.         set text_strans [lindex $inst 4]
    
17.         if { [string compare $text_strans ""] == 0 } {
    
18.           $L delete text $topcell $lay $text_x $text_y $text_str
    
19.           puts "$L delete text $topcell $lay $text_x $text_y $text_str"
    
20.         } else {
    
21.           $L delete text $topcell $lay $text_x $text_y $text_str \
    
22.           [lindex $inst 3] [lindex $inst 4] [lindex $inst 5] \
    
23.           [lindex $inst 6]
    
24.           puts "$L delete text $topcell $lay $text_x $text_y $text_str \
    
25.           [lindex $inst 3] [lindex $inst 4] [lindex $inst 5] \
    
26.           [lindex $inst 6]"
    
27.         }
    
28.       }
    
29.     }
    
30.   }
    
31. }
    
32. set ingdsfile [lindex $argv 0]
    
33. set outgdsfile [lindex $argv 1]
    
34. set L [ layout create $ingdsfile -dt_expand -preservePaths \
    
35.   -preserveTextAttributes -preserveProperties]
    
36. foreach topcell [$L cells] {
    
37.   deltxtlayer $L $topcell
    
38. }
    
39. $L gdsout $outgdsfile

复制代码

将上面的代码保存为deltxtlayer.tcl, 运行下面的代码，in.gds和out.gds 为自己输入和输出的

1. calibredrv deltxtlayer.tcl in.gds out.gds

复制代码