!ifdef length
$draw del pid !length
!endif


$draw icon 1 ztest 0 name "length" maxspan 10000 group 1000000 pline create color #ff00ff00 pcolor #ff0000ff lwidth 4 psize 10
!length = pid  // запоминаем id примитива в переменной 
$print text "Вычисление расстояний. Обозначьте курсором вершины полилинии." time 10
