Аналитика

Цифровая фотограмметрия, картография и землеустройство
Текущее время: 28 мар 2024 11:17

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




Начать новую тему Ответить на тему  [ Сообщений: 211 ]  На страницу Пред.  1 ... 11, 12, 13, 14, 15  След.
Автор Сообщение
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 25 мар 2019 12:59 
Эксперт
Эксперт

Зарегистрирован:
16 фев 2017 21:10
Сообщения: 72
voha писал(а):
Vladimirart08 писал(а):
...Можна описать по шагово что за чем....Возможно что то не так делаю...!
Шановний Vladimirart08! Ви хочете отримати відповідь? Вам скільки раз відповідали - НЕ В ТЕМІ БІБЛІОТЕКА СКРИПТІВ!!! Ну, ніякої поваги - так ніякої відповіді від форумчан.
Дякую за розуміння.

voha я Вас розумію, але Ви гуру диджитала, а я тільки вчусь, по вашій відмові в допомозі я розумію що Ви не знаєте як вирішити питання, а також не можете підсказати до якого розділу форума звернутися?


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 25 мар 2019 15:03 
Гуру
Гуру

Зарегистрирован:
06 июн 2010 06:35
Сообщения: 823
Откуда: Ліспроект Володимир Вовчанський
Vladimirart08 писал(а):
...до якого розділу форума...
Клацніть лівою кнопкою миші тут


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Tic-Tac-Toe
СообщениеДобавлено: 14 май 2020 15:05 
Гуру
Гуру
Аватара пользователя

Зарегистрирован:
22 сен 2007 16:09
Сообщения: 382
Откуда: м.Львiв
Маленький бонус, щоб не було скучно пiд час карантину :)
Хрестики-нулики в Digitals/Delta XE


Вложения:
TicTacToe.dmf [3.61 Кб]
Скачиваний: 562
Logo.jpg
Logo.jpg [ 6.53 Кб | Просмотров: 45974 ]

_________________
Більшість хороших програмістів виконують свою роботу не тому, що очікують оплати або визнання, а тому, що отримують задоволення від програмування.
Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 09 июн 2020 11:13 
Эксперт
Эксперт

Зарегистрирован:
20 июн 2007 21:35
Сообщения: 69
Откуда: Винница
підкажіть чи можливо таке реалізувати скриптом:
з поточної карти в виділеному слої скопіювати таблицю з координатами і вставити в текстовий файл. Буду дуже вдячний. Самостійно розібратися не получається.


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 09 июн 2020 12:00 
Гуру
Гуру

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 2298
Откуда: Vinnytsia
Скрипт викликає Сервіс-Документи-Шаблон...
попередньо отримавши в текстовий файл координати ділянки в МСК-хх
Код:
$AM=@ActivateMap
@if $AM=0 then @Break
@Map.DeselectAll
@Map.SelectLayer ID70005
$SO=@Map.SelectedObject
@if $SO=0 then @Break
$PPath=@ProgramPath
$ActiveMSK=@ActiveMSK
$Datum=@Map.Datum
$CadNum=@Map.XMLCadastralNumber
@Map.Copy
@FileNew $PPath\Temp.dmf /Template=XMLNormal.dmf
@Map.Paste
$ParcelObj=@Map.SelectedObject
;@ExecuteMenu CoordinatesLengthsDirsInternals1
;$Tab63Obj=@Map.SelectedObject
;$Tab63=@Map.Object[$Tab63Obj].TableText
;@Text[1].Clear
;@Text[1].Text $Tab63
;@Text[1].Save $PPath\Vedomost63.txt
@Map.Datum $Datum
@Map.RecalculateToNewDatum $Datum $ActiveMSK
@Map.DeselectAll
@Map.SelectObject $ParcelObj
@ExecuteMenu CoordinatesLengthsDirsInternals1
$TabMSKObj=@Map.SelectedObject
$TabMSK=@Map.Object[$TabMSKObj].TableText
@Text[1].Clear
@Text[1].Text $TabMSK
@Text[1].Add $ActiveMSK
@Text[1].Save $PPath\VedomostMSK.txt
@CloseMap
@ActivateMap $AM
Документы | <DZK_Vedomost>

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


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

Зарегистрирован:
02 июл 2011 13:39
Сообщения: 92
Dmitry_Zolotar писал(а):
Kaktus писал(а):
Потрібен скрипт щоб заповнювати КОАТУУ, зону та квартал в XML з ПКК. Таке можливо?

