Аналитика

Цифровая фотограмметрия, картография и землеустройство
Текущее время: 29 мар 2024 02:59

Часовой пояс: UTC + 2 часа




Начать новую тему Ответить на тему  [ Сообщений: 741 ]  На страницу Пред.  1 ... 37, 38, 39, 40, 41, 42, 43 ... 50  След.
Автор Сообщение
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 26 июн 2020 12:53 
Гуру
Гуру

Зарегистрирован:
06 июн 2010 06:35
Сообщения: 823
Откуда: Ліспроект Володимир Вовчанський
Артем Сорокін писал(а):
Существует ли какой то программный способ сравнения 2-х файлов DMF? ... Основная задача: понять что поменялось?
Головне меню програми Карта > Порівняти...
mmm1121 писал(а):
В условном знаке электроподстанции есть значек молнии. Как его нарисовать? По идее он должен проставляться автоматом.
Создание и редактирование знака. Можна зібрати об'єкт зі сканованого растра, де є зображення умовного знаку, далі - головне меню Сервіс > Перетворити > Об'єкт у символ.... По ідеї, умовний знак з бібліотеки умовних знаків призначається окремому шару об'єктів у менеджері шарів (кнопка Умовний знак панелі інструментів вікна менеджера шарів). Тоді об'єкти згаданого шару, у вигляді звичайному та повному, будуть подаватися в карті призначеним умовним знаком.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 27 июн 2020 16:07 
Гуру
Гуру

Зарегистрирован:
06 июн 2010 06:35
Сообщения: 823
Откуда: Ліспроект Володимир Вовчанський
Доброго дня.

