Получение координат для слоя точек

ArcGIS 8.x,9.x,10.x (Arcview, ArcEditor, Arcinfo).
Ответить
Selin_ka
Новоприбывший
Сообщения: 5
Зарегистрирован: 20 май 2009, 06:25
Репутация: 0

Получение координат для слоя точек

Сообщение Selin_ka »

Здравствуйте всем!!!!
Подскажите пожалуйста!
Есть точечный слой, как вытащить координаты точек?
KolesovDmitry
Гуру
Сообщения: 810
Зарегистрирован: 22 авг 2007, 14:58
Репутация: 123
Откуда: Казань

Re: Получение координат из слоя

Сообщение KolesovDmitry »

Selin_ka писал(а):Здравствуйте всем!!!!
Подскажите пожалуйста!
Есть точечный слой, как вытащить координаты точек?
А в чем вы работаете?
Selin_ka
Новоприбывший
Сообщения: 5
Зарегистрирован: 20 май 2009, 06:25
Репутация: 0

Re: Получение координат из слоя

Сообщение Selin_ka »

ArcGIS 9.3
geologic
Гуру
Сообщения: 852
Зарегистрирован: 15 сен 2005, 13:19
Репутация: 6
Откуда: москва
Контактная информация:

Re: Получение координат из слоя

Сообщение geologic »

Аватара пользователя
Максим Дубинин
MindingMyOwnBusiness
Сообщения: 9129
Зарегистрирован: 06 окт 2003, 20:20
Репутация: 748
Ваше звание: NextGIS
Откуда: Москва
Контактная информация:

Re: Получение координат из слоя

Сообщение Максим Дубинин »

пристегивайтесь, турбулентность прямо по курсу
Selin_ka
Новоприбывший
Сообщения: 5
Зарегистрирован: 20 май 2009, 06:25
Репутация: 0

Re: Получение координат для слоя точек

Сообщение Selin_ka »

Спасибо большое!!!!
Такой вопрос еще, точки в ГСК WGS 1984 и надо чтобы координаты получались в градусы-минуты-секунды, а получается десятичные градусы (((((
AndreyL
Завсегдатай
Сообщения: 483
Зарегистрирован: 17 авг 2006, 14:04
Репутация: 0
Откуда: Новосибирск

Re: Получение координат для слоя точек

Сообщение AndreyL »

Вот к этому http://gis-lab.info/qa/shapecalc-ag.html кусочек добавить. Целиком так получится:

Код: Выделить всё

Dim pMxDoc As IMxDocument
Set pMxDoc = ThisDocument
Dim pMap As IMap
Set pMap = pMxDoc.FocusMap
Dim pSR As ISpatialReference
Set pSR = pMap.SpatialReference
Dim pPoint As IPoint
Set pPoint = [Shape]
pPoint.Project pSR 
ff = pPoint.X

dd = Int(ff)
mm = Int((ff - dd) * 60)
ss = Round(ff * 3600 - dd * 3600 - mm * 60, 1)
sdd = Format(dd, "##")
If dd < 10 Then sdd = "0" + sdd
smm = Format(mm, "##")
If mm < 10 Then smm = "0" + smm
sss = Format(ss, "##.#")
If ss < 10 Then sss = "0" + sss
If Len(sss) = 3 Then sss = sss + "0"
DDD2DMS = sdd + "° " + smm + "' " + sss + "''"
Естественно, поле должно быть строковым, а в строке ff = pPoint.X ставим X или Y.
2Sim Кстати, Максим, код можешь дописать в статью
Аватара пользователя
Максим Дубинин
MindingMyOwnBusiness
Сообщения: 9129
Зарегистрирован: 06 окт 2003, 20:20
Репутация: 748
Ваше звание: NextGIS
Откуда: Москва
Контактная информация:

Re: Получение координат для слоя точек

Сообщение Максим Дубинин »

добавил, спасибо
пристегивайтесь, турбулентность прямо по курсу
geologic
Гуру
Сообщения: 852
Зарегистрирован: 15 сен 2005, 13:19
Репутация: 6
Откуда: москва
Контактная информация:

Re: Получение координат для слоя точек

Сообщение geologic »

Как-то мы с вами увлеклись, господа - раздел ведь для новичков... ;) Давно ведь отдельный узкозаточенный инструмент есть для таких целей, удобно работает. В таблице щелкаем правой мышкой на заголовок нужной колонки, например, X или Y, из контекстного меню выбираем "Calculate Geometry".

Изображение

Появляется диалог, в котором можем кроме колонки еще и выбрать, что за геометрический параметр, координата или длина или площадь, в какой проекции и в каких единицах мы желаем это видеть.

Изображение

Колонку, понятное дело, нужно заготовить заранее - и она должна быть дробночисленной. Хотя может быть и целочисленной, и даже текстовой - но и результат будет записан соответствено форме.
Selin_ka
Новоприбывший
Сообщения: 5
Зарегистрирован: 20 май 2009, 06:25
Репутация: 0

Re: Получение координат для слоя точек

Сообщение Selin_ka »

Спасибо вам большое, именно такое решение и подошло!!! :D
Ответить

Вернуться в «ArcGIS»

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и 4 гостя