@Map.DeselectAll
@Map.SelectLayer ID70005
$SC=@Map.SelCount
@if $SC<>1 then @Break Одна XML-ділянка має бути в карті
$SO=@Map.SelectedObject
$XYZ=@Map.Object[$SO].Centroid
$S=@Map.GetPublicMapQuarterInfo $XYZ
@Text[1].Text $S
$LC=@Text[1].Count
@if $LC<3 then @Break Інформація не знайдена
@if $LC<>3 then @Break Інформація може дублюватись
%LoopLine
$KOATUU=@Text[1].Line[1]
$KOATUU=@StringPart 2=$KOATUU
$ZoneNumber=@Text[1].Line[2]
$ZoneNumber=@StringPart 2=$ZoneNumber
$QuarterNumber=@Text[1].Line[3]
$QuarterNumber=@StringPart 2=$QuarterNumber
@Map.DeselectAll
@Map.SelectLayer ID70003
$SC=@Map.SelCount
@if $SC<>1 then @Break Об'єкт XML-кадастрова зона має бути в карті
$SO=@Map.SelectedObject
@Map.Object[$SO].Parameter[ID7000301] $KOATUU:$ZoneNumber
@Map.DeselectAll
@Map.SelectLayer ID70004
$SC=@Map.SelCount
@if $SC<>1 then @Break Об'єкт XML-кадастровий квартал має бути в карті
$SO=@Map.SelectedObject
@Map.Object[$SO].Parameter[ID7000401] $QuarterNumber
@Map.DeselectAll
@Dialog.Message $S


Чи є можливість зробити щоб цей скрипт працював?


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

Зарегистрирован:
30 июн 2017 20:52
Сообщения: 63
Откуда: Херсон
Не можливо. Інформація з ППК зараз не підтягуеться.


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

Зарегистрирован:
02 июл 2011 13:39
Сообщения: 92
VictorR писал(а):
Не можливо. Інформація з ППК зараз не підтягуеться.

Можливо хтось має лайфхаки як знаходити місце розташування ділянки в кадастровій карті - щоб взяти КОАТУУ, зону, квартал?
Вручну, візуально постійно шукати то довга справа.


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

Зарегистрирован:
29 окт 2012 12:15
Сообщения: 99
Откуда: Запорізька область, м. Кам'янка-Дніпровська
download/file.php?id=3597
шар PCM, обов'язково вкажіть на карті датум


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

Зарегистрирован:
02 июл 2011 13:39
Сообщения: 92
ТОВ Аспект писал(а):
http://www.geosystema.net/forum/download/file.php?id=3597
шар PCM, обов'язково вкажіть на карті датум

А як із цим чудом працювати?


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 22 сен 2020 12:35 
Гуру
Гуру
Аватара пользователя

Зарегистрирован:
22 сен 2007 16:09
Сообщения: 382
Откуда: м.Львiв
ialexandri писал(а):
ТОВ Аспект писал(а):
http://www.geosystema.net/forum/download/file.php?id=3597
шар PCM, обов'язково вкажіть на карті датум

А як із цим чудом працювати?

Створiть кнопку i вставте в неї цей код (взято з вищенаведеного прикладу)
Код:
$MCount=@MapCount
@If $MCount=0 Then @Break
$EO=@Map.NextSelected
@If $EO=0 Then @Break Виберiть дiлянку (контур) для вiдображення її розташування на ПКК
$Datum=@Map.Datum
; ----------------------------------
; Датум по замовчуванню - SK63(1)
@If $Datum= Then $Datum=SK63(1)
; ----------------------------------
@Map.Datum $Datum
$Tab=@Calc char(9)
$Tab=@DequoteText $Tab
$XYZ=@Map.Object[$EO].PointList 0.0000 WebMercator (EPSG3857)
$XYZ=%Library.ReplaceComma $XYZ
$X=@StringPart 1$Tab$XYZ
$Y=@StringPart 2$Tab$XYZ
$URL=https://map.land.gov.ua/?cc=$Y,$X&z=16&l=kadastr&bl=ortho10k_all
@Run $URL
%Ignore

пiсля вибору об'єкту i натисненнi на кнопку завантажиться ПКК, де в центрi буде знаходитися вибраний об'єкт.

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


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

Зарегистрирован:
02 июл 2011 13:39
Сообщения: 92
ДЯКУЮ ! :)


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

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 2298
Откуда: Vinnytsia
Оновлений OnClick.dmf, зверніть увагу на шар PCM_2.


Вложения:
OnClick.dmf [1.68 Кб]
Скачиваний: 523

_________________
Команда разработчиков Digitals
(наш e-mail и ICQ находятся в меню Помощь|О программе)
Новичкам сюда | Новые возможности программы | Купить Digitals
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 21 окт 2020 14:09 
Эксперт
Эксперт

