Аналитика

Цифровая фотограмметрия, картография и землеустройство
Текущее время: 12 дек 2018 03:40

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




Начать новую тему Ответить на тему  [ Сообщений: 1171 ]  На страницу Пред.  1 ... 73, 74, 75, 76, 77, 78, 79  След.
Автор Сообщение
 Заголовок сообщения: Re: Запрос на функцию
СообщениеДобавлено: 18 янв 2018 09:10 
Гуру
Гуру

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 1983
Откуда: Vinnitsa
Схожий скрипт зробив 2 дні тому. В буфер обміну копіюється табульований список(в ексель зручно вставляти) з кадномеру, назви власника, площі та назви виконавця робіт
Код:
@Text[1].Clear
$Tab=@Calc char(9)
$Tab=@DequoteText $Tab
$MC=@Map.Count
$I=0
%Loop
$I=$I+1
$LID=@Map.Object[$I].LayerID
@if $LID<>70005 then @Goto %Ignore
$ParcelNum=@Map.Object[$I].Parameter[ID7000513]
$CadZoneNum=@Map.Object[$I].CalculateFormula Parent[ID7000301](ID70003)
$CadQuarterNum=@Map.Object[$I].CalculateFormula Parent[ID7000401](ID70004)
$FullCadNum=@Concat $CadZoneNum,:,$CadQuarterNum,:,$ParcelNum
$Area=@Map.Object[$I].Parameter[ID7000516]
$Area=%Library.ReplaceComma $Area
$Executor=@Map.Object[$I].CalculateFormula Parent[ID7000007](ID70000)
$ExecutorNM=@XML.XPath CompanyName $Executor
$S=@Map.Object[$I].Parameter[ID7000520]
$PrCount=@XML.NodeCount /Proprietors ProprietorInfo $S
$Res=
@if $PrCount<1 then @Goto %IgnoreProp
$J=0
%LoopProp
$J=$J+1
@if $J>1 then $Res=$Res|
$IsLE=@XML.NodeCount /Proprietors/ProprietorInfo[$J]/Authentication LegalEntity $S
@if $IsLE=1 then @Goto %LE
$LN=@XML.XPath /Proprietors/ProprietorInfo[$J]/Authentication/NaturalPerson/FullName/LastName $S
$FN=@XML.XPath /Proprietors/ProprietorInfo[$J]/Authentication/NaturalPerson/FullName/FirstName $S
$MN=@XML.XPath /Proprietors/ProprietorInfo[$J]/Authentication/NaturalPerson/FullName/MiddleName $S
$Res=$Res$LN $FN $MN
@Goto %NextProp
%LE
$LEName=@XML.XPath /Proprietors/ProprietorInfo[$J]/Authentication/LegalEntity/Name $S
$Res=$Res$LEName
%NextProp
@if $J<$PrCount then @Goto %LoopProp
$ResS=@Concat $FullCadNum,$Tab,$Res,$Tab,$Area,$Tab,$ExecutorNM
@Text[1].Add $ResS
%Ignore
@if $I<$MC then @Goto %Loop
@Text[1].Copy

_________________
Команда разработчиков Digitals
(наш e-mail и ICQ находятся в меню Помощь|О программе)
Новичкам сюда | Новые возможности программы | Купить Digitals


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

Зарегистрирован:
05 апр 2012 10:20
Сообщения: 570
-Ivan- писал(а):
Доброго дня! Підскажіть будь-ласка, як з відкритих обмінників сторити список з кад. номером, ПІБ, адресою і площею по всіх файлах.


також зробив такий скрипт

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


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

Зарегистрирован:
02 мар 2017 10:02
Сообщения: 15
Дякую всім хто відгукнувся, особливо Вам fendak :D


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

Зарегистрирован:
05 апр 2012 10:20
Сообщения: 570
Якщо використовувати скрипти для зміни масштабу карти:
@SendChars 100<CR>
[ panTools.Властивості карти ]

То мінімальний масшстаб, який підтримується таким чином - 500. Коли ставити 100 чи 200 - функція не працює.

Альтернативна функція @Map.SetProperties Scale міняє масшстаб на 100. Але вона не підходить по тій причині, що міняючи масштаб шаблонів dmt, вона не фіксує розмір умовних знаків та підписів.

Тому прохання до розробників, якщо не вийде поправити перший варіант, чи не можна додати нову функцію @Map.SetScale FixText FixSymbols, яка б міняла масшстаб карти із можливістю включати/відключати опції "Зберегти розмір підписів", "Фіксувати УЗ"?

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


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Запрос на функцию
СообщениеДобавлено: 23 янв 2018 12:53 
Гуру
Гуру
Аватара пользователя

Зарегистрирован:
22 сен 2007 16:09
Сообщения: 262
Откуда: м.Львiв
fendak писал(а):
Якщо використовувати скрипти для зміни масштабу карти:
@SendChars 100<CR>
[ panTools.Властивості карти ]

