IPolygon2-QueryExteriorRingsEx-QueryExteriorRings の回避方法

'http://resources.arcgis.com/en/help/arcobjects-java/concepts/engine/index.html#//00010000073v000000

.NET では、ExteriorRingCount メソッドと QueryInteriorRingsEx メソッドは動作しない。

IPolygon2.QueryInteriorRingsEx Method
http://resources.arcgis.com/en/help/arcobjects-net/componenthelp/index.html#/QueryInteriorRingsEx_Method/002m000002ms000000/

IPolygon2.QueryExteriorRingsEx Method
http://resources.arcgis.com/en/help/arcobjects-net/componenthelp/index.html#//002m000002mr000000


Dim pPolygon As IPolygon4 = CType(pFeature.ShapeCopy, IPolygon4)

Dim pExteriorRings As IGeometryCollection = CType(pPolygon.ExteriorRingBa, IGeomlection)
Dim pExteriorRing As IRing

'Exterior Ring
For i As Integer = 0 To pExteriorRings.GeometryCount - 1
    pExteriorRing = CType(pExteriorRings.Geometry(i), IRing)

    Dim pInteriorRings As IGeometryCollection = CType(pPolygon.InteriorRigBag(pERing), IGeometryCollection)
    Dim pInteriorRing As IRing

    'Interior Ring
    For j As Integer = 0 To pInteriorRings.GeometryCount - 1
        pInteriorRing = CType(pInteriorRings.Geometry(j), IRing)

        System.Diagnostics.Debug.Print(pInteriorRing.IsExterior.ToString()
    Next

Next