第一步

添加X Y字段

第二步

选择编辑EDITOR

右键图层打开属性表

第三步

右键X字段表头

选择字段计算器

第四步

选中Advanced

第五步

编写VBA代码：

Dim dblX As Double

Dim pArea As IArea

set pArea = [Shape]

dblX = pArea.Centroid.y

然后在下面一栏里直接填上“dblX” 点击OK 即可

为了取得更好的效果

建议在字段的声明类型与vba类型一致

另外一个方法，不用写VBA代码了

修改上面第三步的操作

选择计算几何要素（calculate Geometry）

然后在Property下拉列表框里选择相应的属性即可

中心坐标XY

其他操作就与上面的一样了