Павел Рубцов (Все сообщения пользователя)

[QUOTE]Алексей Аширов написал:
[QUOTE][URL=/forums/?PAGE_NAME=profile_view&UID=1737]Павел Рубцов[/URL] написал:
 [QUOTE] [URL=/forums/?PAGE_NAME=profile_view&UID=6]Алексей Аширов[/URL] написал:
  [QUOTE] [URL=/forums/?PAGE_NAME=profile_view&UID=1737]Павел Рубцов[/URL] написал:
Здравствуйте!
Подскажите, пожалуйста, можно ли программно запускать команды "Отметки высот с карты", "Длины участков с карты" и "Начала и концы участков" из меню ZuluThermo -> Сервис?[/QUOTE] Добрый день. Сейчас нет.[/QUOTE]
Алексей, попробовал сам реализовать эти команды через sql запрос. Если с "Отметки высот с карты" и "Длины участков с карты" проблем не было, то с командой "Начала и концы участков" не понимаю как правильно сделать. На больших картах sql запрос выполняется десятки минут. Можете подсказать что я делаю не так?

p.s. Сделать макрос с этими командами хочется лишь для того, чтобы вынести на панель инструментов и не лазить каждый раз в Сервис ZuluThermo[/QUOTE] SQL запросы сейчас не работают с сетью как с графом. Только как с простой геометрией.
Какие узлы на концах участков быстрей узнать через Layer.NetworkObjects. Потом писать начала и концы. Для скорости использовать UpdateFromAscii .[/QUOTE]

Спасибо! Теперь понятно в чём была моя ошибка. Попробую ваш способ

[QUOTE]Алексей Аширов написал:
[QUOTE][URL=/forums/?PAGE_NAME=profile_view&UID=1737]Павел Рубцов[/URL] написал:
Здравствуйте!
Подскажите, пожалуйста, можно ли программно запускать команды "Отметки высот с карты", "Длины участков с карты" и "Начала и концы участков" из меню ZuluThermo -> Сервис?[/QUOTE] Добрый день. Сейчас нет.[/QUOTE]

Алексей, попробовал сам реализовать эти команды через sql запрос. Если с "Отметки высот с карты" и "Длины участков с карты" проблем не было, то с командой "Начала и концы участков" не понимаю как правильно сделать. На больших картах sql запрос выполняется десятки минут. Можете подсказать что я делаю не так?

Скрытый текст

[CODE] SET H_geo = Geometry.Z() 'Отметки высот с карты SET [Длина участка, м] = geometry.Length_sph()) 'Длины участков с карты 'Начала участков UPDATE [Тепловая сеть] se t t1.[Наименование начала участка] = t2.Name fr om [Тепловая сеть] as t1 inner join (sel ect t2.geometry, t2.Name fr om [Тепловая сеть] as t2 wh ere t2.typeid <> 6) as t2 ON t2.geometry.STEquals(t1.geometry.StartPoint()) where t1.typeid = 6; 'Концы участков UPDATE [Тепловая сеть] se t t1.[Наименование конца участка] = t3.Name from [Тепловая сеть] as t1 inner join (select t3.geometry, t3.Name fr om [Тепловая сеть] as t3 wh ere t3.typeid <> 6) as t3 ON t3.geometry.STEquals(t1.geometry.EndPoint()) wh ere t1.typeid = 6; [/CODE]

p.s. Сделать макрос с этими командами хочется лишь для того, чтобы вынести на панель инструментов и не лазить каждый раз в Сервис ZuluThermo