Маю таке собі питання, стосовно функції Digitals "Сумістити точки з сусідніми":
- чи лише "Точність карти на папері" (визначає радіус круга, в якому дві точки різних об'єктів будуть суміщені) і "Точність координат карти" (визначає точність координат точки, вставленої в об'єкт у місці перетину границь об'єктів а також нижню межу відстані між точками, при якій точки вважаються сусідніми) обумовлюють результат суміщення точок?

Щодо проблеми, відправив листа на help@vingeo.com


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 10 июл 2020 15:24 
Специалист
Специалист

Зарегистрирован:
06 дек 2018 11:01
Сообщения: 26
Здравствуйте ув. коллеги. Подскажите может у кого есть опыт, как оцыфровать умовну прибрежну смугу на кадастровой карте, если бы она подгружалась в растре то можно было бы контур обрисовать, а так как подложку сделать. Может кто то такое делал? Я пробовал скриншот с карты в диджиталс вставлять но как его подвязать правиль?


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 11 июл 2020 11:19 
Гуру
Гуру
Аватара пользователя

Зарегистрирован:
22 сен 2007 16:09
Сообщения: 382
Откуда: м.Львiв
ivan.vanek писал(а):
Здравствуйте ув. коллеги. Подскажите может у кого есть опыт, как оцыфровать умовну прибрежну смугу на кадастровой карте, если бы она подгружалась в растре то можно было бы контур обрисовать, а так как подложку сделать. Может кто то такое делал? Я пробовал скриншот с карты в диджиталс вставлять но как его подвязать правиль?

Можете попробувати за допомогою SAS.Планета / SAS.Planet / SASPlanet. Шари з гiдрографiєю, енергетикою, дiлянками та ортопланами з ПКК є у вкладеннi, просто скопiюйте вмiст архiву до папки Maps\sas.maps\. В меню програми Шари з'явиться пункт меню Кадастр України (аналiтичнi шари)->Гiдрографiя України, вiдповiдно в пунктi меню Карти додано пiдменю Кадастр України (карти) з вибором основи (ортофотоплан, топоплан).

* 14.07.2020 - оновлено архiв, додано грунти (НГО), топографiчну карту України, карту АТУ та топокарту.


Вложения:
Public.map.uk.zip [32.78 Кб]
Скачиваний: 234

_________________
Більшість хороших програмістів виконують свою роботу не тому, що очікують оплати або визнання, а тому, що отримують задоволення від програмування.


Последний раз редактировалось Руслан Пархуць 13 июл 2020 23:02, всего редактировалось 5 раз(а).
Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 11 июл 2020 13:49 
Специалист
Специалист

Зарегистрирован:
06 дек 2018 11:01
Сообщения: 26
Руслан Пархуць писал(а):
ivan.vanek писал(а):
Здравствуйте ув. коллеги. Подскажите может у кого есть опыт, как оцыфровать умовну прибрежну смугу на кадастровой карте, если бы она подгружалась в растре то можно было бы контур обрисовать, а так как подложку сделать. Может кто то такое делал? Я пробовал скриншот с карты в диджиталс вставлять но как его подвязать правиль?

Можете попробувати за допомогою SAS.Планета / SAS.Planet / SASPlanet. Шари з гiдрографiєю i енергетикою з ПКК є у вкладеннi, просто скопiюйте вмiст архiву до папки Maps\sas.maps\. В меню програми Шари з'явиться пункт меню Кадастровi карти->Україна->Гiдрографiя.

Огромное спасибо , попробую в ней сделать. Вам счастья!


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 06 авг 2020 09:53 
Эксперт
Эксперт

Зарегистрирован:
09 дек 2015 12:30
Сообщения: 97
Откуда: Закарпатська область
Доброго дня.
Підкажіть будь-ласка чи є функція яка проводить пошук певного значення по текстовому списку, і повертає номер рядка, якщо таке значення знайдено.
Наприклад текстовий список заповнено такими значеннями (значення записані через Tab):
Цифра Олена Юріївна ЗК 0054890
Цифра Олена Юріївна ЗК 0067504
Варга Марта Юріївна ЗК 0054206
Балог Юрій Іванович ЗК 0054438
...
Як наприклад повернути номер рядка в якому знаходиться значення "ЗК 0054438"?
Примітка. У мене список містить більше 3000 рядків, і через нього потрібно перевірити близько 15 000 значень.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 06 авг 2020 11:14 
Гуру
Гуру

Зарегистрирован:
05 апр 2012 10:20
Сообщения: 797
Откуда: Львівська область
petrogeo писал(а):
Підкажіть будь-ласка чи є функція яка проводить пошук певного значення по текстовому списку

@Calc Pos("t","s") – визначає позицію частини рядка t в рядку s.

@Text[1].Load Filename
$H=@Text[1].Text
$D=@Dialog.Ask Що шукати?
$L=@Calc Pos("$D","$H")
@if $L=0 then @Break Не знайдено
@Break Знайдено в рідяку $L


де замість Filename вкажіть шлях до вашого файлу із списком

Також є функція:
@Text[N].KeyValue FindStr - читає значення за ключом такого вигляду: ключ<tab>значення

Але тоді вам треба буде у списку поміняти місцями колонки. І ви отримаєте не номер, а відразу значення.

P.S.Щоб отримати відразу значення за першим варіантом, замість рядка @Break Знайдено в рідяку $L, напишіть:

$Res=@Text[1].Line[$L]
$Tab=@Calc char(9)
$Tab=@DequoteText $Tab
$Res=@StringPart 2$Tab$Res
@Break $Res

_________________
додатково про скрипти Digitals на www.digitals.at.ua


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 06 авг 2020 11:51 
Эксперт
Эксперт

Зарегистрирован:
09 дек 2015 12:30
Сообщения: 97
Откуда: Закарпатська область
fendak писал(а):
petrogeo писал(а):
Підкажіть будь-ласка чи є функція яка проводить пошук певного значення по текстовому списку

@Calc Pos("t","s") – визначає позицію частини рядка t в рядку s.

@Text[1].Load Filename
$H=@Text[1].Text
$D=@Dialog.Ask Що шукати?
$L=@Calc Pos("$D","$H")
@if $L=0 then @Break Не знайдено
@Break Знайдено в рідяку $L


де замість Filename вкажіть шлях до вашого файлу із списком

Також є функція:
@Text[N].KeyValue FindStr - читає значення за ключом такого вигляду: ключ<tab>значення

Але тоді вам треба буде у списку поміняти місцями колонки. І ви отримаєте не номер, а відразу значення.

P.S.Щоб отримати відразу значення за першим варіантом, замість рядка @Break Знайдено в рідяку $L, напишіть:

$Res=@Text[1].Line[$L]
$Tab=@Calc char(9)
$Tab=@DequoteText $Tab
$Res=@StringPart 2$Tab$Res
@Break $Res


Дякую, але не те. У вашому варіанті мені знаходить номер першої букви значення що шукається.
Мені потрібно у списку значень знайти в якому рядку записане те значення що я шукаю, і повернути номер рядка, якщо такий є або 0


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 06 авг 2020 16:06 
Гуру
Гуру

Зарегистрирован:
05 апр 2012 10:20
Сообщения: 797
Откуда: Львівська область
ну тоді так:
@Text[1].Load Filename
$D=@Dialog.Ask Що шукати?
$C=@Text[1].Count
@if $C=0 then @Break Текстовий файл порожній
$I=0
%Start
$I=$I+1
$Line=@Text[1].Line[$I]
$L=@Calc Pos("$D","$Line")
@if $L>0 then @Break Знайдено в рядку $I
@if $I<$C then @Goto %Start
@Break Не знайдено

_________________
додатково про скрипти Digitals на www.digitals.at.ua


Последний раз редактировалось fendak 11 авг 2020 08:40, всего редактировалось 3 раз(а).

Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 06 авг 2020 16:10 
Гуру
Гуру

Зарегистрирован:
05 апр 2012 10:20
Сообщения: 797
Откуда: Львівська область
є ще функція @Text[1].IndexOf
але там треба шукати по цілому рядку зразу, а не частині

_________________
додатково про скрипти Digitals на www.digitals.at.ua


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 06 авг 2020 18:46 
Эксперт
Эксперт

Зарегистрирован:
09 дек 2015 12:30
Сообщения: 97
Откуда: Закарпатська область
fendak писал(а):
ну тоді так:
@Text[1].Load Filename
$D=@Dialog.Ask Що шукати?
$C=@Text[1].Count
$I=0
%Start
$I=$I+1
$Line=@Text[1].Line[$I]
$L=@Calc Pos("$D","$Line")
@if $L>0 then @Break Знайдено в рядку $I
@if $I<$Line then @Goto %Start
@Break Не знайдено

Дякую. Працює. Але знов наткнувся на підводні камні.
якщо значення в рядку містить лапки не шукає. наприклад значення: "Маринич Маргарета Ілешівна" "ЗК 037471" "1"
Вийшов з проблеми за допомогою функції @ReplaceChar. Здається все працює.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 08 авг 2020 09:19 
Гуру
Гуру
Аватара пользователя

Зарегистрирован:
22 сен 2007 16:09
Сообщения: 382
Откуда: м.Львiв
fendak писал(а):
ну тоді так:
@Text[1].Load Filename
$D=@Dialog.Ask Що шукати?
$C=@Text[1].Count
$I=0
%Start
$I=$I+1
$Line=@Text[1].Line[$I]
$L=@Calc Pos("$D","$Line")
@if $L>0 then @Break Знайдено в рядку $I
;@if $I<$Line then @Goto %Start
@if $I<$C then @Goto %Start
@Break Не знайдено

; ;) трошки пiдправив код Миколи (з While буде правильнiше, з точки зору, коли I бiльше C, або С=0)
@Text[1].Load Filename
$D=@Dialog.Ask Що шукати?
$C=@Text[1].Count
$I=1
@While $I<=$C %LoopC
$Line=@Text[1].Line[$I]
$L=@Calc Pos("$D","$Line")
@if $L>0 then @Break Знайдено в рядку $I
$I=$I+1
%LoopC
@Break Не знайдено

