Аналитика http://www.geosystema.net/forum/ |
|
Конвертація xml в СК 63 http://www.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/ |