Можно в SQL запросе для объекта geometry использовать метод Buffer ([URL=https://www.politerm.com/zuludoc/index.html#geosql_geometry_buffer.html]описание[/URL]).
Например :
[CODE]
sel ect b.sys fr om [Тепловая сеть] as a, [Тепловая сеть] as b
where a.sys = 121 -- id текущего элемента
and a.Geometry.STWithin(b.Geometry.STBuffer(100))
[/CODE]

У вас есть очень удобный инструмент - раскраска объектов при расчёте в ZuluThermo. Можете ли что-нибудь подобное добавить в браузер базы данных, чтобы при выполнении запроса можно было графически выделить на карте отфильтрованные элементы. Что-то наподобие быстрой временной темы.
Как вариант, можно в окне ответа сделать иконку с "Быстрой темой", а настройки этой темы вынести в "Сервис" -> "Параметры" - "Карта"

Скрытый текст

Здравствуйте!
Используя команду Карта -> Группа -> Записать можно, зажав shift, выделить несколько слоев для записи, но группа запишется только в первый выбранный слой. Можно ли реализовать запись объектов во все выделенные слои?

[url=https://imgbb.com/][img]https://i.ibb.co/G9XmrMW/image.png[/img][/url]

[QUOTE]Дмитрий Озеров написал:
[URL=/forums/?PAGE_NAME=profile_view&UID=1737&sphrase_id=13812]Павел[/URL], прогнал Ваш пример [CODE] set DB = l.OpenDatabase(6, "")
' Ищем нужную форму
Num = db.Forms.GetIndexByName(zbUserName, "Test1")  
' Получаем объект
Set form = db.Forms.Item(NUM)  
' Получаем запрос, по которому создана эта форма
Set query = form.Query
' Добавляем поля в форму
FORM.Active  = true
FORM.Default = true  
' Сохраняем базу
db.Save 0 [/CODE] Всё сохраняется. На скриншоте видно, что форма по умолчанию стала Test1. Другое дело, что все изменения касаются данных описателя базы и, если уже браузер был открыт, то форма в нём автоматически не сменятся.[/QUOTE]
Понял. Спасибо!

[QUOTE]Дмитрий Озеров написал:
[URL=/forums/?PAGE_NAME=profile_view&UID=1737&buf_fid=3&tags=%D1%81%D1%85%D0%B5%D0%BC%D0%B0]Павел[/URL], добрый день!
Сразу оговорюсь: для каждого запроса в базе существует стандартная форма, их редактировать нельзя.

Создать новую форму для запроса можно так: [CODE] Const zbFormSimple = 2
' Допустим db - объект ZbDatabase
' query - какой-то запрос, допустим активный
Set query = db.ActiveQuery
' Создаём новую форму для запроса query
Set form = db.Forms.AddNew(zbFormSimple, query, "Название формы")
' Добавляем поля в форму
form.AddField query.VisualQuery.Fields(2)
' Сохраняем базу
db.Save 0
[/CODE]
Изменить форму (не "стандартную") для запроса:
[CODE] Const zbUserName = 2
' Ищем нужную форму
Num = db.Forms.GetIndexByName(zbUserName, "Название формы")
' Получаем объект
Set form = db.Forms(Num)
' Получаем запрос, по которому создана эта форма
Set query = form.Query
' Добавляем поля в форму
form.AddField query.VisualQuery.Fields(3)
' Сохраняем базу
db.Save 0
[/CODE] [/QUOTE]


Спасибо большое!
Я делал примерно также, только не знал, что в конце нужно нужно сохранять базу через db.Save 0.
А подскажите, пожалуйста, можно ли сделать так чтобы после выполнения макроса при открытии окна информации сразу появлялся выбранная форма? Выполняю Form.Active и Form.Default, но в коне информации всё равно открывается предыдущая форма, хотя нужная форма становится активной.

[CODE] set DB = l.OpenDatabase(6, "")
   ' Ищем нужную форму
Num = db.Forms.GetIndexByName(zbUserName, "Test1")
' Получаем объект
Set form = db.Forms.Item(NUM)
' Получаем запрос, по которому создана эта форма
Set query = form.Query
' Добавляем поля в форму
       FORM.Active  = true
FORM.Default = true
' Сохраняем базу
db.Save 0
[/CODE]

[URL=https://hostingkartinok.com/show-image.php?id=70a34ea1a2b42059708aec41b9280f04][IMG WIDTH=591 HEIGHT=325]https://s8.hostingkartinok.com/uploads/images/2021/01/70a34ea1a2b42059708aec41b9280f04.png[/IMG][/URL]

Здравствуйте!
Никак не могу разобраться как правильно с помощью макроса редактировать и создавать новые формы для запросов к БД. Могли бы привести пример?

Здравствуйте!
Подскажите, пожалуйста, можно ли программно запускать команды "Отметки высот с карты", "Длины участков с карты" и "Начала и концы участков" из меню ZuluThermo -> Сервис?

Здравствуйте!
Я в таком случае вместо камеры подключения ставлю источник и заполняю его согласно параметрам в камере. Если нужно, чтобы камера отображалась как камера, а не как источник, то можно в структуре слоя изменить её вид.

Спасибо за развернутый ответ.
Согласно методике период эксплуатации трубопровода используется для вычисления интенсивности отказов. Получается если заполнено поле "Период эксплуатации, лет" в базе данных участков, то не обязательно заполнять "Расчетная интенсивность отказов, 1/(км*ч)" и Zulu сама посчитает это значение?

Здравствуйте!
Прошу уточнить пару моментов по проведению расчёта надёжности на тепловой сети.
1. При расчёте надёжности ТЭЦ городов с большим количеством закольцованных участков, расчёт может производиться несколько дней. Какие способы есть для ускорения расчёта? Сейчас мы заменяем ЦТП или небольшие тупиковые кварталы на обобщенных потребителей. Как сильно это может повлиять на точность расчёта?
2. В настройках расчёта надёжности есть возможность выбрать расчетный год. В документации написано, что это значение нужно для определения периода эксплуатации трубопроводов. Как Zulu использует информацию о периоде эксплуатации трубопровода в расчёте надёжности? Считает все трубопроводы старше 25 лет ненадёжными?


Расчёт проводится в Zulu 8.0.0.7513u

[QUOTE]Алексей Аширов написал:
[QUOTE][URL=/forums/?PAGE_NAME=profile_view&UID=1737]Павел Рубцов[/URL] написал:
Здравствуйте! Просьба помочь с написанием макроса.
Пытаюсь с помощью LayerTransform масштабировать и перенести в нужные координаты растровый слой. Но растр почему-то смещается намного ниже необходимого места. Причем если трансформировать слой с клавиатуры и вводить те же самые аргументы слой становится в нужные координаты.
В чём может быть причина этого? Код и картинка ниже.
    Скрытый текст         [CODE] [/CODE]
    Скрытый текст        [/QUOTE]
Пришлите все числовые параметры трансформации, которые дают один результат из оболочки и другой из программы.
И сам исходный слой. Посмотрим   [URL=mailto:[email protected]][email protected][/URL] [/QUOTE]

Проверил. Теперь работает правильно. Спасибо большое!

Здравствуйте! Просьба помочь с написанием макроса.
Пытаюсь с помощью LayerTransform масштабировать и перенести в нужные координаты растровый слой. Но растр почему-то смещается намного ниже необходимого места. Причем если трансформировать слой с клавиатуры и вводить те же самые аргументы слой становится в нужные координаты.
В чём может быть причина этого? Код и картинка ниже.

Скрытый текст

[CODE]Set out = Zulu.OpenOutputChannel("Сообщения") out.Clear Set Map = Zulu.ActiveMapDoc 'Получаем активный слой (растр) Set L = MAP.Layers.Active Set Plan = MAP.Layers.GetItemByUserName("План_сущ_пол") 'Текущие объекты, по которым проверяется масштаб Set a1 = PLAN.Elements.Item(1148).GetBoundsRectangle(0) Set a2 = PLAN.Elements.Item(531).GetBoundsRectangle(0) 'Правильное расстояние между объектами a1_a2 = ((a2.Xmax - a1.Xmin) ^ 2 + ((a2.Ymax - a1.Ymin))^2)^(1/2) 'Объекты на растре Set b1 = PLAN.Elements.Item(3084).GetBoundsRectangle(0) Set b2 = PLAN.Elements.Item(3085).GetBoundsRectangle(0) 'Границы растра Set M = L.GetBoundsRectangle 'Правильное расстояние между объектами b1_b2 = ((b1.Xmin - b2.Xmax)^2 + (b1.Ymin - b2.Ymax)^2) ^(1/2) X = b1.Xmin ' Текущая координата X Y = b1.Ymin ' Текущая координата Y Kx = a1_a2/b1_b2 ' коэффициент искажения масштаба по X Ky = Kx ' коэффициент искажения масштаба по Y Xc = (M.Xmin + M.Xmax) / 2 'координаты точки поворота Yc = (M.Ymin + M.Ymax) / 2 'координаты точки поворота Fi = 0 'угол поворота Xs = a1.Xmin - (Xc + Kx * (X -  Xc) * Cos(Fi) - Ky * (Y -  Yc) * Sin(Fi)) 'смещение по X Ys = a1.Ymin - (Yc + Kx * (X -  Xc) * Sin(Fi) + Ky * (Y -  Yc) * Cos(Fi)) 'смещение по Y OUT.Put cstr(X) + Chr(10) + cstr(Y) + Chr(10) + cstr(Xs) + Chr(10) + cstr(Ys) + Chr(10) + cstr(Kx) + Chr(10) + cstr(Ky) + Chr(10) + cstr(Xc) + Chr(10) + cstr(Yc) + Chr(10) TRANS.LayerTransform L.Name,  Kx, Ky, Fi, Xc, Yc, Xs, Ys MAP.Layers.Remove L MAP.AddLayer L.Name [/CODE]

Скрытый текст
[IMG WIDTH=366 HEIGHT=505]https://cdn1.savepice.ru/uploads/2020/4/8/a49f93772b4963d1e5d492d094f389d9-full.png[/IMG]

Здравствуйте!
Могли бы в Редактор слоя добавить правило по обновлению наименования начала и конца участка при изменение наименования камер или при разбиении участка камерой?

Виталий Токаренко, я для резервного копирования использую программу Cobian Backup 11 (Gravity). Она по расписанию упаковывает в архив нужные папки и хранит заданное количество версий этого архива.

Здравствуйте!
Прошу подсказать, есть ли возможность с помощью sql-запроса или макроса получать данные о номере кадастрового квартала из слоя Кадастровое деление и записывать его в потребителя, который находится в его границах?

Спасибо за помощь

Здравствуйте!
Просьба подсказать как правильно редактировать надписи с помощью LabelLayers. С помощью кода ниже получается включить нужный вид надписей, но изменение его параметров не происходит. Что я делаю не так?
[CODE]Set L = MAP.Layers.Active

L.LabelLayers.ItemById(2).Enable = true

L.LabelLayers.ItemById(2).ScaleLimited = true
L.LabelLayers.ItemById(2).Auto = true
L.LabelLayers.ItemById(2).BasicScale= 0
L.LabelLayers.ItemById(2).FrameColor = true
L.LabelLayers.ItemById(2).ShortLines = true
L.LabelLayers.ItemById(2).LabelFields.Item(0).Prefix = "2Ду"[/CODE]

Алексей Аширов, спасибо большое!!! Это очень упростит работу!

Алексей Аширов, а не могли бы написать пример макроса для какого-нибудь поля?

День добрый!
Есть строка [Абонент1] в потребителе, со значениями вида "919 УФМигр.Службы адм.зд. от0.03735 20гр гвс0.019". В разных потребителях соответственно разное название абонента и разное количество знаков.
Пытаюсь запросом получить столбец со значениями после букв "гвс". Логика запроса следующая:
С помощью функции SUBSTRING взять 5 символов из строки [Абонент1] начиная с позиции где функция CHARINDEX найдет вхождение 'гвс'

Но чтобы я не делал появляется ошибка:

Unexpected character ')'.

Text: '))+(3),5) FR OM R0DCAF0C8 WH ERE [Абонент1] LIKE "%гвс%"'

Pos: 64, Ref: 0xE205

В чем может быть проблема?

Здравствуйте!
1. Есть ли возможно добавить фильтр в информацию и запрос по объектам как это сделано в SQL запросе?

Скрытый текст
[IMG WIDTH=383 HEIGHT=384]https://cdn1.savepice.ru/uploads/2019/4/25/3940e9b82bf7c321ca838759bd208bf3-full.png[/IMG][IMG WIDTH=385 HEIGHT=81]https://cdn1.savepice.ru/uploads/2019/4/25/d2f0cbe106f087e0ef6253f4dbb2f75e-full.png[/IMG]

2. Можно ли добавить информацию по типу полей в информацию по объектам?

Скрытый текст
[IMG WIDTH=384 HEIGHT=199]https://cdn1.savepice.ru/uploads/2019/4/25/ef095369ea8aff980791efc8891b0eb3-full.png[/IMG] [IMG WIDTH=308 HEIGHT=236]https://cdn1.savepice.ru/uploads/2019/4/25/325a7af106357ee5984f4d1e8654c6e2-full.png[/IMG]

Дмитрий Емельянов, спасибо большое за помощь, получилось с помощью Inner Join сделать нужный запрос.
Только поймал непонятный баг. Если карту открыть локально, то запрос выполняется, а если на сервере, то выдаёт ошибку "Unresolved symbol 'mg'."

Скрытый текст
Код update t1 SET t1.[Расчетное время восстановления, ч]= t2.mg from [СТ_Ульяновск_2] as t1 INNER JOIN (select uzel.sys, max(uch.[Расчетное время восстановления, ч]) as mg from [СТ_Ульяновск_2] as uch, [СТ_Ульяновск_2] as uzel where uzel.typeid=5 and uch.typeid=6 and uch.Geometry.STTouches(uzel.Geometry) group by uzel.sys) as t2 on t1.sys = t2.sys

В чем может быть причина?

UPD Вопрос снимается, были установлены разные версии клиента и сервера.

Здравствуйте.
С помощью запроса ниже приравниваю значения расчетного времени восстановления для задвижки и примыкающих к ней трубопроводов. Насколько я понял, то значение для задвижки берётся из трубопровода, у которого sys больше. Можно ли как-нибудь сделать запрос, чтобы в задвижку записывалось максимальное значение из трубопроводов?