Аналитика

Цифровая фотограмметрия, картография и землеустройство
Текущее время: 25 фев 2020 19:55

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




Начать новую тему Ответить на тему  [ Сообщений: 1238 ]  На страницу Пред.  1 ... 59, 60, 61, 62, 63, 64, 65 ... 83  След.
Автор Сообщение
 Заголовок сообщения: Re: Запрос на функцию
СообщениеДобавлено: 06 окт 2014 10:50 
Гуру
Гуру

Зарегистрирован:
27 июл 2011 08:37
Сообщения: 170
Откуда: м.Рівне
Користуйся умовними знаками. Файл з прикладом прикріпляю.


Вложения:
.dmf [27.32 Кб]
Скачиваний: 342
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Запрос на функцию
СообщениеДобавлено: 06 окт 2014 13:50 
Специалист
Специалист

Зарегистрирован:
14 сен 2007 19:22
Сообщения: 44
:) Пройденый этап. В некоторых случаях при острых углах, и мелких масштабах выдает очень некрасивую картинку


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Запрос на функцию
СообщениеДобавлено: 10 окт 2014 10:31 
Гуру
Гуру

Зарегистрирован:
06 июн 2010 06:35
Сообщения: 697
Откуда: Ліспроект Володимир Вовчанський
Мушу підняти наступне питання щодо скриптових функцій:

1) край як треба додати до функції @Map.SetProperties Scale Name|FrameX[1] FrameY[1]|... параметр KeepSizeSignatures - зберегти розмір підписів (0 - не зберігати розмір підписів при зміні масштабу карти; 1 - зберігати розмір підписів при зміні масштабу карти) Обгрунтування необхідності приводив тут;

2) прошу додати обробку події "З'єднати" (%Events.OnJoin) та обробку події "Об'єднати" (%Events.OnMerge), при чому значення @EventObject - номер новоствореного в результаті з'єднання чи об'єднання об'єкта.

Дякую розробникам за вдосконалення функціоналу.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Запрос на функцию
СообщениеДобавлено: 13 окт 2014 14:50 
Гуру
Гуру

Зарегистрирован:
05 апр 2012 10:20
Сообщения: 669
Откуда: Львівська область
В мене виникла проблема в роботі з програмою Digitals.

Реєстратор вимагає, щоб код форми власності залишати пустим. Тобто, замість цього
Код:
              <OwnershipInfo>
                <Code>100</Code>


має бути це
Код:
              <OwnershipInfo>
                <Code></Code>


Але в програмі Digitals не передбачена можливість залишати рядок з кодом форми власності пустим, тому доводиться весь час відкривати обмінний файл XML в текстовому редакторі і видялати це вручну вже після формування XML

Пробував міняти маску параметру, замінивши 100 Приватна власність|200 Комунальна власність|300 Державна власність на |100 Приватна власність|200 Комунальна власність|300 Державна власність (в тому числі і у файлі Normal), але при збереженні XML все одно повертається значення 100 Приватна власність. Прохання це виправити.

Також пробував видаляти форму власності за допомогою скрипту:
Код:
@Text[1].Load D:\тест скриптів\4621283300020010137.xml
$XML=@Text[1].Text
$XML=@Calc Replace("$XML","<Code>100</Code>","<Code></Code>",1,0)
$XML=@DequoteText $XML
@Text[1].Clear
@Text[1].Add $XML
@Text[1].Save D:\тест скриптів\4621283300020010137.xml


але очевидно текст надто довгий і скрипт не справляється

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


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Запрос на функцию
СообщениеДобавлено: 13 окт 2014 19:42 
Гуру
Гуру

Зарегистрирован:
06 июн 2010 06:35
Сообщения: 697
Откуда: Ліспроект Володимир Вовчанський
fendak писал(а):
...Також пробував видаляти форму власності за допомогою скрипту:
Код:
@Text[1].Load D:\тест скриптів\4621283300020010137.xml
$XML=@Text[1].Text
$XML=@Calc Replace("$XML","<Code>100</Code>","<Code></Code>",1,0)
$XML=@DequoteText $XML
@Text[1].Clear
@Text[1].Add $XML
@Text[1].Save D:\тест скриптів\4621283300020010137.xml


