Аналитика

Цифровая фотограмметрия, картография и землеустройство
Текущее время: 23 ноя 2017 16:46

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




Начать новую тему Ответить на тему  [ Сообщений: 161 ]  На страницу Пред.  1 ... 3, 4, 5, 6, 7, 8, 9 ... 11  След.
Автор Сообщение
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 25 ноя 2014 12:04 
Гуру
Гуру

Зарегистрирован:
05 апр 2012 10:20
Сообщения: 470
Скрипт працює з функцією Вставка-Проміри і схема, і вставляє її, автоматично підтверджуючи.
Але зверніть увагу, що якщо Ви перед цим користувалися цією функцією і замість Промірів використовували Схему вимірів, то вам перед запуском скрипту необхідно знову виставити функцію на Проміри.

І при цьому запустити функцію, а не просто вибрати, щоб вона обновилася.
Тобто, малюєте два об'єкти і створюєте проміри-проміри/тільки до видимих-ОК

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


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 17 мар 2015 14:39 
Эксперт
Эксперт

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

Сподіваюсь, що даний скрипт таки буде корисним.
Допомагає працювати із текстовими файлами, знаходячи відповідні значення.
Конкретніше.

Маємо \Path\Файл.txt наступного вмісту:

Стовпчик1 Стовпчик2 Стовпчик3 СтовпчикN+1

Значення11 Значення21 Значення31 ..............
Значення12 Значення22 Значення32 ..............
Значення13 Значення23 Значення33 ..............
Значення1+N Значення2+N Значення3+N ..............

Нехай значенням Параметра1 об'єкта карти є величина "Значення13" (наприклад - Нська сільська рада, що міститься у файлі Файл.txt). А нам необхідно передати у Параметр2, нехай цього ж об'єкту, значення КОАТУУ, котре теж міститься у Файл.txt, відповідно у "Значення33".

------------Зберігаємо нижченаведене, як бібліотеку d:\Digitals\Library\Назва.dsf-----------------
;---Const----------------------------------------------
$Tab=@Calc Char(9)
$Tab=@DequoteText $Tab
$ProgramFolder=@ProgramFolder
;---InputData--------------------------------------------
$InputValue=$PARAMETERS
$ListName=@StringPart 1,$InputValue
$ColumnNumb=@StringPart 2,$InputValue
$FindWhat=@StringPart 3,$InputValue
$ResColumnNumb=@StringPart 4,$InputValue
;---Find&Result-----------------------------------------------
$List=@Text[1].Load $ProgramFolder\Lists\$ListName.txt
$ListCount=@Text[1].Count
$i=2
%Begin
$Line=@Text[1].Line[$i]
$ListElement=@StringPart $ColumnNumb$Tab$Line
@If $FindWhat=$ListElement then @Goto %Find
$i=$i+1
@If $i<=$ListCount then @Goto %Begin
%Find
$OutValue=@StringPart $ResColumnNumb$Tab$Line
$RESULT=$OutValue
-------------------------Кінець бібліотеки-------------

А у тілі основного скрипту пишемо:
-------------------------------------
$FindWhat=Нська сільська рада
$FindValue=%Library.Назва Файл,1,$FindWhat,3
@Map.Object[N].Parameter[N]=$FindValue
-------------------------------------
Файл - назва текстового файлу (без розширення);
1 - номер стовпця текстового файлу, у котрому знаходиться значення, на основі якого будемо шукати (на прикладі - Нська сільська рада);
$FindWhat - відповідно, саме значення, на основі котрого шукатимемо;
3 - номер стовпця у текстовому файлі, де знаходиться саме потрібне нам значення (на прикладі - КОАТУУ).

Бібліотека працюватиме тільки з табульованими списками, тобто розділювач стовпчиків - tab (дев'ять пробілів).

Дякую.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 13 май 2015 13:47 
Специалист
Специалист

Зарегистрирован:
18 июл 2011 09:16
Сообщения: 25
Скачал обновления и прочитал, что добавили интересную функцию "@Map.CreateLayout". Сначала попробовал сам разобраться, но выдавало мне чистый лист. Нашел на форуме пример использования этой функции, тоже самое, формирует пустой лист. Может что делаю не так?
Пример:
$SO=@Map.SelectedObject
@if $SO=0 then @Break Нужно пометить объект
$X=@Map.Object[$SO].Parameter[-4]
$Y=@Map.Object[$SO].Parameter[-3]
$PP=@ProgramPath
$FN=$PP\Pictures\Викопіювання.bmp
@Map.CreateLayout $X $Y 605 605 0 300 8 $FN
@Run $FN

А в "сервис\документы" - вообще такой функции или шаблона не нашел.
После обновления в папке "С:\Digitals\Update\Templates" - пусто, "С:\Digitals\Update\Favorites" - пусто. То-есть: никаких шаблонов скачано не было!


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 13 май 2015 16:00 
Гуру
Гуру

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 1865
Откуда: Vinnitsa
Скачайте шаблоны из сообщения. Поместите их в папку Digitals\Templates
Автоматическое обновление не затрагивает карты/шаблоны/справочники. Исключения: datums.ini и xmlnormal.dmf

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


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 15 май 2015 08:10 
Эксперт
Эксперт

Зарегистрирован:
01 фев 2013 17:16
Сообщения: 59
Доброго дня. Из какого сообщения скачивать? по сылке только скрипт. Или я чего то не понимаю?

Сори все получилось!!!!


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 07 сен 2015 09:46 
Специалист
Специалист

Зарегистрирован:
04 май 2011 13:47
Сообщения: 38
Доброго всім дня! У когось є скрипт для заповнення шару "Обмеження". Якщо є змога, то поділіться :)


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 09 сен 2015 10:22 
Эксперт
Эксперт

