Аналитика

;Перевіряємо наявність двох позначених таблиць
$CountSel=@Map.SelCount
@If $CountSel<>2 then @Break Позначте спочатку ліву, потім праву таблицю.
$RightTable=@Map.SelectedObject
$Sel=@Map.NextSelected 0
@If $Sel=$RightTable then $LeftTable=@Map.NextSelected $Sel else $LeftTable=$Sel
;Перевірка, чи обидва позначені - таблиці
$LayRightTable=@Map.Object[$RightTable].Layer
$LayLeftTable=@Map.Object[$LeftTable].Layer
$GetLayRight=@Map.Layers.Get $LayRightTable
$GetLayLeft=@Map.Layers.Get $LayLeftTable
$TypeLayRight=@StringPart 2 $GetLayRight
$TypeLayLeft=@StringPart 2 $GetLayLeft
@If ($TypeLayRight<>6) or ($TypeLayLeft<>6) then @Break  Позначте спочатку ліву, потім праву таблицю.
;Координати правої верхньої (другої) точки лівої таблиці
$P2Left=@Map.Object[$LeftTable].Point[2]
$XL=@StringPart 1 $P2Left
$YL=@StringPart 2 $P2Left
;Координати лівої верхньої (першої) точки правої таблиці
$P1Right=@Map.Object[$RightTable].Point[1]
$XR=@StringPart 1 $P1Right
$YR=@StringPart 2 $P1Right
;Переміщення правої таблиці
@Map.Object[$RightTable].Transform $XR $YR|$XL $YL
@Window.Refresh

;Перелік позначених
$ListObj=@Map.Selected.List
$CountList=@Text.Text $ListObj
@If $CountList=0 then @Break Позначте об'єкти
;Сортування номерів позначених об'єктів у зворотньому порядку
@Map.BeginUpdate
@Text.Sort -
$NumLinText=1
%StartList
@Map.DeselectAll
$Obj=@Text.Line[$NumLinText]
@Map.SelectObject $Obj
@Map.Selected.BringToFront
$NumLinText=$NumLinText+1
@If $NumLinText<=$CountList then @Goto %StartList
@Map.DeselectAll
@Map.EndUpdate RefreshAlways