По преобразованию привязок OZI <-> ArcMap - неужели этого до сих
пор нет? Удивительно.
У меня пока руки не доходят
Superoverlay под
OZI заточить еще. Если такого действительно нет, то вопрос более актуален. Там все прозрачно, так что нет проблем безо всяких ArcGIS требуемый код для распознавания и генерации привязок сделать. А Tiling дает механизмы для загрузки в GPS.
Я не совсем понял, зачем перепроецировать растры вообще. Портить их только. Если указать им проекцию WGS-84 то нет проблем использовать их во фреймах и с GСS.
Сам пользую для присвоения привязок всем векторам-растрам старый свой скрипт (немного модифицированный стандартный) для ArcCatalog.
В ArcCatalog присваивает систему координат всем выбранным растрам-векторам ту, которую берет из первого ВЫБРАННОГО слоя. Можно сначала кликнуть в слой с установленной системой координат, а потом с Shift или Ctrl в остальные. Также он и сбрасывает систему координат. Можете и дальше дорабатывать если надо. Там никаких проверок на типы объектов, если попадают данные без системы координат (dbf например), то он не работает.
Public Sub copyspatialref()
'This routine will copy the spatial reference from the first object
'selected in ArcCatalog to all the other selected raster datasets
Dim pGxApp As IGxApplication
Dim pGxObj As IGxObject
Dim pDS As IDataset
'Dim pRasterDs As IRasterDataset
Dim pGeoDS As IGeoDataset
Dim pGDSSchemaEdit As IGeoDatasetSchemaEdit
Dim pGxObjects As IEnumGxObject
Dim i As Long
i = 1
Set pGxApp = Application
'get the selected objects from ArcCatalog
Set pGxObjects = pGxApp.Selection.SelectedObjects
pGxObjects.Reset
Set pGxObj = pGxObjects.Next
Do Until pGxObj Is Nothing
Set pDS = pGxObj.InternalObjectName.Open
Set pRasterDs = pDS
If i = 1 Then
'Use the first selected object as the source spatial reference
Set pGeoDS = pRasterDs
Else
Set pGDSSchemaEdit = pRasterDs
If pGDSSchemaEdit.CanAlterSpatialReference = True Then
'copy the spatial reference to the datasets
pGDSSchemaEdit.AlterSpatialReference pGeoDS.SpatialReference
End If
End If
i = i + 1
Set pGxObj = pGxObjects.Next
Loop
End Sub
