ig0rr писал(а):Вот только с зонами и другими слоями эта тема не прокатит, нужно кому то скрипт написать для нарезки на тайлы
Всю ночь мучил свой мозг))
Держите параметры и сам
скрипт порезки на тайлы (здесь только для слоя земля, но применим ко всем слоям Росреестра, ставим лайк, если информация оказалась полезной):
Файл params.txt:
[PARAMS]
pnum=1
GUID={77428D6B-7DFA-4C98-9993-A8F3AA456608}
asLayer=1
ParentSubMenu_ru=Росреестр
ParentSubMenu=Rosreestr
ParentSubMenu_uk=Росреестр
name_ru=Кадастровые границы: ЗЕМЛЯ-PKK5 (rosreestr.ru)
name=Cadastre map (rosreestr.ru)
NameInCache=rosreestr_cadastr1
CutCountX=4
CutCountY=4
CutSizeX=256
CutSizeY=256
DefURLBase=https://pkk5.rosreestr.ru/arcgis/rest/services/Cadastre/Cadastre/MapServer/export?layers=show%3A23%2C24%2C36%2C37&dpi=96&format=PNG32
ContentType=image/png
Ext=.png
projection=1
sradiusa=6378137
sradiusb=6378137
UseDwn=1
Файл GetUrlScript.txt (взял готовый пример и немного доработал под метрическую систему):
VAR
TL,BR:TPoint;
topLeftM,bottomrightM,
topLeftA,bottomrightA:TDoublePoint;
begin
tl.x:=GetX;
tl.y:=GetY;
br.x:=GetX+4;
br.y:=GetY+4;
topLeft
A:= Converter.Pos2LonLat(tl,GetZ-1);
bottomright
A:= Converter.Pos2LonLat(br,GetZ-1);
topLeftM:= Converter.LonLat2Metr(topLeftA);
bottomrightM:= Converter.LonLat2Metr(bottomrightA);
ResultURL:=GetURLBase+'&bbox='+RoundEx(topLeftM.x,10)+','+RoundEx(bottomrightM.y,10)+','+RoundEx(bottomrightM.x,10)+','+RoundEx(topLeftM.y,10)+'&bboxSR=102100&imageSR=102100&size=1024%2C1024&transparent=true&f=image';
end.