LayerTransform

Set out = Zulu.OpenOutputChannel("Сообщения")
out.Clear
Set Map = Zulu.ActiveMapDoc

'Получаем активный слой (растр)
Set L = MAP.Layers.Active

Set Plan = MAP.Layers.GetItemByUserName("План_сущ_пол")   

'Текущие объекты, по которым проверяется масштаб
Set a1 = PLAN.Elements.Item(1148).GetBoundsRectangle(0)         
Set a2 = PLAN.Elements.Item(531).GetBoundsRectangle(0)   
 
'Правильное расстояние между объектами   
a1_a2 =   ((a2.Xmax - a1.Xmin) ^ 2 + ((a2.Ymax - a1.Ymin))^2)^(1/2) 

'Объекты на растре
Set b1 = PLAN.Elements.Item(3084).GetBoundsRectangle(0)         
Set b2 = PLAN.Elements.Item(3085).GetBoundsRectangle(0)   

'Границы растра
Set M = L.GetBoundsRectangle

'Правильное расстояние между объектами 
b1_b2 = ((b1.Xmin - b2.Xmax)^2 + (b1.Ymin - b2.Ymax)^2)   ^(1/2)

X = b1.Xmin   ' Текущая координата X
Y = b1.Ymin   ' Текущая координата Y   

Kx = a1_a2/b1_b2 ' коэффициент искажения масштаба по X
Ky = Kx ' коэффициент искажения масштаба по Y
Xc = (M.Xmin + M.Xmax) / 2 'координаты точки поворота
Yc = (M.Ymin + M.Ymax) / 2 'координаты точки поворота
Fi = 0 'угол поворота
Xs = a1.Xmin - (Xc + Kx * (X -  Xc) * Cos(Fi) - Ky * (Y -  Yc) * Sin(Fi))    'смещение по X
Ys = a1.Ymin - (Yc + Kx * (X -  Xc) * Sin(Fi) + Ky * (Y -  Yc) * Cos(Fi))    'смещение по Y

OUT.Put cstr(X) + Chr(10) + cstr(Y) + Chr(10) + cstr(Xs) + Chr(10) + cstr(Ys) + Chr(10) + cstr(Kx) + Chr(10) + cstr(Ky) + Chr(10) + cstr(Xc) + Chr(10) + cstr(Yc) + Chr(10)    
            

TRANS.LayerTransform L.Name,  Kx, Ky, Fi, Xc, Yc, Xs, Ys
MAP.Layers.Remove L   
MAP.AddLayer L.Name