центральная точка полигона

Question

Друзья! Подскажите, как программно получить координаты центральной точки полигона. Насколько я понимаю, конструкция:
Dim pPoligon As IPolygon
...
...
X = pPoligon.ToPoint.X
Y = pPoligon.ToPoint.Y
даст координаты последнего (или первого) вертекса. А нужен центр.

Answer 1

Dim pPoligon As IPolygon   
Dim pArea As IArea
Dim pCenter As IPoint

.....................

Set pArea = pPoligon
pArea.QueryCentroid pCenter

Answer 2

Спасибо!

Answer 3

я в 9.1 делал вот так

Dim Output as double
Dim pArea as IArea
Set pArea = [shape]
Output = pArea.centroid.x

http://gis-lab.info/qa/shapecalc-ag.html#polygon

Answer 4

Да, Спасибо! Мог бы и сам посмотреть. На самом деле вопрос вот отсюда

http://gis-lab.info/forum/viewtopic.php?f=16&t=2485