set pFeatClassA = pmap.layer(0) Dim pFeatureA as iFeature Set pFeatureA = pFeatClassA.GetFeature(123) Dim pPolygon as Ipolygon Set pPolygon = pFeatureA.Shape Dim pArea as iArea Set pArea = pPolygon Dim centroidPt as iPoint Set centroidPt = pArea.Centroid
Solved! Go to Solution.