Поиск самого длинного ребра:
$Obj=@Map.SelectedObject
@if $Obj=0 then @Break
;кол-во ребер в полигоне
$LineCount=@Map.Object[$Obj].Count
$LineCount=$LineCount-1
$MaxLength=0
$L=0
%loop
$L=$L+1
@if $L=$LineCount then @Goto %End
$Length=@Map.Object[$Obj].LineLength[$L]
@if $MaxLength<$Length then $MaxLength=$Length
@if $L<$LineCount then @Goto %loop
@Dialog.Message $MaxLength
Что значит построить отрезок по этой стороне? Отрезок будет равен длинной стороне?

Да. Идентичен длинной стороне.

;нижче вкажіть id шару нового об'єкта
$LIDNewOby=20000
$Obj=@Map.SelectedObject
@if $Obj=0 then @Break
$LineCount=@Map.Object[$Obj].Count
$LineCount=$LineCount-1
$MaxLength=0
$L=0
$L2=1
$XY1=0
$XY2=0
%loop
$L=$L+1
@if $L=$LineCount then @Goto %End
$Length=@Map.Object[$Obj].LineLength[$L]
@if $MaxLength<$Length then $XY1=@Map.Object[$Obj].Point[$L]
@if $MaxLength<$Length then $L2=$L+1
@if $MaxLength<$Length then $XY2=@Map.Object[$Obj].Point[$L2]
@if $MaxLength<$Length then $MaxLength=$Length
@if $L<$LineCount then @Goto %loop
$NewObject=@Map.NewObject id$LIDNewOby
@Map.Object[$NewObject].Point[1] $XY1
@Map.Object[$NewObject].AddPoint $XY2
@Map.RefreshObject $NewObject
@Map.DeselectAll
@Map.SelectObject $NewObject

Назви міток починаються символом %, змінних - символом $.

Доброго времени суток. А может кто-нибудь поделиться скриптом по заполнению точечными объектами (одиночными символами) полигона, чтоб с рандомным расстоянием между точеными объектами (но чтоб не было меньше определенного значения, которое например указывается в переменной) и рандомным углом поворота. Вдруг кто такое реализовывал:)
Есть вставка-точки в полигон, но там только в шахматном порядке или равномерно.

@Text[N].Delimiter, @Text[N].DelimitedText - Про який символ-розділювай йде мова?

@Text[N].Leading Char - Для чого додавати нулі в список?

@Text[N].LengthFilter Condition, @Text[N].Unique [Length] - Взагалі щось екзотичне.