求Calibre写command file的高人

andyzong · 发表于 2012-2-22 17:40:23

学习学习，牛X人啊

yitai123 · 发表于 2012-4-26 23:36:01

Thanks!

icfbicfb · 发表于 2012-4-27 08:10:27

我写个，抽取所有cell的text，
textout ：抽取该cell所有text，

# -dt_expand is a must , or will lost some layer datatypes ,
set gds XXXX
set L [layout create $gds -dt_expand ]

set fileid [open "text_dumped_${gds}" w ]
puts $fileid "For gds :  $gds  \n\n" ;

foreach cell [$L cells] {
puts $fileid "For cell :  $cell  "
puts $fileid [string repeat - 80 ]

set texts [$L textout $cell]  ;# all texts ,
if { [llength $texts] != 0 } { # write non-empty texts only ,
foreach var $texts {
   puts $var  ;# to screen ,
   puts $fileid $var
}
}
puts $fileid "\n\n"
}
close $fileid

layout delete $L
exit