На главную... Продукты | Технологии | Классификаторы | Проекты | Скачать | Цены| Форум | Статьи | Обучение | Контакты

Определение и пересчет координат

Поиск  Пользователи  Правила  Войти
Форум » Настольные приложения » GIS ToolKit, GIS ToolKit Active, ГИС Конструктор для Windows
Страницы: 1
RSS
Определение и пересчет координат, Определение и пересчет координат
 
Не понятно следующее:
Есть карта
Тип карты Топографическая UTM WGS84
Проекция Transverse Mercator (UTM)
Эллипсоид WGS84
Система высот Балтийская система высот

Берем площадной объект на этой карте и смотрим координаты его первой точки
в программе Панорама 12.6.3.
Координаты матрика 1-й точки следующие:
X=461 374,960
Y=2 363062,056

Считываем координаты первой точки этого площадного объекта:
procedure TForm1.SpeedButton8Click(Sender: TObject);
Var
x,y : string;
xd,yd : double;
begin
MapObj1.PlaceOut := PP_PLANE;
xd := MapObj1.Metric.Points[0,1].X;
yd := MapObj1.Metric.Points[0,1].Y;
x := FormatFloat('#.00',xd);
y := FormatFloat('#.00',yd);
ShowMessage ('x = '+x);
ShowMessage ('y = '+y);
end;

В результате
x=6171580,45
y=391762,41

Что я делаю не правильно?
Почему считанные координаты, отличаются от тех, что в метрике?
 
вроде разобрался:
procedure TForm1.SpeedButton8Click(Sender: TObject);
Var
x,y : string;
xd,yd : double;
begin
// Определим координаты x и y

MapObj1.PlaceOut := PP_PLANE;
xd := MapObj1.Metric.Points[0,1].X;
yd := MapObj1.Metric.Points[0,1].Y;

x := FormatFloat('#.00',xd);
y := FormatFloat('#.00',yd);

ShowMessage ('x = '+x);
ShowMessage ('y = '+y);

// Загоняем эти координаты в функцию MapAPI
mapPlaneToGeoWGS84(mvMap.MapHandle,xd,yd);

xd := xd/3.14159265*180;
yd := yd/3.14159265*180;

ShowMessage ('xd = '+ FloatToStr(xd));
ShowMessage ('yd = '+ FloatToStr(yd));
end;
Страницы: 1
Читают тему (гостей: 1)



© КБ Панорама, 1991-2024

Регистрируясь или авторизуясь на форуме, Вы соглашаетесь с Политикой конфиденциальности