_________________
Більшість хороших програмістів виконують свою роботу не тому, що очікують оплати або визнання, а тому, що отримують задоволення від програмування.


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 08 авг 2020 11:06 
Гуру
Гуру

Зарегистрирован:
05 апр 2012 10:20
Сообщения: 797
Откуда: Львівська область
Взагалі-то, $I>$C ніколи не може бути, бо в останньому рядку прописано
@if $I<$C then @Goto %Start
Тому завжди коли $I=$C, скрипт завершуватиме роботу.

А для нуля (коли користувач вибрав пустий файл) є окремий код для попередження про це:
@if $C=0 then @Break Текстовий файл порожній.
Хоч для випадку petrogeo - це дуже малоймовірно. Бо людина в цьому розбирається. Якщо б це був універсальних скрипт для усіх, починаючи від початківців, то додав би зразу цю перевірку, чи вибраний текстовий файл не є порожнім.

Ви просто звикли до іншої мови програмування. Для вас зручніше @While використовувати. Бо ви вчилися за таким принципом писати код.
А мені значно зручніше, коли в коді є логіка вигляду "якщо" --> "то". І коли все видно в детялях, а не зашифровано у різні узальнюючі функції, які позначають цикли.

_________________
додатково про скрипти Digitals на www.digitals.at.ua


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 10 авг 2020 23:44 
Гуру
Гуру
Аватара пользователя

