проблема с пересчетом датумов в восьмерке

Question

Вкратце, ситуация такая. Надо пересчитать данные из WGS-84 в Пулково. Когда это делаешь инструментом из ArcToolbox, получаются результаты, отличные в 5-6 знаке после запятой от тех, что выходят если в явном виде написать процедуру, используя VB, встроенный в ArcMap (через CoordinateFrameNransformation). Уточню, что это семипараметрическое преобразование.

Такое ощущение, что это какой-то глюк и в Arctoolbox зашито что-то другое.

Помогите. кто может, плз!!!!

Answer 1

Я делаю так:

Option Explicit

Const Pi = 3.14159265358979

Public Type uPoint
   x As Double
   Y As Double
End Type

Function Recalc(dolg As Double, shir As Double, csIn As ISpatialReference, _
   csOut As ISpatialReference) As uPoint
   ' ««««««««««««««««««« Ul.MK. »»»»»»»»»»»»»»»»»»»»     18.03.2005 12:31:01
   Dim pSRin As ISpatialReference, pSRout As ISpatialReference
   Dim pPoint As IPoint, pPrj As IPoint
  
   Set pPoint = New Point
   pPoint.PutCoords dolg, shir
   Set pPoint.SpatialReference = csIn
   pPoint.Project csOut
  
   If pPrj.IsEmpty Then
      MsgBox "Произошла ошибка при перерасчете систем координат."
      Exit Function
   End If
   Recalc.x = pPrj.x
   Recalc.Y = pPrj.Y
End Function