координаты центра текущего вида

Question

как получить програмно георафические координаты центра текущего вида карты, карта отображается в метрах. т.е. если в ручную то надо перевести в свойствах единицы измерения в градусы, получить координаты центра и перевести обратно единицы измерения в метры, а как это сделать не вручную и вообще не изменяя единицы измерения

Answer 1

попробуй так
Sub CentrePoint()
Dim pDoc As IMxDocument
Dim pMap As IMap
Dim pPoint As IPoint
Dim pAV As IActiveView
    Set pDoc = ThisDocument
    Set pMap = pDoc.FocusMap
    Set pAV = pDoc.ActiveView
    Set pPoint = New Point
    Set pPoint.SpatialReference = pMap.SpatialReference
    pPoint.PutCoords pAV.Extent.XMin + (pAV.Extent.XMax - pAV.Extent.XMin) / 2, _
                      pAV.Extent.YMin + (pAV.Extent.YMax - pAV.Extent.YMin) / 2
Dim pSR As ISpatialReference
Dim pSRF As ISpatialReferenceFactory2
    Set pSRF = New SpatialReferenceEnvironment
    Set pSR = pSRF.CreateSpatialReference(4284) 'проекция GCS_Pulkovo_1942
    pPoint.Project pSR
    MsgBox pPoint.X & " " & pPoint.Y
End Sub

Answer 2

ОГРАМНОЕ СПАСИБО!