Аналитика

Цифровая фотограмметрия, картография и землеустройство
Текущее время: 04 дек 2020 01:20

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




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

Зарегистрирован:
05 апр 2012 10:20
Сообщения: 724
Откуда: Львівська область
може ви перед ортотрансформацією просто не позначили растр рамкою? ...і у вас трасформувалася тому пуста область екрану.

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


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 23 мар 2019 09:01 
Эксперт
Эксперт

Зарегистрирован:
16 фев 2017 21:10
Сообщения: 63
fendak писал(а):
може ви перед ортотрансформацією просто не позначили растр рамкою? ...і у вас трасформувалася тому пуста область екрану.

Мається на у вазі що у мене вгс84 перевожу в ск 63 після переводу растра немає а тільки по чотирьом кутам точки (тобто рамка переводиться) а растра нема. Яким чином зробити щоб растр проявився в ск63?


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

Зарегистрирован:
06 июн 2010 06:35
Сообщения: 760
Откуда: Ліспроект Володимир Вовчанський
Якщо Сергій Васильович дозволяє, з посиланням на написаний ним скрипт:
Трансформування растрових зображень з однієї системи координат в іншу з можливістю одразу вставити їх в активну карту за посиланням
Код:
$V=@Version
@If $V>=42881 then @Goto %Start
@Dialog.Message Цей скрипт потребує оновлення програми
@ExecuteMenu HelpAbout
@Break
%Start
$ListDatum=@DatumList
;Тека растрових зображень
$SourceDir=@Dialog.SelectFolder Оберіть теку з растровими зображеннями, які необхідно трансформувати
@If $SourceDir= then @Break Не вказано теку з растровими зображеннями, які необхідно трансформувати
;В який датум трансформувати растри
$DestDatum=
$CountMap=@MapCount
@If $CountMap=0 then $InsertInMap=0
@If $CountMap=0 then @Goto %StartWork
$DestDatum=@Map.Datum
$InsertInMap=@Dialog.Confirm Трансформувати растрові зображення в систему координат $DestDatum і вставити їх за посиланням в активну карту?
@If $InsertInMap=0 then $DestDatum=
%StartWork
@If $DestDatum= then $DestDatum=@Dialog.ListSelect Виберіть датум, в який слід трансформувати растрові зображення|$ListDatum
@If $DestDatum= then @Break Не вказано датум, в який слід трансформувати растрові зображення
;Датум растрових зображень на замовчування
$GetImageDatum=@Dialog.ListSelect В якій системі координат вхідні растрові зображення?|$ListDatum
@If $GetImageDatum= then @Break Не вказано датум растрових зображень на замовчування
@SetDefaultImageDatum $GetImageDatum
;Отримання списку файлів растрових зображень
$L=@Calc length("$SourceDir")
$DestSubDir=@Calc Replace("$DestDatum","/","-",1)
$DestSubDir=@DequoteText $DestSubDir
$DestDir=$SourceDir ($DestSubDir)
@Text[2].Clear
@Text[1].FolderListTree *.tif $SourceDir
$FC=@Text[1].Count
@if $FC=0 then @Break Не знайдено tif-файлів у теці $SourceDir
@Text[2].Add Тека з вхідними зображеннями: $SourceDir
@Text[2].Add Тека із трансформованими зображеннями: $DestDir
@Text[2].Add Трансформовані зображення:
$I=0
%LoopFile
$I=$I+1
@FileNew
@Map.Datum $DestDatum
$FN=@Text[1].Line[$I]
$GSD=@GetImageGSD $FN
$BPP=3
$BPP2=@GetImageBitsPerPixel $FN
@if $BPP2=8 then $BPP=1
@Map.InsertTriangulation $FN
$RP=@Calc copy("$FN",$L+2,1000)
$RP=@DequoteText $RP
$PC=@StringPartCount \ $RP
$SF=
@if $PC<2 then @Goto %Continue1
$J=1
%LoopPart
$SF2=@StringPart $J\$RP
@if $SF2<> then $SF=$SF\$SF2
$J=$J+1
@if $J<$PC then @Goto %LoopPart
%Continue1
@OrthoRectification $GSD $BPP $DestDir$SF
@CloseMap
@Text[2].Add Трансформовано $FN
@Goto %Continue2
%IgnoreRaster
@Text[2].Add Проблема з обробкою $FN
%Continue2
@CloseMap
@if $I<$FC then @Goto %LoopFile
;Вставка растрів за посиланням в активну карту
@If $InsertInMap=0 then @Goto %EndRecalculateImage
@Map.InsertRasters $DestDir\*.tif
@Window.ShowSelected
@Map.Selected.SendToBack
%EndRecalculateImage
@Text[2].Save $SourceDir\OrthoRect.log
@Run notepad.exe $SourceDir\OrthoRect.log
@Run $DestDir


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

Зарегистрирован:
16 фев 2017 21:10
Сообщения: 63
Возможно кто нибудь сталкивался с ситуацией: кадастровый план предположим в масштабе 1:25000, нужно чтобы был в 1:10000 масштабе. При копировании 1:25000 и через специальную вставку в другом масштабе вставляю в масштаб 1:10000 то промеры разлитаются от границы участка, каким образом сделать чтобы промеры и буквы на смежниках не разлитались от границы участка??


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

Зарегистрирован:
16 фев 2017 21:10
Сообщения: 63
Сергей Олейник, Вы писали о команде Run, хотел уточнить каким образом она работает. Так как описано у Вас у меня не получается. Можна описать по шагово что за чем....
Я создаю панель, кнопку, и вставляю Run и файл внешеней программы к примеру autocad.exe или другой exe-файл, после этого не чего не происходит (не запускается)???? Возможно что то не так делаю...!


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

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


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

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

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


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

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


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

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


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

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

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

_________________
Отдельное спасибо алфавиту за предоставленные буквы.


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

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 2180
Откуда: Vinnitsa
Скрипт викликає Сервіс-Документи-Шаблон...
попередньо отримавши в текстовий файл координати ділянки в МСК-хх
Код:
$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
Сообщения: 85
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
Сообщения: 55
Откуда: Херсон
Не можливо. Інформація з ППК зараз не підтягуеться.


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

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

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


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

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


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

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


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

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


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

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