Аналитика
http://geosystema.net/forum/

Нужна помощь
http://geosystema.net/forum/viewtopic.php?f=1&t=2933
Страница 20 из 26

Автор:  Виталий [ 14 фев 2018 15:10 ]
Заголовок сообщения:  Re: Нужна помощь

Доброго дня. Підскажіть будь ласка, як за допомогою скрипта создати новий слой карти, а назву його щоб брало з параметру виділеного об`екту,
Дякую.

Автор:  fendak [ 14 фев 2018 15:52 ]
Заголовок сообщения:  Re: Нужна помощь

Виталий писал(а):
Доброго дня. Підскажіть будь ласка, як за допомогою скрипта создати новий слой карти, а назву його щоб брало з параметру виділеного об`екту,
Дякую.


Крім назви, новий шар повинен мати ще id, тип та атрибути (номер умовного знаку, тип лінії, колір лінії, товщина, тип заливки, колір заливки, статус, назву шрифту, розмір шрифту, стиль шрифту, колір шрифту). Звідки їх брати?

Для якої конкретної задачі це потрібно?

Автор:  Виталий [ 15 фев 2018 09:24 ]
Заголовок сообщения:  Re: Нужна помощь

fendak писал(а):
Виталий писал(а):
Доброго дня. Підскажіть будь ласка, як за допомогою скрипта создати новий слой карти, а назву його щоб брало з параметру виділеного об`екту,
Дякую.


Крім назви, новий шар повинен мати ще id, тип та атрибути (номер умовного знаку, тип лінії, колір лінії, товщина, тип заливки, колір заливки, статус, назву шрифту, розмір шрифту, стиль шрифту, колір шрифту). Звідки їх брати?

Для якої конкретної задачі це потрібно?


Есть файл dmf. В нем сохранены разные объекты но скажем названия слоев созданы по номеру и дате писем от заказчика. Но чтоб этого не делать в ручную (Открывать файл, вставлять объект, переименовывать слой, уникальность ID по имени). Это делал скрипт. Обїкт-полигон. Цвет линии и тип по умолчанию (значения не имеет). Таким образом создаеться база объктов одного заказчика и пересортировываться по письмам.

Автор:  fendak [ 15 фев 2018 13:58 ]
Заголовок сообщения:  Re: Нужна помощь

;номер параметра, по якому слід перейменовувати назви шарів
$NPar=20030
;стартовий номер id для нових шарів
$StartID=800045
$N=0
$MC=@Map.Count
%Start
$N=$N+1
@Map.DeselectAll
@Map.SelectObject $N
$NewLayer=@Map.Object[$N].Parameter[id$NPar]
@if $NewLayer= then @Goto %Pusto
$LID=@Map.Object[$N].LayerID
$LParList=@Map.Layers.GetValidParameters ID$LID
$Attributes=@Map.Layers.GetAttributes ID$LID
$StartID=$StartID+1
@Map.Layers.Add $StartID 1 $NewLayer
@Map.Layers.SetValidParameters ID$StartID $LParList
@Map.Layers.SetAttributes ID$StartID $Attributes
@Map.Object[$N].LayerID $StartID
%Pusto
@if $N<$MC then @Goto %Start
@Window.Refresh

стартовий номер id для нових шарів ставте такий, щоб при подальшому збільшенні він не дублював жодного, який вже є на карті

по тій же причині, перед повторним запущенням скрипту по тій самій карті потрібно знову задавати стартовий номер id (наступний після наявного вже на карті)

Автор:  Виталий [ 15 фев 2018 14:21 ]
Заголовок сообщения:  Re: Нужна помощь

fendak писал(а):
;номер параметра, по якому слід перейменовувати назви шарів
$NPar=20030
;стартовий номер id для нових шарів
$StartID=800045
$N=0
$MC=@Map.Count
%Start
$N=$N+1
@Map.DeselectAll
@Map.SelectObject $N
$NewLayer=@Map.Object[$N].Parameter[id$NPar]
@if $NewLayer= then @Goto %Pusto
$LID=@Map.Object[$N].LayerID
$LParList=@Map.Layers.GetValidParameters ID$LID
$Attributes=@Map.Layers.GetAttributes ID$LID
$StartID=$StartID+1
@Map.Layers.Add $StartID 1 $NewLayer
@Map.Layers.SetValidParameters ID$StartID $LParList
@Map.Layers.SetAttributes ID$StartID $Attributes
@Map.Object[$N].LayerID $StartID
%Pusto
@if $N<$MC then @Goto %Start
@Window.Refresh

стартовий номер id для нових шарів ставте такий, щоб при подальшому збільшенні він не дублював жодного, який вже є на карті

по тій же причині, перед повторним запущенням скрипту по тій самій карті потрібно знову задавати стартовий номер id (наступний після наявного вже на карті)


Дякую. Чудово.
А подксажите пожалуйста кака функция есть чтоб выполнить

Вложения:
Screenshot_1.jpg
Screenshot_1.jpg [ 29.49 Кб | Просмотров: 1655 ]

Автор:  Артем Сорокін [ 15 фев 2018 21:04 ]
Заголовок сообщения:  Re: Нужна помощь

Куда пропадает точка при сборе. Приложил видео, так быстрей объяснить)

Вложения:
Video_2018-02-15_210145.rar [1.07 Мб]
Скачиваний: 34

Автор:  fendak [ 15 фев 2018 21:19 ]
Заголовок сообщения:  Re: Нужна помощь

Артем Сорокін писал(а):
Куда пропадает точка при сборе. Приложил видео, так быстрей объяснить)

меню Сервіс-Налаштування-закладка Збір
зніміть галочку Автоматична генералізація.

дана опція призначена для того, щоб при зборі об'єкта автоматично видаляти точки, які на рівній лінії

Автор:  fendak [ 15 фев 2018 21:29 ]
Заголовок сообщения:  Re: Нужна помощь

Виталий писал(а):
А подксажите пожалуйста кака функция есть чтоб выполнить

у вікні скрипту введіть в пошук слово "унікальність"
з'являться два результати
пробуйте

Вложения:
2018-02-15_212702.png
2018-02-15_212702.png [ 7.12 Кб | Просмотров: 1640 ]

Автор:  Виталий [ 16 фев 2018 10:17 ]
Заголовок сообщения:  Re: Нужна помощь

fendak писал(а):
Виталий писал(а):
А подксажите пожалуйста кака функция есть чтоб выполнить

у вікні скрипту введіть в пошук слово "унікальність"
з'являться два результати
пробуйте

ID|Унікальність працює коли э два слоя з однаковими ID
Мені потрібно щом ID генерувався по імені слою. так як генерується в ручну (Карта|Слои|Уникальные ID по имени)

Дякую.

Вложения:
Screenshot_2.jpg
Screenshot_2.jpg [ 16 Кб | Просмотров: 1628 ]

Автор:  dartslayer [ 19 фев 2018 16:54 ]
Заголовок сообщения:  Re: Нужна помощь

Підскажіть будь-ласка у ситуації:
Є дві ділянки (система координат Широта/Долгота), вони в дуже крупному масштабі.
Необхідно ці ділянки об'єднати в одну, але із-за масштабу, неможливо додати точку на лінії або якщо додаю, ділянки змінюють конфігурацію; коли пробував перезібрати ділянки одним контуром, то при натисканні гарячої клавіші "P" - лінія прив'язувалася до якоїсь іншої точки на ділянках.

Пробував змінювати масштаб в "Свойствах карти", "Точність карти на бумаге" до 0,1; 0,001 і т.д., але неможливо нормально працювати з редагуванням об'єктів на карті.

Вложения:
1.dmf [5.83 Кб]
Скачиваний: 194

Автор:  petrogeo [ 19 фев 2018 17:40 ]
Заголовок сообщения:  Re: Нужна помощь

dartslayer писал(а):
Підскажіть будь-ласка у ситуації:
Є дві ділянки (система координат Широта/Долгота), вони в дуже крупному масштабі.
Необхідно ці ділянки об'єднати в одну, але із-за масштабу, неможливо додати точку на лінії або якщо додаю, ділянки змінюють конфігурацію; коли пробував перезібрати ділянки одним контуром, то при натисканні гарячої клавіші "P" - лінія прив'язувалася до якоїсь іншої точки на ділянках.

Пробував змінювати масштаб в "Свойствах карти", "Точність карти на бумаге" до 0,1; 0,001 і т.д., але неможливо нормально працювати з редагуванням об'єктів на карті.

Перерахуйте в іншу систему координат, наприклад СК-63, зробіть об'єднання ділянок, а потім перерахуйте назад в систему координат Широта/Долгота.

Вложения:
1.dmf [10.38 Кб]
Скачиваний: 155

Автор:  Виталий [ 20 фев 2018 11:16 ]
Заголовок сообщения:  Re: Нужна помощь

Подскажите пожалуйста.
написал скрипт выбора номера заявления.
При выполненни скрипт решает кат мат. выражении.
Номер заявки: 702-10/17 від 09.10.2017
Вопрос: как исправить чтоб прописывало как текст в такомже виде. "702-10/17 від 09.10.2017"
Спасибо.

;Номер замовлення
$Papka=@ProgramFolder
;///////////////////////////////////////////////
@Map.DeselectAll
@Map.SelectLayer ID20000
;вибираємо Номер замовлення
$t1=@Dialog.ListSelect Виберіть Номер замовлення|702-10/17 від 09.10.2017|713-10/17 від 13.10.2017|728-10/17 від 20.10.2017|783-11/17 від 15.11.2017|824-12/17 від 05.12.2017|більше...
@if "$t1"<>"більше..." then @Goto %YesTD
@Text.Load $Papka\Lists\Дата_Номер_Замовлення.txt
$Text=@Text.Text
$t1=@Dialog.ListSelect Виберіть Номер замовлення|$Text
%YesTD
$DocDZ=$t1
$DocDZ=@DequoteText $DocDZ
@Dialog.Message $DocDZ
@Map.Selected.ChangeParameter ID74 $DocDZ
@Map.DeselectAll
;///////////////////////////////////////////////

Автор:  Артем Сорокін [ 02 мар 2018 11:05 ]
Заголовок сообщения:  Re: Нужна помощь

подскажите пожалуйста:
Есть ли возможность повернуть "стороны света" (сервер, юг...)? Именно в координатах, то есть не развернуть объекты на карте, а полностью координатное пространство?

А теперь поясню для чего это нужно.
Представим себе карту М 1:5000, населённый пункт вытянутой форму с севера-запада на юго-восток длиной 20 км. Делаем графику под ген план. Потом формируем чертежи для печати, в итоге получается большое количество пустой не задействованной бумаги.
Как вышел из положения: просто повернул все объекты на карте по оси на определённый градус, и чертёж лёг на меньшее количество бумаги (без пустых пробелов). Но появилась другая проблема, изначальная съёмка часто пополняется (обновляется) и поэтому постоянно пытаешься угадать как её повернуть, и еще пропадает возможность нормальной работы с растрами.

Автор:  xrayspirt [ 02 мар 2018 11:44 ]
Заголовок сообщения:  Re: Нужна помощь

Артем Сорокін писал(а):
в итоге получается большое количество пустой не задействованной бумаги.

Щось не бачу причини розвертати графіку для цього. Можна ж поміняти орієнтацію листа з альбомної на книжну і навпаки при друку.

Автор:  fendak [ 02 мар 2018 11:51 ]
Заголовок сообщения:  Re: Нужна помощь

Виталий писал(а):
Вопрос: как исправить чтоб прописывало как текст в такомже виде. "702-10/17 від 09.10.2017"


рядок $DocDZ=$t1 поміняйте на $DocDZ="$t1"

Страница 20 из 26 Часовой пояс: UTC + 2 часа
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/