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
Angemeldete Mitglieder können Beiträge verfassen, Updates folgen und mehr. Neu hier? Registriere ein kostenloses Konto.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.