calibre tcl脚本 获取pad（lable坐标）

set fileid [open "bigdie_bump_texts.txt" w]

set top [layout0 topcell]

foreach var [layout0 iterator text $top 202.74 rang 0  100000 -depth 1 1] { 
	#{{VSS_q1 6891800 5444950 0 0 10.0 0.0}/DIE{6891880 5444950 0 0}}
	set label [lindex $var 0 0]
	set x [lindex $var 0 1]
	set x [format "%.4f" [expr $x /2000.0]]
	set y [lindex $var 0 2]
	set y [format "%.4f" [expr $x /2000.0]]
	puts $fileid [format "%-30s  %-30s  %-30s" $label $x $y]
}
close $fileid