$SO=@Map.SelectedObject
@if $SO=0 then @Break Виділіть об'єкт, який потрібно знайти на ПКК
$Datum=@Map.Datum
@if $Datum= then @Map.Datum SK63
$Tab=@Calc char(9)
$Tab=@DequoteText $Tab
$XYZ=@Map.Object[$SO].PointList 0.0000 WebMercator (EPSG3857)
$XYZ=@ReplaceChar ,.$XYZ
$X=@StringPart 1$Tab$XYZ
$Y=@StringPart 2$Tab$XYZ
$URL=https://map.land.gov.ua/?cc=$Y,$X&z=16&l=kadastr&bl=ortho10k_all
@Run $URL

Перед запуском скрипту потрібно просто виділити об'єкт.

Якщо Ви працює в USK-2000 чи MSK, то в коді скрипту треба змінити SK-63 на ваш датум (буде автоматично присвоюватися карті, якщо на ній не виявлено ніякого датуму).

І також в файлі Datums.ini (в папці Digitals) потрібно дописати такі рядки:

[WebMercator (EPSG3857)]
Projection=1
a=6378137
f=298.257223563
Scale=0.9996
FalseEast=500000
FalseNorth=0
PrimeMeridian=0
AddZone=0

Та перезапустити програму.

П.С. Скрипт взято з форуму Аналітика