Зарегистрирован:
09 сен 2014 19:26
Сообщения: 97
sirenko_s_a Спробуйте цей.

;ОБМЕЖЕННЯ
$KolObmez=@Map.SelectLayer ID70008
@if $KolObmez=0 then @Break На земельній ділянці обмеження відсутні
$MC=@Map.Count
@Map.DeselectAll
$I=0
%Loop
$I=$I+1
;Знаходимо ID шару
$LID=@Map.Object[$I].LayerID
@if $LID<>70008 then @Goto %Continue
@Map.SelectObject $I
Вид | Показать помеченные
;Вибір параметрів
$Tip=@Dialog.Select Вкажіть тип обмеження|ЛЕП|Прибережні захисні смуги вздовж річок, навколо водойм та на островах|...
@if $Tip=ЛЕП then @goto %LEP
@if $Tip=Прибережні захисні смуги вздовж річок, навколо водойм та на островах then @goto %Voda
%LEP
@Map.Selected.SetParameter 83 01.05 Охоронна зона навколо (вздовж) об’єкта енергетичної системи
@Map.Selected.SetParameter 84 Охоронна зона навколо (вздовж) об’єкта енергетичної системи
@Map.Selected.SetParameter 86 <RestrictionEntitlement><DocumentType>01</DocumentType><DocumentName>Закон України "Про землі енергетики та правовий режим спеціальних зон енергетичних об'єктів"</DocumentName><DocumentDate>2010-07-09</DocumentDate></RestrictionEntitlement>
@Map.Selected.SetParameter 87 <RestrictionTerm><Permanent/></RestrictionTerm>
@Map.Selected.SetParameter 91 <Payment><Free/></Payment>
@Dialog.Message Для виділеного об'єкта вибрано тип обмеження:"$Tip"
@goto %konecobmez
%Voda
@Map.Selected.SetParameter 83 05.02 Прибережні захисні смуги вздовж річок, навколо водойм та на островах
@Map.Selected.SetParameter 84 Прибережні захисні смуги вздовж річок, навколо водойм та на островах
@Map.Selected.SetParameter 86 <RestrictionEntitlement><DocumentType>01</DocumentType><DocumentName>Водний кодекс</DocumentName><DocumentDate>1995-07-06</DocumentDate></RestrictionEntitlement>
@Map.Selected.SetParameter 87 <RestrictionTerm><Permanent/></RestrictionTerm>
@Map.Selected.SetParameter 91 <Payment><Free/></Payment>
@Dialog.Message Для виділеного об'єкта вибрано тип обмеження:"$Tip"
%konecobmez
;Знімаємо помітку з об'єкту
@Map.DeselectObject $I
%Continue
@if $I<$MC then @Goto %Loop



P/s/ мова Digitals: російська


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 09 сен 2015 14:06 
Специалист
Специалист

Зарегистрирован:
04 май 2011 13:47
Сообщения: 38
Як прив`язатись до ID, бо до номеру шару дає помилку


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 09 сен 2015 14:14 
Специалист
Специалист

Зарегистрирован:
04 май 2011 13:47
Сообщения: 38
Vaho писал(а):
Скачал обновления и прочитал, что добавили интересную функцию "@Map.CreateLayout". Сначала попробовал сам разобраться, но выдавало мне чистый лист. Нашел на форуме пример использования этой функции, тоже самое, формирует пустой лист. Может что делаю не так?
Пример:
$SO=@Map.SelectedObject
@if $SO=0 then @Break Нужно пометить объект
$X=@Map.Object[$SO].Parameter[-4]
$Y=@Map.Object[$SO].Parameter[-3]
$PP=@ProgramPath
$FN=$PP\Pictures\Викопіювання.bmp
@Map.CreateLayout $X $Y 605 605 0 300 8 $FN
@Run $FN

А в "сервис\документы" - вообще такой функции или шаблона не нашел.
После обновления в папке "С:\Digitals\Update\Templates" - пусто, "С:\Digitals\Update\Favorites" - пусто. То-есть: никаких шаблонов скачано не было!


Пробував цей скрипт, працює, але чому не в кольорі створює .ВМП???


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 09 сен 2015 14:37 
Гуру
Гуру

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 1865
Откуда: Vinnitsa
sirenko_s_a писал(а):
Пробував цей скрипт, працює, але чому не в кольорі створює .ВМП???

змініть бітність растру з 8 на 24
...
@Map.CreateLayout $X $Y 605 605 0 300 24 $FN
...

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


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 09 сен 2015 15:04 
Специалист
Специалист

Зарегистрирован:
04 май 2011 13:47
Сообщения: 38
Dmitry_Zolotar писал(а):
sirenko_s_a писал(а):
Пробував цей скрипт, працює, але чому не в кольорі створює .ВМП???

змініть бітність растру з 8 на 24
...
@Map.CreateLayout $X $Y 605 605 0 300 24 $FN
...

:) Дякую!


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 09 сен 2015 15:21 
Специалист
Специалист

Зарегистрирован:
04 май 2011 13:47
Сообщения: 38
sirenko_s_a писал(а):
Як прив`язатись до ID, бо до номеру шару дає помилку

