@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
@Goto %Exit
%NextLine
$CurrentLine=$CurrentLine-1
@if $CurrentLine>0 then @Goto %Loop
%MarkLineAndStop
$CL2=$CurrentLine+1
@Map.Selected.MarkPoints $CurrentLine
@Map.Selected.MarkPoints $CL2
@Dialog.Message Довжина відрізку №$CurrentLine - $L > 200м
P.S. меню Правка-Добавить точки… (Шаг - 200 м, несквозное добавление)