Зарегистрирован:
09 дек 2015 12:30
Сообщения: 97
Откуда: Закарпатська область
Скрипт який читає атрибути ділянки з ППК по кадастровому номеру, та записує в параметри поміченого об'єкта отримані дані
Для того щоб цільове ділянки було повним а не скороченим (01.01), потрібно в папку Lists скопіювати файл DovidnykKZ-all.txt
;----------------------------------------------------
;@OpenLog
;----------------------------
;Шлях до папки з програмою
$Papka=@ProgramFolder
;----------------------------
$MS=@Map.SelCount
@if $MS=0 then @Break Виділи об'єкт в який потрібно записати атрибути з ППК!
$SO=@Map.SelectedObject
$LayerID=@Map.Object[$SO].LayerID
$FindByID=@Map.Layers.FindByID $LayerID
@Map.DeselectAll
$KadNomAsk=
$KadNomAsk=@Dialog.Ask Встав кадастровий номер Default=$KadNomAsk Size=200
@if $KadNomAsk= then @Break Введи кадастровий номер!!!
$KadNomAsk=@Calc Trim("$KadNomAsk")
$KadNomAsk=@DequoteText $KadNomAsk
@CreateParcelMarker $KadNomAsk
;------------------------------
;номер параметра в який записані атрибути з ППК!
$IDKDNKS=@Map.Parameters.FindByName Кадастровий номер
$IDVLNKS=@Map.Parameters.FindByName Тип власності
$IDCVNKS=@Map.Parameters.FindByName Цільове призначення
$IDPLNKS=@Map.Parameters.FindByName Площа
;------------------------------
;записуємо отримані дані з ППК в перемінні
@Map.DeselectAll
@Map.SelectByParameters 1|$IDKDNKS=$KadNomAsk
$S=@Map.SelectedObject
$KDNKS=@Map.Object[$S].Parameter[$IDKDNKS]
$VLNKS=@Map.Object[$S].Parameter[$IDVLNKS]
$CVNKS=@Map.Object[$S].Parameter[$IDCVNKS]
$PLNKS=@Map.Object[$S].Parameter[$IDPLNKS]
@Map.DeleteObject $S
$L=@Calc Copy("$CVNKS","1","5")
$L=@DequoteText $L
;шлях до довідника з кодами КВЦПЗ c:\Program Files (x86)\Digitals\Lists
@Text[1].Load $Papka\Lists\DovidnykKZ-all.txt
$TC=@Text[1].Count
$I=0
%Loop
$I=$I+1
$TL=@Text[1].Line[$I]
$L2=@Calc Pos("$L","$TL")
@if $L2>0 then $CVNKS="$TL"
$CVNKS=@DequoteText $CVNKS
@if $L2>0 then @Goto %Yes
@if $I<$TC then @Goto %Loop
%Yes
;@Dialog.Message $KDNKS|$VLNKS|$CVNKS|$PLNKS
;------------------------------
;помічаємо об'єкт в який потрібно записати атрибути
@Map.SelectObject $SO
;------------------------------
;отримуємо список доступних шару параметрів та додаємо нові
;за потреби цей блок можна відключити поставивши ; перед початком кожного рядка
$ParSO=@Map.Layers.GetValidParameters $FindByID
@Map.Layers.SetValidParameters $ParSO $IDKDNKS $IDVLNKS $IDCVNKS $IDPLNKS
@Map.Selected.Refresh
@ExecuteMenu ViewShowAll
@Map.CalculateRange
;------------------------------
;параметри об'єкта в які записуємо отримані значення
;можна замінити на свій, замість [$IDKDNKS] наприклад вписати [85]
;[85] - порядковий номер вашого параметра в який потрібно записати дані
@Map.Object[$SO].Parameter[$IDKDNKS] $KDNKS
@Map.Object[$SO].Parameter[$IDVLNKS] $VLNKS
@Map.Object[$SO].Parameter[$IDCVNKS] $CVNKS
@Map.Object[$SO].Parameter[$IDPLNKS] $PLNKS
@Map.Selected.Refresh
;@CloseLog D:\123.txt
;----------------------------------------
P.S. Доповнення та виправлення скрипта вітаються :D


Вложения:
DovidnykKZ-all.txt [8.46 Кб]
Скачиваний: 483
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 10 янв 2022 11:18 
Участник
Участник

Зарегистрирован:
10 янв 2022 11:05
Сообщения: 1
Добрый день! подскажите, есть ли какой-то скрипт, с помощью которого можно создать базу, вытянув одним махом все хмли с заданной папки какого-то определенного района (внутри папки находятся папками с каждым заказчиком отдельно)? много времени тратится если вставлять в карту хмл заходя в каждую папку заказчика отдельно.


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

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


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

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


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

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