Зарегистрирован:
22 сен 2007 16:09
Сообщения: 382
Откуда: м.Львiв
fendak писал(а):
Взагалі-то, $I>$C ніколи не може бути, бо в останньому рядку прописано
@if $I<$C then @Goto %Start
I>C буде ще до останнього рядка пiсля iдентифiкатора %Start, i вiдповiдно наступнi рядки до перевiрки значення будуть викликати помилку.

fendak писал(а):
А для нуля (коли користувач вибрав пустий файл) є окремий код для попередження про це:
@if $C=0 then @Break Текстовий файл порожній.
Цього в кодi немає, а вибрати пустий файл може кожен, i з оператором @While (як видно з коду) не потрiбно нiчого перевiряти, просто буде перехiд на рядок за циклом.

fendak писал(а):
Ви просто звикли до іншої мови програмування. Для вас зручніше @While використовувати. Бо ви вчилися за таким принципом писати код.
Я, взагалi, теж за освiтою iнженер-землевпорядник, i вчився писати на мовi GW BASIC, потiм сpp, delphi, js i т.д. I коли менi роблять слушнi зауваження (на форумах, чи деiнде), я до них прислухаюся i роблю якiсь висновки. А Вам, якщо щось напишеш, це сприймається, як образа. Перепрошую, якщо щось не так я сказав чи написав, але може комусь iншому це знадобиться.

_________________
Більшість хороших програмістів виконують свою роботу не тому, що очікують оплати або визнання, а тому, що отримують задоволення від програмування.


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 11 авг 2020 08:39 
Гуру
Гуру

Зарегистрирован:
05 апр 2012 10:20
Сообщения: 797
Откуда: Львівська область
Руслан Пархуць писал(а):
I>C буде ще до останнього рядка пiсля iдентифiкатора %Start, i вiдповiдно наступнi рядки до перевiрки значення будуть викликати помилку.

це неправда
бо щоб $I було більше за $C скрипт по циклу має повернутися на мітку %Start. А він цього не може зробити, оскільки єдиною умовою повернення є @if $I<$C. Як тільки $I буде дорівнювати $C, то скрипт зупинить роботу і більше на мітку %Start не піде.
Руслан Пархуць писал(а):
Я, взагалi, теж за освiтою iнженер-землевпорядник, i вчився писати на мовi GW BASIC, потiм сpp, delphi, js i т.д. I коли менi роблять слушнi зауваження (на форумах, чи деiнде), я до них прислухаюся i роблю якiсь висновки. А Вам, якщо щось напишеш, це сприймається, як образа. Перепрошую, якщо щось не так я сказав чи написав, але може комусь iншому це знадобиться.

Бо ви:
а) чіпляєтеся до всяких дурниць;
б) намагаєтеся вказати іншим, що вони тупіші за вас

Вчіться поважати думку інших. Не все має бути завжди по-вашому.

Скрипт писався нашвидкоруч. Я йоно навіть не перевіряв, як працює. Допустив невелику технічну помилку. Але той, кому він адресувався сам її виправив. І не було ніяких проблем. Аж тут знайшлися ви, такий розумний і вирішили блиснути своїм розумом.

В цьому варіанті скрипт працюватиме нормально без ваших $While:

@Text[1].Load Filename
$D=@Dialog.Ask Що шукати?
$C=@Text[1].Count
@if $C=0 then @Break Текстовий файл порожній
$I=0
%Start
$I=$I+1
$Line=@Text[1].Line[$I]
$L=@Calc Pos("$D","$Line")
@if $L>0 then @Break Знайдено в рядку $I
@if $I<$C then @Goto %Start
@Break Не знайдено

_________________
додатково про скрипти Digitals на www.digitals.at.ua


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 741 ]  На страницу Пред.  1 ... 37, 38, 39, 40, 41, 42, 43 ... 50  След.

Часовой пояс: UTC + 2 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: Majestic-12 [Bot] и гости: 106


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB