抓VSS坐标脚本

set net VSS
set point_type "down"
set gnd_i 0
redirect ../scr/$net.loc {}
redirect ../scr/$net.loc {
    foreach shape [dbGet selected.net.name $net -p2] {
        set llx [dbGet $shape.box_llx]
        set lly [dbGet $shape.box_lly]
        set urx [dbGet $shape.box_urx]
        set ury [dbGet $shape.box_ury]
        
        switch $point_type {
            "left" {
                set x $llx
                set y [expr ($lly + $ury)/2.0]
            }
            "right" {
                set x $urx
                set y [expr ($lly + $ury)/2.0]
            }
            "up" {
                set x [expr ($llx + $urx)/2.0]
                set y $ury
            }
            "down" {
                set x [expr ($llx + $urx)/2.0]
                set y $lly
            }
            "center" {
                set x [expr ($llx + $urx)/2.0]
                set y [expr ($lly + $ury)/2.0]
            }
            default {
                set x $llx
                set y [expr ($lly + $ury)/2.0]
            }
        }
        
        echo "${net}_$gnd_i $x $y [dbGet $shape.layer.name]"
        incr gnd_i
    }
}
deselectAll