Алексей Аширов (Все сообщения пользователя)

[QUOTE] написал:
Добрый день![/QUOTE]
Можно сперва на одной машине и читать и писать
[CODE]Sub Unpack

Set tools = CreateObject("ZuluLib.ZuluTools")

'Содаем соедиение
Set Con = CreateObject("ZuluLib.ZsConnection")

'Соединяемся с сервером Источником
If Con.Connect ("zs.zulugis.ru", 6473, "xxx", "yyy") = 0 Then

'Упаковываем слой с хоста, по которому авторизовались
tools.LayerPack "zulu://zs.zulugis.ru:6473/Alexey/QUART.zl","d:\out\QUART.zpkg", 0

Con.Disconnect

'Соединяемся с сервером приемником
If Con.Connect ("zs2.zulugis.ru", 6473, "abc", "xyz") = 0 Then  

'Распаковываем слой по тому хосту ,по которому авторизовались
tools.LayerUnpack "d:\out\QUART.zpkg", "zulu://zs2.zulugis.ru:6473/aaa/QUART.zl", 0

Con.Disconnect

End If

End If

End Sub[/CODE]

[QUOTE] написал:
Добрый день!  
1. MapPack/Unpack - ПК2 используя метод MapPack сохраняет в свою локальную папку упакованную исходную карту с ПК1 и далее используя метод MapUnpack распаковывает её на ПК3. Не получилось, карта упаковывается и сохраняется на ПК2, но при распаковке на ПК3 отображается окно авторизации на сервере (в мониторинге самого сервер подключение anonymous), после ввода данных, аналогичных указанным в строке подключения, карта успешно распаковывается.
2. LayerPackUnpack - ПК2 открывает исходную карту с ПК1, считывает список слоёв, далее используя метод LayerPack сохраняет в свою локальную папку упакованные слои с ПК1, затем используя метод LayerUnpack распаковывает их на ПК3. Тоже не получилось, метод LayerUnpack возвращает false.
3. LayerCopyEx – ПК2 открывает исходную карту с ПК1, считывает список слоёв и копирует каждый из них используя метод LayerCopyEx на ПК3 в целевой слой. Все работает, но, с одной оговоркой, целевой слой должен существовать, те при создании нового слоя в исходной карте он не будет скопирован. Хотелось бы иметь возможность скопировать и новый слой, просто место его расположения на ZuluServer.  Хотелось бы увидеть комментарии по всем трём пунктам, тк данная информация, на мой взгляд, будет крайне полезной при различных кейсах использования данных методов.  Спасибо!  P.S. Версия ZuluGIS 10.0.0.8937u.x64 [/QUOTE]
Общий принцип заключается в предварительной авторизации на сервере куда собираемся писать. Пример[CODE]Sub Unpack

'Содаем соедиение
Set Con = CreateObject("ZuluLib.ZsConnection")

'Соединяемся с сервером с авторизацией
If Con.Connect ("zs2.zulugis.ru", 6473, "abc", "xyz") = 0 Then

Set tools = CreateObject("ZuluLib.ZuluTools")

'Распаковываем слой по тому хосту, по которому авторизовались
tools.LayerUnpack "d:\out\QUART.zpkg", "zulu://zs2.zulugis.ru:6473/aaa/QUART.zl", 0

Con.Disconnect

End If

End Sub
[/CODE]

Пришлите, пожалуйста, телефон для связи на aaa@politerm.com Нужны устные уточнения, чтобы месяцами по поводу стрелок не переписываться

Добрый день. Просто ограничили, т.к. толще никому было не надо. Можно расширить

Пришлите, пожалуйста, телефон для связи на aaa@politer,m.com Нужны утолчнения. Маштабируюся ли линии, Это просто стрелка на каждом сегменте, или стиль линии со стрелочкаи, которые регулярно повторяются

Сейчас никак. Пришлите, пожалуйста, примеры, что хотелось бы увидеть, как оно должно выглядеть. Одна стрелка маленькая, другая в десять раз больше. Как?

Если размер стрелки не влезает а габарит отрезка, она не отображается

Подключить можно, как в описании, https://politerm.com/zuludoc/index.html#wms_define.html
В окошке Сервер WMS указать https://pub.fgislk.gov.ru/map/geo/geoserver/wms
Версия 1.3.0
Единственно, нужно, чтобы в "Сервис\Параметры\Сеть HTTP клиент" был выбран cURL

Для примера, два слоя выбрал, получил zww файл, который работает

