现在,我有:pbc box -color black -width 1 pbc set {4.541 4.541 6.463 69.5 69.5 90}
我该怎么做另一个?
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
}