Аналитика
https://geosystema.net/forum/

Конвертація xml в СК 63
https://geosystema.net/forum/viewtopic.php?f=1&t=19853		 Страница 1 из 1
Автор:  Vavilen [ 01 июл 2021 09:17 ]
Заголовок сообщения:  Конвертація xml в СК 63
Доброго дня знайшов скрипт для конвертації 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
Однак файли залишаються в тій же системі, ніякого перерахунку не відбувається.
Автор:  Vavilen [ 01 июл 2021 12:35 ]
Заголовок сообщения:  Re: Конвертація xml в СК 63
Основу скрипт взяв http://digitals.at.ua/load/skript_jakij ... k/1-1-0-25
там перерахунок з СК 63 в МСК
Автор:  Dmitry_Zolotar [ 01 июл 2021 13:07 ]
Заголовок сообщения:  Re: Конвертація xml в СК 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 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
Автор:  Vavilen [ 03 июл 2021 09:16 ]
Заголовок сообщения:  Re: Конвертація xml в СК 63
Дякую за відповідь, спробую так
попередньо вирішив проблему так, замінив
@ExecuteMenu RegistryToUSK
@ExecuteMenu RegistryToSK63
на
Реєстри | Перерахувати з МСК-63 в УСК2000
Реєстри | Перерахувати з УСК2000 в СК63
і все запрацювало
Страница 1 из 1 Часовой пояс: UTC + 2 часа
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/