Hi, I am having some trouble calculating the area for individual polygons within an overall data set of 17,000 polygons.
I've completed the process many times before and while I do use the simple coding (below), I've been trying to use 'Calculate Geometry' in this instance.
Dim dblArea as double
Dim pArea as IArea
Set pArea = [shape]
dblArea = pArea.area
I have redefined my data set to PCS rather than GCS and followed all the necessary projection steps. Theoretically it should work. And yet I keep getting area values that are far to small. For example one polygon is one of the Great Lakes, with an average area of 31,820 sq mi and yet Arc is calculating the Area to ~10 sq meters.
I've tried everything I can think of. Even switching back and running the code but it makes no difference, the area still comes out too small. Any suggestions?
Cheers,
Jonty