То мінімальний масшстаб, який підтримується таким чином - 500. Коли ставити 100 чи 200 - функція не працює.

$Scale=100
@SendChars $Scale<32><CR>

_________________
Простіше написати неправильну програму, ніж зрозуміти правильну


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

Зарегистрирован:
05 апр 2012 10:20
Сообщения: 570
дякую, працює

та дана функція все одно б не була зайвою, бо нема контролю скриптами за тими галочками по умовних знаках та розмірах тексту

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


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

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 1983
Откуда: Vinnitsa
fendak писал(а):
дякую, працює

та дана функція все одно б не була зайвою, бо нема контролю скриптами за тими галочками по умовних знаках та розмірах тексту

По умовних знаках є функція @Map.Symbols.Rescale Coefficient

_________________
Команда разработчиков Digitals
(наш e-mail и ICQ находятся в меню Помощь|О программе)
Новичкам сюда | Новые возможности программы | Купить Digitals


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Запрос на функцию
СообщениеДобавлено: 20 фев 2018 23:30 
Специалист
Специалист

Зарегистрирован:
14 сен 2007 19:22
Сообщения: 43
Извините, может я не нашел, есть ли скриптовые функции по работе с файлами (перемещение, копирование, удаление)


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

Зарегистрирован:
05 апр 2012 10:20
Сообщения: 570
переміщувати файли напряму функцією нема можливості. Можна відкрити файл в програмі, зберегти його в інше місце, а оригінал потім видалити. Це скрипти дозволяють зробити.

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

Для видалення файлів чи папок є прямі функції.

Функції, які стосуются файлів та папок можете переглянути тут

Якщо мова йде про текстові файли, то перегляньте таку групу функцій

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


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

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 1983
Откуда: Vinnitsa
Є ще функція @Run, вона дозволяє запустити exe-файл

;Копіювання файлів виглядає так:
@Run copy d:\log.txt d:\log.old

;Видалення файлів
@Run del d:\*.bak

;Створення директорії
@Run md "C:\Program files\New folder"

P.S. Усі шляхи, які містять пробіл, мають бути обернуті у лапки

_________________
Команда разработчиков Digitals
(наш e-mail и ICQ находятся в меню Помощь|О программе)
Новичкам сюда | Новые возможности программы | Купить Digitals


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

Зарегистрирован:
21 дек 2012 16:33
Сообщения: 105
Можно ли добавить пару кнопок (сохранить как все), по принципу проги DipEdit.


Вложения:
.jpg
.jpg [ 50.73 Кб | Просмотров: 2026 ]
.jpg
.jpg [ 45.94 Кб | Просмотров: 2026 ]
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Запрос на функцию
СообщениеДобавлено: 24 мар 2018 01:14 
Гуру
Гуру
Аватара пользователя

Зарегистрирован:
22 сен 2007 16:09
Сообщения: 262
Откуда: м.Львiв
Артем Сорокін писал(а):
Можно ли добавить пару кнопок (сохранить как все), по принципу проги DipEdit.

Можна за допомогою скрипта щось подiбне органiзувати

_________________
Простіше написати неправильну програму, ніж зрозуміти правильну


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Запрос на функцию
СообщениеДобавлено: 28 май 2018 15:25 
Гуру
Гуру

Зарегистрирован:
06 июн 2010 06:35
Сообщения: 646
Откуда: Ліспроект
Доброго дня шановним розробникам.

У мене питання: чи можна додати скриптову функцію, яка б повертала значення координати Z точки карти з відомими координатами X та Y? Як варіант можна створити точковий об'єкт і перепризначити йому висоту з точок інших об'єктів карти :oops: , але ж у рядку стану - так легко відображується поточна висота з курсора!


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

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 1983
Откуда: Vinnitsa
voha писал(а):
Доброго дня шановним розробникам.

У мене питання: чи можна додати скриптову функцію, яка б повертала значення координати Z точки карти з відомими координатами X та Y? Як варіант можна створити точковий об'єкт і перепризначити йому висоту з точок інших об'єктів карти :oops: , але ж у рядку стану - так легко відображується поточна висота з курсора!

Функція @Map.CalculateZ X Y повертає висоту точки у форматі координат, аргументи - планові координати. У разі помилки повертає значення "0".
Нова версія програми

_________________
Команда разработчиков Digitals
(наш e-mail и ICQ находятся в меню Помощь|О программе)
Новичкам сюда | Новые возможности программы | Купить Digitals


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

Зарегистрирован:
06 июн 2010 06:35
Сообщения: 646
Откуда: Ліспроект
Dmitry_Zolotar писал(а):
Функція @Map.CalculateZ X Y повертає висоту точки у форматі координат, аргументи - планові координати. У разі помилки повертає значення "0"
Чемно дякую за підтримку.


Вернуться к началу
 Профиль Отправить email  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 1171 ]  На страницу Пред.  1 ... 73, 74, 75, 76, 77, 78, 79  След.

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


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

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


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

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