GetConvertPoint

А нет, можно через промежуточную предопределенную проекцию. Если SetDatum вызывать последним после присвоения всего остального, тогда инициализация CRS происходит:


const eEllipsoidKrassovsky = 3
const eCoordTransformPositionVector7Parameter = 2
const eCoordTransformToPZ90 = 3
const eProjTransverseMercator = 4

Function CK42CRS(Lon0, FE, FN)
Set crs = CreateObject("ZuluLib.CRS")
Set datum = crs.GetDatum()
Set ellipsoid = datum.GetEllipsoid()
ellipsoid.SetByCode eEllipsoidKrassovsky
With datum
.dX = 25.0
.dY = -141
.dZ = -80.0
.Rx = 0
.Ry = -0.35
.Rz = -0.66
.dS = 0
.TransformMethod = eCoordTransformPositionVector7Parameter
.TransformTo = eCoordTransformToPZ90
.SetEllipsoid ellipsoid
End With

crs.ProjectionType = eProjTransverseMercator
crs.FE = FE
crs.FN = FN
crs.Lon0 = Lon0
crs.SetDatum datum

Set CK42CRS = crs
End Function

Sub Mike()

Set CRS1 = CK42CRS(136.71666666666666666666666666667, 3300000, -4916586.44)
X1 = 466789.297151777719 : Y1 = 3184459.28832338052
Set CRS2 = CK42CRS(135.0, 0, 0)

Set crs84 = CreateObject("ZuluLib.CRS")

crs84.InitByCode "EPSG:4326"

Set pt2 = CRS1.GetConvertPoint(X1, Y1, crs84)

msgbox pt2.y

Set pt2 = crs84.GetConvertPoint(pt2.x, pt2.y, CRS2)

msgbox pt2.y

End Sub

Что там за числа получаются не знаю, но какие-то отличные от исходных.

Втемную теперь будет правильно работать.