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
Les membres connectés peuvent publier, suivre les mises à jour, et plus encore. Nouveau ici ? Inscrivez-vous gratuitement.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.