Аналитика

Цифровая фотограмметрия, картография и землеустройство
Текущее время: 29 мар 2024 01:58

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




Начать новую тему Ответить на тему  [ Сообщений: 4 ] 
Автор Сообщение
 Заголовок сообщения: Конвертація xml в СК 63
СообщениеДобавлено: 01 июл 2021 09:17 
Участник
Участник

Зарегистрирован:
01 июл 2021 09:08
Сообщения: 3
Доброго дня знайшов скрипт для конвертації xml файлів з вибраної папки з СК 63 в МСК, а як можна конвертувати масово з МСК в СК 63:
$Ext=.xml
$DestDatum=SK63
$Re=<CoordinateSystem>$DestDatum</CoordinateSystem>
$InF=@Dialog.SelectFolder Вкажіть папку з файлами
@If $InF= @Break
@Text.FolderList *$Ext $InF
$C=@Text.Count
@If $C=0 @Break В папці "$InF" відсутні файли $Ext
$OutF=$InF\Конвертовані в SK63
@CreateFolder $OutF
@CleanFolder $OutF
$I=0
%Start
$I=$I+1
@If $I>$C then @Break Конвертовано $I файлів
$InF=@Text.Line[$I]
@FileOpen $InF
@ExecuteMenu RegistryToUSK
@ExecuteMenu RegistryToSK63
@if $Ext<>.xml then @Goto %Dali
@Map.DeselectAll
@Map.SelectLayer id70000
@Map.Selected.ChangeParameter ID7000009 $Re
%Dali
$InF=@Map.ClearShortFilename
@Map.SaveToFile $OutF\$InF$Ext
@CloseMap
@Goto %Start
Однак файли залишаються в тій же системі, ніякого перерахунку не відбувається.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Конвертація xml в СК 63
СообщениеДобавлено: 01 июл 2021 12:35 
Участник
Участник

Зарегистрирован:
01 июл 2021 09:08
Сообщения: 3
Основу скрипт взяв http://digitals.at.ua/load/skript_jakij ... k/1-1-0-25
там перерахунок з СК 63 в МСК


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Конвертація xml в СК 63
СообщениеДобавлено: 01 июл 2021 13:07 
Гуру
Гуру

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 2298
Откуда: Vinnytsia
$Ext=.xml
$DestDatum=SK63
$Re=<CoordinateSystem>$DestDatum</CoordinateSystem>
$InF=@Dialog.SelectFolder Вкажіть папку з файлами
@If $InF= @Break
@Text.FolderList *$Ext $InF
$C=@Text.Count
@If $C=0 @Break В папці "$InF" відсутні файли $Ext
$OutF=$InF\Конвертовані в SK63
@CreateFolder $OutF
@CleanFolder $OutF
$I=0
%Start
$I=$I+1
@If $I>$C then @Break Конвертовано $I файлів
$InF=@Text.Line[$I]
@FileOpen $InF
@ExecuteMenu RegistryFromMSK
@ExecuteMenu RegistryToSK63
@if $Ext<>.xml then @Goto %Dali
@Map.DeselectAll
@Map.SelectLayer id70000
@Map.Selected.ChangeParameter ID7000009 $Re
@Map.Datum $DestDatum
%Dali
$InF=@Map.ClearShortFilename
@Map.SaveToFile $OutF\$InF$Ext
@CloseMap
@Goto %Start

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


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Конвертація xml в СК 63
СообщениеДобавлено: 03 июл 2021 09:16 
Участник
Участник

Зарегистрирован:
01 июл 2021 09:08
Сообщения: 3
Дякую за відповідь, спробую так
попередньо вирішив проблему так, замінив
@ExecuteMenu RegistryToUSK
@ExecuteMenu RegistryToSK63
на
Реєстри | Перерахувати з МСК-63 в УСК2000
Реєстри | Перерахувати з УСК2000 в СК63
і все запрацювало


Вернуться к началу
 Профиль Отправить email  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 4 ] 

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


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

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


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

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