але очевидно текст надто довгий і скрипт не справляється

Та ні, не так. А ось так:
Код:
@Text.Load D:\тест скриптів\4621283300020010137.xml
$Space=@Calc Char(32)
$Space=@DequoteText $Space
$StrFind=<Code>100</Code>
$Spaces=
%Start
$NumLin=@Text.IndexOf $StrFind
@If $NumLin<>0 then @Goto %End
$StrFind=@Concat $Space,$StrFind
$Spaces=@Concat $Spaces,$Space
@Goto %Start
%End
$ReplaceString=$Spaces<Code></Code>
@Text.Line[$NumLin]=$ReplaceString
@Text.Save D:\тест скриптів\4621283300020010137.xml
@Dialog.Message Виконано


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Запрос на функцию
СообщениеДобавлено: 13 окт 2014 21:10 
Гуру
Гуру

Зарегистрирован:
05 апр 2012 10:20
Сообщения: 669
Откуда: Львівська область
voha писал(а):
Та ні, не так. А ось так

Круто. Правда я не зрозумів, як воно працює. Взагалі що означають функції String(x) Char(x) Ascii(s) Eval(f) ? Буду вдячний, якщо скажете, де можна знайти їх опис.

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


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Запрос на функцию
СообщениеДобавлено: 13 окт 2014 21:20 
Гуру
Гуру

Зарегистрирован:
06 июн 2010 06:35
Сообщения: 697
Откуда: Ліспроект Володимир Вовчанський
fendak писал(а):
...Взагалі що означають функції String(x) Char(x) Ascii(s) Eval(f) ? Буду вдячний, якщо скажете, де можна знайти їх опис.
Тут, і тут. За функцію Char - тут.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Запрос на функцию
СообщениеДобавлено: 13 окт 2014 21:45 
Гуру
Гуру

Зарегистрирован:
05 апр 2012 10:20
Сообщения: 669
Откуда: Львівська область
voha писал(а):
Тут, і тут. За функцію Char - тут.


Про деякі функції там написано і я цим давно користуюся, але про вище згадані практично опису немає. Очевидно для цього треба вже бути програмістом в Delfi. І шукати, що означає boolean (1/0): Logic(x) numeric: Numeric(s) string: String(x) char: Char(x) integer: Ascii(s)

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


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Запрос на функцию
СообщениеДобавлено: 13 окт 2014 21:57 
Гуру
Гуру

Зарегистрирован:
06 июн 2010 06:35
Сообщения: 697
Откуда: Ліспроект Володимир Вовчанський
fendak писал(а):
...Очевидно для цього треба вже бути програмістом в Delfi...
Чом зразу в Delphi, можна й тут :D


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Запрос на функцию
СообщениеДобавлено: 13 окт 2014 22:06 
Гуру
Гуру

Зарегистрирован:
05 апр 2012 10:20
Сообщения: 669
Откуда: Львівська область
voha писал(а):
Чом зразу в Delphi, можна й тут :D


Зрозумів. Дякую.

Правда, при роботі цього скрипту виникла одна проблемка. Якщо у файлі замість коду 100 стоїть 200 чи 300, або взагалі вже видалений код, тоді функція летить у безмежність нашого неосяжного всесвіту, забираючи з собою ресурси моєї оперативки)). Як би поставити на такі випадки обмеження?

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


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Запрос на функцию
СообщениеДобавлено: 13 окт 2014 22:23 
Гуру
Гуру

Зарегистрирован:
06 июн 2010 06:35
Сообщения: 697
Откуда: Ліспроект Володимир Вовчанський
fendak писал(а):
...Як би поставити на такі випадки обмеження?
В циклі поставте лічильник, обмеження його числом,.припустимо 100. Якщо 100 - рядка не знайдено, вихід зі скрипта.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Запрос на функцию
СообщениеДобавлено: 15 окт 2014 15:58 
Гуру
Гуру