Розібрався сам. Скрипт працює


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 09 сен 2015 15:32 
Специалист
Специалист

Зарегистрирован:
04 май 2011 13:47
Сообщения: 38
sergykydr писал(а):
sirenko_s_a Спробуйте цей.

;ОБМЕЖЕННЯ
$KolObmez=@Map.SelectLayer ID70008
@if $KolObmez=0 then @Break На земельній ділянці обмеження відсутні
$MC=@Map.Count
@Map.DeselectAll
$I=0
%Loop
$I=$I+1
;Знаходимо ID шару
$LID=@Map.Object[$I].LayerID
@if $LID<>70008 then @Goto %Continue
@Map.SelectObject $I
Вид | Показать помеченные
;Вибір параметрів
$Tip=@Dialog.Select Вкажіть тип обмеження|ЛЕП|Прибережні захисні смуги вздовж річок, навколо водойм та на островах|...
@if $Tip=ЛЕП then @goto %LEP
@if $Tip=Прибережні захисні смуги вздовж річок, навколо водойм та на островах then @goto %Voda
%LEP
@Map.Selected.SetParameter 83 01.05 Охоронна зона навколо (вздовж) об’єкта енергетичної системи
@Map.Selected.SetParameter 84 Охоронна зона навколо (вздовж) об’єкта енергетичної системи
@Map.Selected.SetParameter 86 <RestrictionEntitlement><DocumentType>01</DocumentType><DocumentName>Закон України "Про землі енергетики та правовий режим спеціальних зон енергетичних об'єктів"</DocumentName><DocumentDate>2010-07-09</DocumentDate></RestrictionEntitlement>
@Map.Selected.SetParameter 87 <RestrictionTerm><Permanent/></RestrictionTerm>
@Map.Selected.SetParameter 91 <Payment><Free/></Payment>
@Dialog.Message Для виділеного об'єкта вибрано тип обмеження:"$Tip"
@goto %konecobmez
%Voda
@Map.Selected.SetParameter 83 05.02 Прибережні захисні смуги вздовж річок, навколо водойм та на островах
@Map.Selected.SetParameter 84 Прибережні захисні смуги вздовж річок, навколо водойм та на островах
@Map.Selected.SetParameter 86 <RestrictionEntitlement><DocumentType>01</DocumentType><DocumentName>Водний кодекс</DocumentName><DocumentDate>1995-07-06</DocumentDate></RestrictionEntitlement>
@Map.Selected.SetParameter 87 <RestrictionTerm><Permanent/></RestrictionTerm>
@Map.Selected.SetParameter 91 <Payment><Free/></Payment>
@Dialog.Message Для виділеного об'єкта вибрано тип обмеження:"$Tip"
%konecobmez
;Знімаємо помітку з об'єкту
@Map.DeselectObject $I
%Continue
@if $I<$MC then @Goto %Loop



P/s/ мова Digitals: російська

А як зробити щоб по кожному окремому обмеженню забивати інформацію. Бо коли вибираєш ЛЕП то присвоює ЛЕП всім існуючим обмеженням на ділянці.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 10 сен 2015 19:17 
Эксперт
Эксперт

Зарегистрирован:
09 сен 2014 19:26
Сообщения: 97
sirenko_s_a писал(а):
А як зробити щоб по кожному окремому обмеженню забивати інформацію. Бо коли вибираєш ЛЕП то присвоює ЛЕП всім існуючим обмеженням на ділянці.


Так не повино бути, десь помилка. Скиньте скрін з менеджеру шарів вашого XML.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 11 сен 2015 14:45 
Специалист
Специалист

Зарегистрирован:
04 май 2011 13:47
Сообщения: 38
sergykydr писал(а):
sirenko_s_a писал(а):
А як зробити щоб по кожному окремому обмеженню забивати інформацію. Бо коли вибираєш ЛЕП то присвоює ЛЕП всім існуючим обмеженням на ділянці.


Так не повино бути, десь помилка. Скиньте скрін з менеджеру шарів вашого XML.


Так Ви праві. Допустив помилку (@goto %konecobmez) написав два рази. Але виникла інша проблема. Коли скипт був запущений один раз, на другий раз він видає помилку


Вложения:
Image 002.jpg
Image 002.jpg [ 56.15 Кб | Просмотров: 10682 ]
Вернуться к началу
 Профиль Отправить email  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 161 ]  На страницу Пред.  1 ... 3, 4, 5, 6, 7, 8, 9 ... 11  След.

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


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

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


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

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