pbc box_draw позволяет это.Пример:
# draw small box
pbc set {10 10 10}
set box0 [pbc box_draw -width 1 -color black]
# draw large box
pbc set {15 15 15}
set box1 [pbc box_draw -width 1 -color black]
Если вам нужно удалить поле позже, вы можете сделать это следующим образом:
# delete all objects associated with the box
foreach i $box0 {
graphics top delete $i
}