Аналитика

Доброго дня знайшов скрипт для конвертації 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
Однак файли залишаються в тій же системі, ніякого перерахунку не відбувається.

Основу скрипт взяв http://digitals.at.ua/load/skript_jakij ... k/1-1-0-25
там перерахунок з СК 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

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