Аналитика

Цифровая фотограмметрия, картография и землеустройство
Текущее время: 26 апр 2024 10:35

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




Начать новую тему Ответить на тему  [ Сообщений: 1236 ]  На страницу Пред.  1 ... 7, 8, 9, 10, 11, 12, 13 ... 83  След.
Автор Сообщение
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 29 авг 2013 11:35 
Эксперт
Эксперт

Зарегистрирован:
23 ноя 2011 09:51
Сообщения: 97
Bondarets Alexander писал(а):
Создание точечных объектов в узлах полигонов и вынесение подписей точек

Скрипт не работает выдаёт ошибку((((


Вложения:
.JPG
.JPG [ 61.09 Кб | Просмотров: 11688 ]
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 29 авг 2013 11:40 
Гуру
Гуру

Зарегистрирован:
26 фев 2007 12:04
Сообщения: 1751
Откуда: Vinnitsa
Цитата:
Скрипт не работает выдаёт ошибку((((

Обновите Ged.exe

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


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

Зарегистрирован:
23 ноя 2011 09:51
Сообщения: 97
Bondarets Alexander писал(а):
Цитата:
Скрипт не работает выдаёт ошибку((((

Обновите Ged.exe

Обновил заработало, а можно как-то его усовершенствовать, чтоб префикс "т" могли сами менять в выпадающем окошке, но также интересует и суфикс.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Все про скрипти
СообщениеДобавлено: 29 авг 2013 13:40 
Гуру
Гуру

Зарегистрирован:
26 фев 2007 12:04
Сообщения: 1751
Откуда: Vinnitsa
Цитата:
Обновил заработало, а можно как-то его усовершенствовать, чтоб префикс "т" могли сами менять в выпадающем окошке, но также интересует и суфикс.

Покажите пример своей нумерации.

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


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Все про скрипти
СообщениеДобавлено: 29 авг 2013 15:59 
Эксперт
Эксперт

Зарегистрирован:
23 ноя 2011 09:51
Сообщения: 97
Bondarets Alexander писал(а):
Цитата:
Обновил заработало, а можно как-то его усовершенствовать, чтоб префикс "т" могли сами менять в выпадающем окошке, но также интересует и суфикс.

Покажите пример своей нумерации.

Как-то так))


Вложения:
.JPG
.JPG [ 84.84 Кб | Просмотров: 11676 ]
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Все про скрипти
СообщениеДобавлено: 29 авг 2013 16:41 
Гуру
Гуру

Зарегистрирован:
26 фев 2007 12:04
Сообщения: 1751
Откуда: Vinnitsa
Доработал скрипт, префикс и суффикс теперь задаются в диалоговом окне viewtopic.php?p=16602&f=1#16602

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


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Все про скрипти
СообщениеДобавлено: 30 авг 2013 08:46 
Эксперт
Эксперт

Зарегистрирован:
23 ноя 2011 09:51
Сообщения: 97
Bondarets Alexander писал(а):
Доработал скрипт, префикс и суффикс теперь задаются в диалоговом окне viewtopic.php?p=16602&f=1#16602

СПАСИБОЧКИ очень нужный скрипт :D


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

Зарегистрирован:
03 июн 2013 12:13
Сообщения: 26
Sergey Oleynik писал(а):
Поиск участка с заданным кадастровым номером
Этот скрипт легко модифицировать для быстрого поиска по другим параметрам, например по адресу и т.д.

Здравствуйте! Что то не пойму как можно модифицировать скрипт что бы искало допустим по улице и если нужно номеру дома, фамилии + кад. номеру с указанием зоны не только SC, На выбор из общей базы в файле *.dmf. что бы не закрывалось окно поиска, а если однофамилец то далее?

Заранее спасибо за помощь!


Последний раз редактировалось Ivan 08 сен 2013 11:57, всего редактировалось 1 раз.

Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Все про скрипти
СообщениеДобавлено: 31 авг 2013 14:08 
Специалист
Специалист

Зарегистрирован:
14 сен 2007 19:22
Сообщения: 46
Здравствуйте!! А кто может помочь с таким скриптом:
Есть папка с множеством in4\xml каждый тип в своей папке. нужно закинуть все эти файлы в одну карту но так чтобы в слое in4_ділянка (для in4) xml_ділянка (для xml) сохранился параметр с именем и путем к исходному файлу.

Если кто может накиньте хоть набросок скрипта плс.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Все про скрипти
СообщениеДобавлено: 01 сен 2013 00:29 
Гуру
Гуру

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 2298
Откуда: Vinnytsia
Dix писал(а):
Здравствуйте!! А кто может помочь с таким скриптом:
Есть папка с множеством in4\xml каждый тип в своей папке. нужно закинуть все эти файлы в одну карту но так чтобы в слое in4_ділянка (для in4) xml_ділянка (для xml) сохранился параметр с именем и путем к исходному файлу.

Если кто может накиньте хоть набросок скрипта плс.

;Имя файла, который будет создан скриптом на основе XMLNormal.dmf
$BaseDMFFileName=d:\base\base_in4_xml.dmf
;Путь к папке, содержащей in4
$In4Path=D:\Base\In4\
;Путь к папке, содержащей xml
$XMLPath=D:\Base\XML\
;Создаем файл на основе XMLNormal.dmf
@FileNew $BaseDMFFileName /Template=XMLNormal.dmf
;Создаем параметр, который будет содержать имя файла
$ParamNum=@Map.Parameters.Add 7000590 5 Полный путь к файлу
;Добавляем параметр в список доступных слою In4_Ділянка (ID20000)
$VP=@Map.Layers.GetValidParameters ID20000
$VP=@Map.Layers.SetValidParameters ID20000 $VP $ParamNum
;Добавляем параметр в список доступных слою XML: Земельна ділянка (ID70005)
$VP=@Map.Layers.GetValidParameters ID70005
$VP=@Map.Layers.SetValidParameters ID70005 $VP $ParamNum
;Получаем список файлов *.in4 в папке $In4Path и во вложенных
@Text[1].FolderListTree *.in4 $In4Path
;Получаем список файлов *.xml в папке $XMLPath и во вложенных
@Text[2].FolderListTree *.xml $XMLPath
;сливаем списки
$LN=0
$LC=@Text[2].Count
@if $LC<1 then @Goto %Continue
%L1
$LN=$LN+1
$S=@Text[2].Line[$LN]
@Text[1].Add $S
@if $LN<$LC then @Goto %L1
%Continue
;Проверяем кол-во файлов
$Count=@Text[1].Count
;Если файлов нет то переходим на выход
@if $Count<1 then @Goto %Exit
;Текущий номер файла
$I=0
;Начало цикла
%Loop
;Снимаем пометку с объектов карты
@Map.DeselectAll
;Увеличиваем номер текущего файла
$I=$I+1
;Получаем полный путь к текущему файлу
$FileName=@Text[1].Line[$I]
;Вставляем текущий файл в карту
;Все вставленные объекты остаются помеченными
@Map.InsertFromFile $Filename
;Вносим имя файла в созданный параметр помеченных объектов
@Map.Selected.ChangeParameter $ParamNum $FileName
;если не достигли конца списка файлов, то возвращаемся на начало цикла
@if $I<$Count then @Goto %Loop
;выход
%Exit
Вид | Показать все


P.S. Скрипт присваивает значение параметра "ID7000590 5 Полный путь к файлу" всем вставляемым объектам. Этот параметр доступен слоям "In4_Ділянка" и "XML:Земельна ділянка", но ничто не мешает добавить его в список доступных другим слоям.

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


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

Зарегистрирован:
14 сен 2007 19:22
Сообщения: 46
Спасибо большое за скрипт!! Понемногу сам начинаю разбиратmся со скриптописанием и возник вопрос по функции
@Map.In4ToXML. в описании написано: Преобразует слои и параметры из формата In4 в XML. Я так понял что значения параметров данная функция не преобразует, тогда возникает вопрос как закинуть предварительно сохраненные в скрипте данные из изначального IN4 в определенные теги преобразованного XML?
Очень нужно, а то висит над головой нарезка из 300+ паёв.
Ну или может есть какой нибудь другой вариант как пакетно сделать много файлов при условии что все паспортные данные, адреса кад номера и данные о акте есть в таблице excell


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Все про скрипти
СообщениеДобавлено: 04 сен 2013 18:08 
Эксперт
Эксперт

Зарегистрирован:
21 мар 2013 14:12
Сообщения: 94
Крепкого здоров'я всім!
Зробив спробу освоїти функцію @Map.InsertRasters .
Написав такого зразка скрипт:
==============================
@Map.SelectLayer ID1000004
$Count=@Map.SelCount
$i=1
[ Параметры.Первый ]
%metka1
$Value=@Map.Selected.GetParameter 85
$Value=$Value.tif
@Map.InsertRasters d:\attempt\$Value
$i=$i+1
@if $i>$Count then @Break completed
[ Параметры.Следующий ]
@goto metka1
===============================
Описую людською мовою. Є певний замкнутий контур (скажімо територія ради, району, тощо...) тиснемо ОРТО|Нарезать по листам отримуємо рамки знімків із значенням номенклатури, що міститься в параметрі 85 (@Map.Selected.GetParameter 85). Додаємо розширення до імені файлу та вказуємо у якій папці шукати знімок (відповідно й файл прив'язки).
В результаті очікую завантаження всіх знімків, котрі необхідні для покриття вищевказаного замкнутого контуру. А дзуськи, шановні колеги!
Вложение:
1.JPG [52.71 Кб]
Скачиваний: 0

Та й на додачу ще й таке
Вложение:
2.JPG [55.59 Кб]
Скачиваний: 0

Прошу більш досвічених колег допомогти знайти помилку.


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

Зарегистрирован:
06 июн 2010 06:35
Сообщения: 823
Откуда: Ліспроект Володимир Вовчанський
Пупкин писал(а):
...Прошу більш досвічених колег допомогти знайти помилку.
Достатньо корисних скриптів у бібліотеці де, завдячуючи авторам, дано коментарі до багатьох рядків скрипта.
Код:
@Map.SelectLayer ID1000004
$CountSel=@Map.SelCount
@If $CountSel=0 then @Break Відсутня розбивка на аркуші
$NumObj=0
$I=0
%metka1
$NumObj=@Map.NextSelected $NumObj
$I=$I+1
@If $I>$CountSel then @Break completed
$Value=@Map.Object[$NumObj].Parameter[85]
$Value=d:\attempt\$Value.tif
@Map.InsertRasters $Value
@goto %metka1


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Все про скрипти
СообщениеДобавлено: 07 сен 2013 01:46 
Гуру
Гуру

Зарегистрирован:
02 апр 2013 15:28
Сообщения: 177
Подскажите как сделать одной кнопкой - Карта | Система координат... - Пересчет :?: :?: :?: :?:
И еще одну кнопку для кад.плана (Сервис-Документы-<CadPlanA4>)
Спасибо


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Все про скрипти
СообщениеДобавлено: 07 сен 2013 08:32 
Гуру
Гуру

Зарегистрирован:
06 июн 2010 06:35
Сообщения: 823
Откуда: Ліспроект Володимир Вовчанський
klaid писал(а):
Подскажите как сделать одной кнопкой - Карта | Система координат... - Пересчет
Відповідний пункт меню викликається скриптовою функцією @ExecuteMenu MapReferenceSystem, а виконується перерахунок скриптовою функцією @Map.RecalculateToNewDatum [OldDatumName] NewDatumName
klaid писал(а):
И еще одну кнопку для кад.плана (Сервис-Документы-<CadPlanA4>)
@ExecuteMenu _Document_2. Словом, дивіться в редакторі скрипта внутрішнє ім'я пункта меню - в статусному рядку:
Вложение:
Demo.JPG
Demo.JPG [ 8.54 Кб | Просмотров: 11509 ]


Вернуться к началу
 Профиль Отправить email  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 1236 ]  На страницу Пред.  1 ... 7, 8, 9, 10, 11, 12, 13 ... 83  След.

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


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

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


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

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