Case esriGeometryType.esriGeometryPolygon Dim poly As IPolygon = New Polygon Dim pointColl As IPointCollection = CType(poly, IPointCollection) pointColl.AddPoint(lowLeft) pointColl.AddPoint(lowRight) pointColl.AddPoint(upRight) pointColl.AddPoint(upLeft) Dim maware As IMAware = CType(poly, IMAware) maware.MAware = True poly.Close() Dim topoOp2 As ITopologicalOperator2 = CType(pointColl, ITopologicalOperator2) If topoOp2.IsKnownSimple = True Then topoOp2.Simplify() Dim polyExt As IFeature = CreateFeature(featClass, poly) End If
Aangemelde leden kunnen berichten plaatsen, updates volgen en meer. Nieuw hier? Registreer een gratis account.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.