'========================= 'polygon_Get_Y_Center.cal 'Author: Ianko Tchoukanski 'http://www.ian-ko.com '========================= Dim pMxDoc As IMxDocument Dim pGeometry As IGeometry Dim pMap As IMap Dim pArea As IArea Dim pCenter As IPoint Dim dYCenter As Double Set pMxDoc = ThisDocument Set pMap = pMxDoc.FocusMap If (Not IsNull([Shape])) Then Set pGeometry = [Shape] If (Not pGeometry.IsEmpty) Then pGeometry.Project pMap.SpatialReference Set pArea = pGeometry Set pCenter = pArea.Centroid dYCenter = pCenter.Y End If End If __esri_field_calculator_splitter__ dYCenter