$N=0
@Map.DeselectAll
@Map.SelectLayer ID70005
$SO=@Map.SelectedObject
$PC=@Map.Object[$SO].Count
$CurrentLine=$PC-1
%Loop
$L=@Map.Object[$SO].LineLength[$CurrentLine]
@if $L<=200 then @Goto %MarkLineAndStop
$CL2=$CurrentLine+1
@Map.Selected.MarkPoints $CurrentLine
@Map.Selected.MarkPoints $CL2
@Text[10].Add №$CurrentLine - $L м
@Window.Refresh
$N=$N+1
%MarkLineAndStop
$CurrentLine=$CurrentLine-1
@if $CurrentLine>0 then @Goto %Loop
@if $N>1 then $NT=$N-ох відрізків
@if $N=1 then $NT=одного відрізка
$Text=@Text[10].Text
@if $N>0 then @Dialog.Message Довжина $NT більша за 200 метрів |$Text

Примітка: якщо цей код вставити у файл Digitals\TD\Scripts\MyScript.txt, то при формуванні документації модулем "Документація" кожного разу буде проводитись перевірка довжин ліній.