//  удаление предыдущего бокса, если он существует
!ifdef box1
$draw del pid !box1
!endif

// создание нового бокса
$draw icon 1 ztest 0 group 1000000 box hbox 10 height 1 create1 color #30ff0000 ccolor #ffffffff lwidth 2
//$draw icon 1 ztest 0 group 1000000 cyl maxspan 16  hbox 0 height 1 create1 color #1000ff00 ccolor #1080ff80 lwidth 2
//$draw ztest 0 group 1000000 points hbox 50 height 1 createx color #ffffff00 psize 8

!box1 = pid  // запоминаем id бокса в переменной box
$print text "Режим выбора области. Обозначьте курсором крайние точки области." time 10
