Все про скрипти

system · 22.10.2021 18:08:23

Доброго вечора.

Людоньки добрі, пане Дмитре Золотар, спасайте терміново!
Як визначити в точці з координатами X Y (центр декількох, накладених одна на іншу ліній з двох точок), номер самого верхнього об’єкта (того, що має найбільший номер)?

Вже пробував NearestObject та все інше - ніяк!

Denys_Sanitskyi · 25.10.2021 13:15:35

Велике Вам ДЯКУЮ!!!

dkorsachev · 25.10.2021 13:23:32

Здравствуйте, подскажите пожалуйста что поменялось в программе не работает скрипт в новой версии Digitals. В старой версии 2013 года всё работает. При выборе шаблона такая вот ошибка.

Dmitry_Zolotar · 26.10.2021 14:54:43

Щось типу цього?

$SO=@Map.SelectedObject $XYZ=@Map.Object[$SO].Point[1] $MC=@Map.Count $I=0 $Res=0 %LoopObject $I=$I+1 $Dist=@Map.MinObjectDistance $I $XYZ ;крапка чи кома, що з них працює @if $Dist<0,001 then $Res=$I @if $I<$MC then @Goto %LoopObject @if $Res=0 then @Break Не знайдено об'єктів поруч з $XYZ @Dialog.Message $Res
Перевірьте, якщо працює повільно, то щось придумаємо

Dmitry_Zolotar · 26.10.2021 14:57:08

Ошибка возникает если нет указаной панели/кнопки, перепроверьте ее название.
Проверил на новой версии - работает.

Denys_Sanitskyi · 27.10.2021 05:45:04

Велике Вам ДЯКУЮ!!!
Дозвольте ще раз звернутись із проханням, мені потрібно щоб даний скрипт виконувався на всіх помічених лінійних об’єктах, допоможіть будь ласка із цим якщо це можливо.

Dmitry_Zolotar · 27.10.2021 14:02:09

;номерчи айді точкового шару $PointLayer=ID3 $BreakXYZ=-2684354.56 -2684354.56 0 $AM=@ActivateMap @if $AM=0 then @Break Відкрийте карту, помітьте об'єкт та запустіть скрипт знову $SO=@Map.SelectedObject $SC=@Map.SelCount @if $SC<1 then @Break Помічено має бути один чи більше об'єктів @Map.Selected.MarkPoints CLEAR %LoopSelected $Closed=@Map.Object[$SO].ClosedComplex @if $Closed=1 then @Goto %IgnoreSelObject $PC=@Map.Object[$SO].Count @if $PC<3 then @Goto %IgnoreSelObject $I=$PC %LoopPoint $NodeObj=@Map.Object[$SO].Node $I $PointLayer @if $NodeObj>0 then @Goto %IgnorePoint $XYZ=@Map.Object[$SO].Point[$I] $XYZ=%Library.ReplaceComma $XYZ @if $XYZ=$BreakXYZ then @Goto %IgnorePoint @Map.Object[$SO].Delete $I $I %IgnorePoint $I=$I-1 @if $I>0 then @Goto %LoopPoint @Map.RefreshObject $SO %IgnoreSelObject $SO=@Map.NextSelected $SO @if $SO<>0 then @Goto %LoopSelected @Window.Refresh

dkorsachev · 08.11.2021 08:59:14

Да шаблон выгружает, но не сохраняет предыдущий. Если я выделяю несколько дилянок то при формировании следующего шаблона предыдущий не хочет сохраняться.

Ссылка на скрин TemplShow: ibb.co/0Ff19Qv
Ссылка на TempSave:

system · 16.11.2021 14:25:55

Прохання до розробників:
скриптову функцію @Map.InsertFromFile Filename “Выполняет команду “Вставка|Карта”, добавляя в карту объекты из внешнего файла” таки треба виправити так, щоб налаштування програми щодо читання Acview Shape (міняти місцями X Y) застосовувалися.
Вказане не є критичним. @Map.InsertFromFile Filename не міняє місцями X Y лише коли карта порожня і без датума.

Питання до розробників:
чи можливо реалізувати дотримання заборони оновлення карти на екрані в результаті виконання будь-яких функцій меню зі скрипта? Це покращило б роботу засобів автоматизації Digitals загалом. Я розумію, що функції меню запускаються з меню в основному “руками”, але замовляти десятки відповідних скриптових функцій, щоб позбутися оновлення карти при виконанні скриптів - якось совість не дозволяє
В кожну функцію меню, якій немає аналогу скриптової функції, хочеться додати перевірку: якщо функція запущена зі скрипта при включеній забороні оновлення - оновляти карту не треба.

Чемно дякую за постійну підтримку програми.

system · 21.11.2021 13:03:49

Тепер маю зазначити - питання термінове:
скриптова функція @Map.InsertFromFile Filename "Выполняет команду “Вставка|Карта”, ДОБАВЛЯЯ ОБЪЕКТЫ ИЗ ВНЕШНЕГО ФАЙЛА SHAPE НО НЕ МЕНЯЯ МЕСТАМИ X Y".