Type: WMS
Version: 1.3.0
Title: aaa
Title_UTF8: aaa
Address: https://pub.fgislk.gov.ru/map/geo/geoserver/wms
GetMap: http://pub.fgislk.gov.ru:443/plk/geoservermaster/geoserver/ows?SERVICE=WMS&
GetFeatureInfo: http://pub.fgislk.gov.ru:443/plk/geoservermaster/geoserver/ows?SERVICE=WMS&
SRS: EPSG:4087
Layers: OSM:OSM,FOREST_LAYERS:CLEARCUT
Styles: ,
QueryLayers: OSM:OSM,FOREST_LAYERS:CLEARCUT
AllLayers: OSM:OSM,FOREST_LAYERS:CLEARCUT
AllStyles: ,
Format: image/png
InfoFormat: text/plain
MaxW: 2000
MaxH: 2000
Box: 5763899.59246149,6698892.14439564,5972787.61124530,6798646.31936953
Transparent: true
AlphaCalc: false
BGCOLOR: 0xffffff

Добрый день. Есть вариант полностью свой плагин создать, который реагирует на выбор объекта. Можно написать компонент, который запрашивает дополнительные данные уже из окна информации по объекту.
Для уточнения вариантов можно прислать контактную информацию на aaa@politerm.com Созвонимся, обсудим

[QUOTE] написал:
Необходимо чтоб раз в 60 мин запускался данный скрипт. И проверить правильность его написания[/QUOTE]
1. Скрипт из Zulu по таймеру не запускается. Можно через плагин. Потом, оповещение все-таки не должно зависеть, запущена где-то Zulu или нет. Скрипт можно запускать по расписанию средствами Windows, например.

2. Насчет правильности текста.

