Аналитика http://geosystema.net/forum/ |
|
Библиотека полезных скриптов http://geosystema.net/forum/viewtopic.php?f=5&t=2539 |
Страница 14 из 15 |
Автор: | Vladimirart08 [ 25 мар 2019 12:59 ] |
Заголовок сообщения: | Re: Библиотека полезных скриптов |
voha писал(а): Vladimirart08 писал(а): ...Можна описать по шагово что за чем....Возможно что то не так делаю...! Шановний Vladimirart08! Ви хочете отримати відповідь? Вам скільки раз відповідали - НЕ В ТЕМІ БІБЛІОТЕКА СКРИПТІВ!!! Ну, ніякої поваги - так ніякої відповіді від форумчан.Дякую за розуміння. voha я Вас розумію, але Ви гуру диджитала, а я тільки вчусь, по вашій відмові в допомозі я розумію що Ви не знаєте як вирішити питання, а також не можете підсказати до якого розділу форума звернутися? |
Автор: | voha [ 25 мар 2019 15:03 ] |
Заголовок сообщения: | Re: Библиотека полезных скриптов |
Vladimirart08 писал(а): ...до якого розділу форума... Клацніть лівою кнопкою миші тут
|
Автор: | Руслан Пархуць [ 14 май 2020 15:05 ] | |||
Заголовок сообщения: | Tic-Tac-Toe | |||
Маленький бонус, щоб не було скучно пiд час карантину Хрестики-нулики в Digitals/Delta XE
|
Автор: | S@SH [ 09 июн 2020 11:13 ] |
Заголовок сообщения: | Re: Библиотека полезных скриптов |
підкажіть чи можливо таке реалізувати скриптом: з поточної карти в виділеному слої скопіювати таблицю з координатами і вставити в текстовий файл. Буду дуже вдячний. Самостійно розібратися не получається. |
Автор: | Dmitry_Zolotar [ 09 июн 2020 12:00 ] |
Заголовок сообщения: | Re: Библиотека полезных скриптов |
Скрипт викликає Сервіс-Документи-Шаблон... попередньо отримавши в текстовий файл координати ділянки в МСК-хх Код: $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> |
Автор: | ialexandri [ 20 сен 2020 09:31 ] |
Заголовок сообщения: | Re: Библиотека полезных скриптов |
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 Чи є можливість зробити щоб цей скрипт працював? |
Автор: | VictorR [ 21 сен 2020 08:28 ] |
Заголовок сообщения: | Re: Библиотека полезных скриптов |
Не можливо. Інформація з ППК зараз не підтягуеться. |
Автор: | ialexandri [ 21 сен 2020 14:41 ] |
Заголовок сообщения: | Re: Библиотека полезных скриптов |
VictorR писал(а): Не можливо. Інформація з ППК зараз не підтягуеться. Можливо хтось має лайфхаки як знаходити місце розташування ділянки в кадастровій карті - щоб взяти КОАТУУ, зону, квартал? Вручну, візуально постійно шукати то довга справа. |
Автор: | ТОВ Аспект [ 22 сен 2020 07:41 ] |
Заголовок сообщения: | Re: Библиотека полезных скриптов |
download/file.php?id=3597 шар PCM, обов'язково вкажіть на карті датум |
Автор: | ialexandri [ 22 сен 2020 11:58 ] |
Заголовок сообщения: | Re: Библиотека полезных скриптов |
ТОВ Аспект писал(а): http://www.geosystema.net/forum/download/file.php?id=3597 шар PCM, обов'язково вкажіть на карті датум А як із цим чудом працювати? |
Автор: | Руслан Пархуць [ 22 сен 2020 12:35 ] |
Заголовок сообщения: | Re: Библиотека полезных скриптов |
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 буде знаходитися вибраний об'єкт. |
Автор: | ialexandri [ 22 сен 2020 14:21 ] |
Заголовок сообщения: | Re: Библиотека полезных скриптов |
ДЯКУЮ ! |
Автор: | Dmitry_Zolotar [ 22 сен 2020 16:24 ] | ||
Заголовок сообщения: | Re: Библиотека полезных скриптов | ||
Оновлений OnClick.dmf, зверніть увагу на шар PCM_2.
|
Автор: | petrogeo [ 21 окт 2020 14:09 ] | ||
Заголовок сообщения: | Re: Библиотека полезных скриптов | ||
Скрипт який читає атрибути ділянки з ППК по кадастровому номеру, та записує в параметри поміченого об'єкта отримані дані Для того щоб цільове ділянки було повним а не скороченим (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. Доповнення та виправлення скрипта вітаються
|
Автор: | Valeri [ 10 янв 2022 11:18 ] |
Заголовок сообщения: | Re: Библиотека полезных скриптов |
Добрый день! подскажите, есть ли какой-то скрипт, с помощью которого можно создать базу, вытянув одним махом все хмли с заданной папки какого-то определенного района (внутри папки находятся папками с каждым заказчиком отдельно)? много времени тратится если вставлять в карту хмл заходя в каждую папку заказчика отдельно. |
Страница 14 из 15 | Часовой пояс: UTC + 2 часа |
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/ |