23:20:00.838   $Z2=MAP.CALCULATEZ 5347241,50128287 1349438,23848208
23:20:00.838   0

%Events.OnChange
;Зняти маркування точок редагованого активного об'єкта
$N=@EventObject
$CountMark=@Map.Object[$N].GetMarkedPointsCount
@If $CountMark<>0 then @Map.Selected.MarkPoints CLEAR
;Позначити всі редаговані об'єкти
$ListChange=@EventObjectsList
$CntEventObj=@Text.Text $ListChange
@If $CntEventObj=1 then @Goto %EndSelect
$i=1
@While $i<=$CntEventObj %Loop
$NumObj=@Text.Line[$i]
@Map.SelectObject $NumObj
$i=$i+1
%Loop
;Перепризначити висоти позначеним об'єктам
%EndSelect
;Правка | Інвертувати
@ExecuteMenu EditInvert
;ЦМР | Перепризначити висоти
@ExecuteMenu AssignHeight1
;@Dialog.Message Виконано перепризначення висот
@ExecuteMenu EditInvert

%Events.OnChange
@Map.BeginUpdate
;Зняти маркування точок редагованого активного об'єкта
$N=@EventObject
$IDEventObj=@Map.Object[$N].ID
$CountMark=@Map.Object[$N].GetMarkedPointsCount
@If $CountMark<>0 then @Map.Selected.MarkPoints CLEAR
;Позначити всі редаговані об'єкти
$ListChange=@EventObjectsList
$CntEventObj=@Text.Text $ListChange
@If $CntEventObj=1 then @Goto %EndSelect
$i=1
@While $i<=$CntEventObj %Loop
$Obj=@Text.Line[$i]
@Map.SelectObject $Obj
$i=$i+1
%Loop
;Перепризначити висоти позначеним об'єктам
%EndSelect
;;Правка | Інвертувати
;@ExecuteMenu EditInvert
;;ЦМР | Перепризначити висоти
;@ExecuteMenu AssignHeight1
;;@Dialog.Message Виконано перепризначення висот
;@ExecuteMenu EditInvert
;
;Запис позначених об'єктів (не більше 63-ох) в Get-масиви
;;для кожного редагованого об'єкта
$i=1
@While $i<=$CntEventObj %LoopObjReed
$NumObj=@Text.Line[$i]
$Obj=@Map.GetObject $NumObj
@Text[$i].Text $Obj
$i=$i+1
%LoopObjReed
;
;Видалення позначених об'єктів для визначення висоти за їхніми плановими координатами
@Map.Selected.Delete
;
;Визначення висоти і створення об'єктів
;;для кожного Get-масиву
$i=1
@While $i<=$CntEventObj %LoopObjCreate
$CntPt=@Text[$i].Line[3]
$NumLinMax=$CntPt+4
;;;для кожної точки об'єкта
$j=4
@While $j<=$NumLinMax %LoopPoint
$Str=@Text[$i].Line[$j]
;;;;пропуск розриву комплексного об'єкта
@If "$Str"="" then @Goto %NextPoint
$Mask=@StringPart 1 $Str
$X=@StringPart 2 $Str
$Y=@StringPart 3 $Str
$Z=@Map.CalculateZ $X $Y
$Str=$Mask $X $Y $Z
@Text[$i].Line[$j]=$Str
;;;;наступна точка об'єкта
%NextPoint
$j=$j+1
%LoopPoint
;;;створення об'єкта з Get-масиву
$Obj=@Text[$i].Text
@Map.AddObject 0|$Obj
;;;наступний об'єкт
$i=$i+1
%LoopObjCreate
@Map.SelectByParameters 1|-6=$IDEventObj
@Map.EndUpdate RefreshAlways

;%Events.OnActivateMap
$TM=@TabletMode
@Goto $TM
%0
@TabletMode 1
@Break
%1
@TabletMode 0

@DLLExec Functions.WaitFormForClassAndCaptionActivated [Param1]/[Param2]/Param3

@DLLExec Functions.ExecutProcVBA NameProc/Param

$Str=@DLLExec Functions.GetValueRangeExcel 12,169,19,50, ,LastRow,LastCol
$CntText=@Text.Text $Str

$ProgFold=@ProgramFolder
;Повна назва файла, який необхідно відкрити
$Str=$ProgFold\Favorites\Площа за координатами.xls
$Rez=@DLLExec Functions.OpenFileWithAsocProcAsinhron $Str
@If $Rez=0 then @Break Не вдається запустити $Str||Відсутня асоціація програми з розширенням файлу.
@Dialog.Message Виконано $Str

;передаю назву Excel файла в зовнішню програму
@Text.Add $SR
@Text.Copy
$FC=@Text.Count
;запуск зовнішньої програми
@Run "D:\Експорт\ExcelToClipboard.py"

$FC=@Text.Count
;@While $FC<2 %stop
%Loop
;чекаю 8 секунд
@Wait 8000
;-----------------------------------------------------------------
@Text[1].Clear
@Text[1].Paste
$FC=@Text[1].Count
@if FC=0 then @Goto %Loop

$Char=@Calc Char(9)
$Char=@DequoteText $Char
$ProgFold=@ProgramFolder
@Run $ProgFold\Favorites\Functions.xls
$Rez=@DLLExec Functions.WaitFormForClassAndCaptionActivated XLMAIN//10000
@If $Rez=0 then @Break Книга $ProgFold\Favorites\Functions.xls не відкрилася за 10с.
$Rez=@DLLExec Functions.GetValueRangeExcel 2,1,500,2,$Char,LastRow,LastCol
@DLLExec Functions.CloseWindowWithClasOrAndCaption XLMAIN/
@Dialog.Message $Rez

;;;;;;ВНРМ з карти для другої точки горизонтального прокладення, вирахуваного з верткута
%GetZNovWithHor
$Z2Nov=
@Map.CalculateRange
$Z2Nov=@Map.CalculateZ $X2Y2Nov
;$Z2Nov=@Calc Numeric("$Z2Nov")
@Dialog.WaitBox Визначатиметься висота точки $X2Y2Nov
;$Z2Nov=@RoundTo $Z2Nov 2
$A=@Dialog.WaitBox Висота точки $X2Y2Nov рівна $Z2Nov|Повторити?
@If $A=1 then @Goto %GetZNovWithHor