$id=@Map.Object[$object].LayerID

$var=@Map.IsPasswordExist Export
@If $var=1 then @Break Неможливо виконати скрипт, оскільки карта запаролена

@SelectTab

@GetSelectedTab

; -------------------------------------------------------------
; Знайти відхилення вершин полілінії від вищевказаного відрізка
; -------------------------------------------------------------
$Obj=@Map.SelectedObject
@If $Obj=0 @Break
; -------------------------------------------------------------
; шар, в який записуються створенi перпендикуляри
$PLayer=3
; -------------------------------------------------------------
@Text[1].Clear
$Count=@Map.Object[$Obj].Count
@While $Count>0 %LoopPoints
$Pnt=@Map.Object[$Obj].Point[$Count]
; шукаємо найближчий об'єкт до вибраного
$NObj=@Map.NearestObject 0 $Obj $Pnt
@If $NObj=0 Then @Goto %SkipPoint
$NPnt=@Map.PerpendicularToNearestLine $Pnt $NObj $PLayer Reverse
@If $NPnt<>1 Then @Break Помилка створення перпендикуляра до лiнiї
$ObjN=@Map.Count
$ObjID=@Map.Object[$ObjN].ID
$Len=@Map.Object[$ObjN].LineLength[1]
;
$Line=$Count - $Len
@Text[1].Add $Line
;
%SkipPoint
$Count=$Count-1
%LoopPoints
@Window.Refresh
$Buf=@Text[1].Text
@Dialog.Message $Buf
;

$S=кукурудза,кукумбер,морква,цибуля
$Count=@Text[1].DelimitedText $S
@Dialog.Message $Count
$Tab=@Calc char(9)
$Tab=@DequoteText $Tab
@Text[1].Delimiter $Tab
$TabedText=@Text[1].DelimitedText
@Dialog.Message $TabedText