Set Db = CreateObject("Zb.ZbDatabase") создает наш объект.
Наш объект методом Open может открыть только нашу базу данных имя которой можно получить, например, через объект Layer. Примеры есть (  [URL=https://politerm.com/samples/zulugis/macros/zapis-dannykh-v-tablitsy-sloya/]https://politerm.com/samples/zulugis/macros/zapis-dannykh-v-tablitsy-sloya/[/URL] )

"Z:\skru-3-nydro\Водоснабжение СКРУ-3 В1.sqlite"  точно не является именем нашей базы

Метод Db.ExecuteScalar у нашего объекта ZbDatabase отсутствует

Правильно ли описана работа с Outlook? Тут лучше обратиться к описанию Outlook

[QUOTE] написал:
Можно ли настроить оповещение по скрипту:

[/QUOTE]
Добрый день. Уточните, пожалуйста, в чем конкретно вопрос?

[QUOTE] написал:
Алексей, а можно попросить добавить?
Очень нужно[/QUOTE]
Проекцию добавили. Цилиндрическая равнопромежуточная. Теперь импортируется как в QGIS. Конкретно у
этих данных проекция EPSG:4087 WGS 84 / World Equidistant Cylindrical  

[QUOTE] написал:
Алексей, а можно попросить добавить?
Очень нужно[/QUOTE]
Да, добавим, сообщим

[QUOTE] написал:
Добрый день!
При импорте файла из GeoPackage Происходит ситуация, что слой оказывается не на своём месте
в примере файл 44_1_1. Слой оказывается вместо Костромской области в Волгоградской.
10_1_1* Вместо Карелии - в Калуге

Эти же файлы Geopackage в программе QGIS оказываются на своих местах.

[/QUOTE]
Добрый день. Да. Там проекция, которую мы не обрабатываем. Нужно добавлять в программу

[QUOTE] написал:
Добрый день!
Хочу вывести на панель инструментов макрос, который будет подключать/отключать "Отображение сетки карты". Не могу найти соответствующее свойство.
Свойство  [URL=https://www.politerm.com/zuludoc/zuluax/EditGrid_cls.html]EditGrid[/URL] мне не подходит, так как подключает "Сетку редактора".[/QUOTE]
Добрый день! Сейчас сетка карты в полном объеме в объектной модели не реализовано. Исторически было только свойство, которое задает ряд фиксированных размеров сетки. [URL=https://www.politerm.com/zuludoc/zuluax/MapDoc_Grid.html]Grid property (MapDoc)[/URL]
Остальное нужно дорабатывать аналогично EditGrid

Добрый день. Вопрос с OSM Landscape не изучали. Посмотрим, есть ли возможность оттуда читать

Для задания нужно адрес соединения с сервером WMS указать https://politerm.com/zuludoc/index.html#wms_define.html

zww нужно открывать только для редактирования параметров уже ранее созданного слоя

Добрый день. Нажать Shift+F5

[QUOTE] написал:
Разобрался с тем что происходит и как пользователь удаляет площадной объект с кодом 52 (eEditorDeleteSegment), алгоритм следующий:
 Включаю режим редактирования слоя
 Выбираю стрелочку "Узлы"
 Выделяю любой узел любого площадного типового(не знаю важно ли это) объекта
 Нажимаю правую кнопку мыши и во всплывающем меню выбираю "Удалить сегмент"
 После этого весь площадной объект пропадает с карты[/QUOTE]
Так всегда и работает, если объект состоит из одного контура или одной полилилинии (из одного сегмента), то  выделение любого элемента объекта указывает какой сегмент, а команда его удаляет. Если сегмент один, то весь объект и удаляется. Если нет цели удалять объект, не надо вызывать эту команду.
Аналогично, если полилиния состоит из двух точек (отрезок), то удаление одной из точек приводит к удалению объекта

[QUOTE] написал:
Подскажите пожалуйста как сделать такое действие в Zulu? Если включить режим редактирования слоя и выбрать один из инструментов редактирования (кнопки со стрелочками: eEditModeSelect , eEditModeNodes ). То при нажатии на кнопку "Del" приходит код eEditorAction  = (3 и 6 - eEditorDelObject и eEditorDeleteNode)[/QUOTE]
Если удалять весь объект, то  Layer.DeleteElement [URL=https://politerm.com/zuludoc/zuluax/index.html#Layer_DeleteElement.html]https://politerm.com/zuludoc/zuluax/index.html#Layer_DeleteElement.html[/URL]
А просто точку перелома в одно действие не удалить.
Нужно получить объект линейный или площадной. Например, Element.Contour, его отредактировать, например, удалить точку перелома,  а потом перезаписать полигон

Set C = Element.Contour
C.DeletePoint(2)
Element.SetContour©

[QUOTE] написал:
Не в том месте указал вопрос, прописал его в теме.
Хотел узнать какое событие ElementsChanged описывается кодом 52(eEditorDeleteSegment)?
И хотел понять почему может после этого события пропадать поликонтур? Событие возникает всего один раз для одного контура.[/QUOTE]
Событие так и называется, удалить сегмент. Поликонтур может состоять из нескольких контуров (сегментов). Если частным случаем поликнтура является просто контур, то сегмент в объекте один, и удаление сегмента объекта приводит к удалению самого объекта.

[QUOTE] написал:
Добрый день   Не могу понять как работает функция CalcDistance у Element   ( [URL=https://www.politerm.com/zuludoc/zuluax/Element_CalcDistance.html]https://www.politerm.com/zuludoc/zuluax/Element_CalcDistance.html[/URL] ) Используя функцию в слое с проекцией Сферический Меркатор дистанция выдается не верная (без учета сфероида), тут понятно почему, но в методе CalcDistance есть второй параметр: [URL=https://www.politerm.com/zuludoc/zuluax/eMeasureType_enum.html]https://www.politerm.com/zuludoc/zuluax/eMeasureType_enum.html[/URL] , и неважно какой я использую, результат один и тот же - дистанция считается не по сфероиду. Подскажите, что я делаю не так, чтобы посчитать реальную длину между объектами с проекцией Сферический Меркатор? Ниже мой пример: [CODE] Sub distance
Set L  = Zulu.ActiveMapDoc.Layers.Active
set element1 = L.Elements.GetElement( 1)
set element2 = L.Elements.GetElement (2 )
dist = element1.CalcDistance(element2, 1)
MSgBox(dist)
End Sub [/CODE] [/QUOTE]
Добрый день. Поправили. Обновите, проверьте

[QUOTE] написал:
Пользователь выполняет какую-то операцию с кодом 52 (eEditorDeleteSegment), после которой удаляется типизированный PolyContur.
Это действие выполняется пользователем всего один раз.

Версия ZuluServer 8.0.0.8726х64. Старая, но обновление поставить - отдельная бюрократическая история.

Заходил на следующие ресурсы для получения информации:
[URL=https://www.politerm.com/zuludoc/zuluax/MapCtrl_ElementsChanged.html]https://www.politerm.com/zuludoc/zuluax/MapCtrl_ElementsChanged.html[/URL]
[URL=https://www.politerm.com/zuludoc/zuluax/eEditorAction_enum.html]https://www.politerm.com/zuludoc/zuluax/eEditorAction_enum.html[/URL] [/QUOTE]
Добрый день. А в чем вопрос?

Добрый день.
1. Раскрасить дороги можно тематической раскраской, если в таблице по дорогам есть атрибут, позволяющий дороги различать по типу.
2. Без тематических раскрасок можно создать в редакторе структуры слоя линейный тип и в нем режимы по количеству типов дорог с разным цветом линий. Затем выделить в редакторе по очереди каждый тип дороги и сделать выделенную группу примитивов объектами созданного типа нужного режима

[QUOTE] написал:
Заполнение группы работает долго. Можно как то иначе сделать? В смысле без цикла с добавлением в группу объектов по одному.
[/QUOTE]
Добавили для дерева свойство ElementKeys. Теперь группу можно создавать одим вызовом
[CODE]L.Selection.ModifyByKeys 1, MWayTree.ElementKeys[/CODE]