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
Los miembros registrados pueden publicar, seguir actualizaciones y más. ¿Nuevo aquí? Regístrate gratis.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.