set Cell [dbget [dbget top.insts.pStatus fixed -p].name]
set j 1
foreach i $Cell {
set llx [dbget [dbget top.insts.name $i -p].pHaloBox_llx]
set new_llx [expr $llx -5]
set lly [dbget [dbget top.insts.name $i -p].pHaloBox_lly]
set new_lly [expr $lly -5]
set urx [dbget [dbget top.insts.name $i -p].pHaloBox_urx]
set new_urx [expr $urx +5]
set ury [dbget [dbget top.insts.name $i -p].pHaloBox_ury]
set new_ury [expr $ury +5]
createPlaceBlockage -box $new_llx $new_lly $new_urx $new_ury -type hard -name $j
incr j
}