Зарегистрирован:
06 июн 2010 06:35
Сообщения: 697
Откуда: Ліспроект Володимир Вовчанський
voha писал(а):
2) прошу додати обробку події "З'єднати" (%Events.OnJoin) та обробку події "Об'єднати" (%Events.OnMerge), при чому значення @EventObject - номер новоствореного в результаті з'єднання чи об'єднання об'єкта.
Обробка цих подій додана розробниками у версії 15.10.14. Чемно дякую.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Запрос на функцию
СообщениеДобавлено: 27 окт 2014 08:39 
Эксперт
Эксперт

Зарегистрирован:
21 мар 2013 14:12
Сообщения: 94
Міцного здоров'я всім!

Повертаючись до проблеми ствОрових точок, та втрати дочірніх елементів XML-файлу viewtopic.php?p=15603#15603 хотів би висловити наступне прохання до розробників.
На даний момент часу користуємось "Выравнивание"->"Перемещать только ближайшие точки", не забуваючи виставити "Свойства карты"->"Точность координат"->"Макс". Та в ручному режимі послідовно вказуючи створи між точками шару XML-Ділянки.
Прохання полягає в тому, аби автоматизувати дану процедуру через застосування скриптів. Тобто, нова функція (нехай OrderingChildElements ObjectName Accuracy) починаючи з початкової точки об'єкту послідовно проводило операції "Выравнивание"->"Перемещать только ближайшие точки" із заданою точністю, наприклад 5 мм. (Точність - максимальне значення відхилення від створу).

Дякую за увагу.


UPD. Панове розробники, напишіть, чи хоча б будете пробувати вирішити вищеописане прохання. Оскільки виникає потреба певної масової обробки XML, шляхом послідовного відкриття та перезбереження файлів.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Запрос на функцию
СообщениеДобавлено: 28 окт 2014 14:39 
Участник
Участник

Зарегистрирован:
30 сен 2013 08:47
Сообщения: 2
Пупкин писал(а):
Міцного здоров'я всім!

Повертаючись до проблеми ствОрових точок, та втрати дочірніх елементів XML-файлу viewtopic.php?p=15603#15603 хотів би висловити наступне прохання до розробників.
На даний момент часу користуємось "Выравнивание"->"Перемещать только ближайшие точки", не забуваючи виставити "Свойства карты"->"Точность координат"->"Макс". Та в ручному режимі послідовно вказуючи створи між точками шару XML-Ділянки.
Прохання полягає в тому, аби автоматизувати дану процедуру через застосування скриптів. Тобто, нова функція (нехай OrderingChildElements ObjectName Accuracy) починаючи з початкової точки об'єкту послідовно проводило операції "Выравнивание"->"Перемещать только ближайшие точки" із заданою точністю, наприклад 5 мм. (Точність - максимальне значення відхилення від створу).

Дякую за увагу.


UPD. Панове розробники, напишіть, чи хоча б будете пробувати вирішити вищеописане прохання. Оскільки виникає потреба певної масової обробки XML, шляхом послідовного відкриття та перезбереження файлів.


Аналогічна проблема, коли буде вирішення?


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Запрос на функцию
СообщениеДобавлено: 29 окт 2014 08:53 
Специалист
Специалист

Зарегистрирован:
10 сен 2013 07:08
Сообщения: 19
Пупкин писал(а):
Повертаючись до проблеми ствОрових точок.............................

Дане питання постійно актуальне в Digitals. По реакції розробників на це повідомлення, видно, що або форум не читають, або не можуть це зробити.
Щось таке)
Дістало переробляти xml-файли (наприклад, лісгосп) підтягуючи до межі декілька сотень угідь!


Вернуться к началу
 Профиль Отправить email  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 1238 ]  На страницу Пред.  1 ... 59, 60, 61, 62, 63, 64, 65 ... 83  След.

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


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

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 7


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

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