преобразование в прямоугольные координаты

Question

Добавил данные Х У в десятичной форме, определил координатную систему и теперь нужно добавить в таблицу колонки прямоугольные координаты этой системы координат. Подскажите, как это сделать, в 3.2 проблем не было.

Answer 1

Добвляете x, у - команда Добавить поля Х, У(Add Field XY) поля добавятся, но с градусами, потом вызываете калькулятор поля, включаете галочку в дополнительно и вставляете в верхнее поле: 

Dim pDoc As IMxDocument
Set pDoc = Application.Document
Dim pSp As ISpatialReference
Set pSp = pDoc.FocusMap.SpatialReference
Dim pShape As IGeometry
Set pShape = [shape]
pShape.Project  psp
Dim pPoint As IPoint
Set pPoint = pShape
Dim dX as double
dX = pPoint.X

в нижнее  - dX  - это для Х-координаты, для У - аналогично.

 

Можно еще выгрузить эти данные экспортом  с проекцией вида и уже потом добавить координаты.