значения координат вершин полигона

Question

Hi!

Никак не могу допереть, как выбирать значения координат вершин
выбранного полигона.
javascript:AddSmileyIcon('')

Для каталога координат приходиться расставлять точки
по вершинам полигона. Если полигон большой и пропущена
точка в начале, приходиться канселить Ооочень много.
Короче, использую вот такой скрипт:

For Count = 0 To pEditor.SelectionCount - 1
       
     Set pPoint = pFeature.Shape

               pPoint.QueryCoords dX, dY
       
               X = Round(dY, 2)
               Y = Round(dX, 2)
              
               CordX(Count) = X                 
               CordY(Count) = Y

               z = (Count * 2) + 1

               myEx.Cells(z + 5, 2).Value = CordX(Count)
               myEx.Cells(z + 5, 3).Value = CordY(Count)
               myEx.Cells(z + 5, 1).Value = Count + 1
              
        Set pFeature = pEnumFeature.Next
       
Next Count

Как можно выбирать координаты вершин
полигона, к примеру в массив? Как состряпать
запрос к поинт коллекшн полигона?

Answer 1

Sub PointsOfFeature(pFeat As IFeature)
   Dim pCol As ipointcollection
   Dim pGeom As IGeometry
   Dim pp As IPoint
  
   If Not pFeat.Shape Is Nothing Then
     Set pGeom = pFeat.Shape
     If pGeom.GeometryType = esriGeometryPoint Then
       Set pCol = New Multipoint
       Set pp = pFeat.Shape
       pCol.AddPoint pp
     Else
       Set pCol = pFeat.Shape
     End If
    
     For i = 0 To pCol.PointCount - 1
       Set pp = pCol.Point(i)
       Debug.Print i + 1, pp.x, pp.y
     Next
   End If
End Sub

 

Answer 2

Спасибо Астана!
Все работает.