Скрипт на пікетах створює підписи довжин ліній заданої полілінії з додаванням до кожної наступної довжини усіх довжин попередніх ліній

;id шару, в яких створювати точки
$IDPoint=28
;id параметру, в який записувати довжини ліній для підписів
$IDLen=40042
$MON=@Map.NextSelected 0
@if $MON=0 then @Break Виділіть полілінійний об'єкт для створення підписів
$XYToch1=@Map.Object[$MON].Point[1]
$PntCount=@Map.Object[$MON].Count
$NP=1
$NextLen=0
$NextLen1=0
%StartPointZD
$XY=@Map.Object[$MON].Point[$NP]
$NL=$NP-1
@if $NL>0 then $NextLen1=@Map.Object[$MON].LineLength[$NL]
$NextLen1=@ReplaceChar ,.$NextLen1
$NextLen=$NextLen+$NextLen1
$TObj=@Map.NewObject ID$IDPoint
@Map.Object[$TObj].Point[1] $XY
$NextLenCap=@ReplaceChar .,$NextLen
$NextLenCap=@RoundTo $NextLenCap 2
@Map.Object[$TObj].Parameter[ID$IDLen] $NextLenCap
@Map.RefreshObject $TObj
$NP=$NP+1
@if $NP<=$PntCount then @Goto %StartPointZD
@Map.DeselectAll
@Map.SelectLayer id$IDPoint
@Map.Selected.CreateCaptions id$IDLen 1 2 0 1 5 5
@Map.DeselectAll