Є два варіанти вирішення питання:

виправити скриптову функцію @Map.InsertFromFile Filename;
додати скриптову функцію @Map.SwapXY - “Міняє місцями X Y”.

Інакше - треба забути про функції @FileNew Name [/Template=Templatename.dmf] і @Map.InsertFromFile Filename.

Прошу дуже, шановні розробники. Дайте, будь-ласка, відповідь.

P.S. Майка через ноги: відкрити файл Shape, позначити всі, видалити, приєднати необхідний шаблон, вставити об’єкти з того ж файла Shape.

Dmitry_Zolotar · 22.11.2021 14:44:43

Змінена у новій версії функція @Map.InsertFromFile під час вставки з шеп-файлу завжди міняє Х, У місцями.
Додано також функцію @Map.SwapXY, яка міняє Х, У місцями у всій карті.

system · 23.11.2021 07:14:01

Дуже дякую. Оперативна підтримка - на висоті.

Denys_Sanitskyi · 26.11.2021 08:18:39

Всім доброго дня!
Допоможіть із таким питанням як замінити знак табуляції в строці параметра виділених об’єктів на знак пробілу?

Dmitry_Zolotar · 26.11.2021 09:43:03

$S=@Map.Object[…].Parameter[…]
$Tab=@Calc Char(9)
$Tab=@DequoteText $Tab
$S=@Calc replace(“$S”,“$Tab”," ")
$S=@DequoteText $S
@Dialog.Message $S

Denys_Sanitskyi · 26.11.2021 11:10:52

[quote=“Dmitry_Zolotar”]
Допоможіть будь ласка із циклом до Вашої пропозиції (не виходить перейти на інший об’єкт).
$AM=@ActivateMap
@if $AM=0 then @Break Відкрийте карту, помітьте об’єкт та запустіть скрипт знову
$SO=@Map.SelectedObject
$SC=@Map.SelCount
@if $SC<1 then @Break Помічено має бути один чи більше об’єктів
$SO=0
@Progress.Start $SC Виконання
;@Map.Selected.MarkPoints CLEAR
;$PC=@Map.Object[$SO].Count
%LoopSelected
$SO=@Map.NextSelected $SO
@If $SO=0 then @Goto %EndProc
@Progress.StepBy
;$I=$PC
$SGP=@Map.Selected.GetParameter 49
@Dialog.Message $SGP
@Progress.StepBy
$TB=@Calc char(9)
$SPC=@Calc char(160)
$TB=@DequoteText $TB
$SPC=@DequoteText $SPC
$SGPN=@ReplaceChar $TB$SPC$SGP
$SSP=@Map.Selected.SetParameter 49 $SGPN
@Progress.StepBy
;$I=$I-1
;@Map.RefreshObject $SO
;$SO=@Map.NextSelected $SO
;$SO=$SO+1
@Goto %LoopSelected
@Window.Refresh
%EndProc
@Progress.Stop
@Dialog.Message “Виконано!”

system · 26.11.2021 11:40:04

$CntMap=@MapCount @if $CntMap=0 then @Break Відкрийте карту, помітьте об'єкт та запустіть скрипт знову $SC=@Map.SelCount @if $SC=0 then @Break Помічено має бути один чи більше об'єктів $LstSel=@Map.Selected.List $CntText=@Text.Text $LstSel @Map.BeginUpdate $TB=@Calc char(9) $SPC=@Calc char(160) $TB=@DequoteText $TB $SPC=@DequoteText $SPC $NumLin=1 @Progress.Start $SC Виконання @While $NumLin<=$CntText %LoopSelected @Map.DeselectAll @Progress.StepBy $SO=@Text.Line[$NumLin] @Map.SelectObject $SO $SGP=@Map.Object[$SO].Parameter[49] $SGPN=@ReplaceChar $TB$SPC$SGP @Map.Selected.SetParameter 49 $SGPN $NumLin=$NumLin+1 %LoopSelected @Progress.Stop @Map.EndUpdate RefreshAlways @Dialog.Message "Виконано!"Справа в тому, що команда @Map.Object[$SO].Parameter[49]=$SGPN не гарантія, що спрацює для кожного з позначених. Тому позначка з усіх позначених буде знята в результаті виконання скрипта.

Denys_Sanitskyi · 26.11.2021 21:20:37

Дякую! Буду знати надалі.

Denidz · 05.01.2022 11:13:30

Добрый день. Можете ли более подробно описать функцию @Map.AddObject. В частности интересует можно ли ей передать список координат и с помощью нее отстроить полигон?

Denys_Sanitskyi · 06.01.2022 11:43:19

Всім доброго дня!
Підкажіть будь ласка як створити автоматичний параметр до об’єктів який би відображав дату створення даного об’єкта на карті або дату внесення до нього змін.

Denidz · 06.01.2022 11:52:19

Параметр =TimeStamp с маской dd.mm.yyyy hh:mm