foreach_in_collection z $MACRO_LIST {
set px1 [expr [lindex [lindex [get_attribute $z bbox] 0] 0]-1]
set py1 [expr [lindex [lindex [get_attribute $z bbox] 0] 1]-1]
set px2 [expr [lindex [lindex [get_attribute $z bbox] 1] 0]+1]
set py2 [expr [lindex [lindex [get_attribute $z bbox] 1] 1]+1]
create_placement_blockage -type hard -bbox [list $px1 $py1 $px2 $py2]
}
沒有留言:
張貼留言