arcgis engine在地图上任意画两个多边形，分别实现两个多边形的逻辑运算(交集，并集，差集)代码

首先需要添加 ArcObjects 的引用，然后可以使用以下代码实现逻辑运算：

' 获取当前地图控件中的图层
Dim map As IMap = axMapControl1.Map
Dim layer1 As IFeatureLayer = map.Layer(0)
Dim layer2 As IFeatureLayer = map.Layer(1)

' 获取两个图层中的所有要素
Dim featureCursor1 As IFeatureCursor = layer1.Search(Nothing, False)
Dim featureCursor2 As IFeatureCursor = layer2.Search(Nothing, False)

Dim geometryCollection1 As IGeometryCollection = New PolygonClass()
Dim geometryCollection2 As IGeometryCollection = New PolygonClass()

' 遍历第一个图层中的所有要素，并将要素的几何体添加到 geometryCollection1 中
Dim feature1 As IFeature = featureCursor1.NextFeature()
Do While feature1 IsNot Nothing
    geometryCollection1.AddGeometry(feature1.ShapeCopy)
    feature1 = featureCursor1.NextFeature()
Loop

' 遍历第二个图层中的所有要素，并将要素的几何体添加到 geometryCollection2 中
Dim feature2 As IFeature = featureCursor2.NextFeature()
Do While feature2 IsNot Nothing
    geometryCollection2.AddGeometry(feature2.ShapeCopy)
    feature2 = featureCursor2.NextFeature()
Loop

' 执行逻辑运算
Dim topoOp As ITopologicalOperator = CType(geometryCollection1, ITopologicalOperator)
Dim resultGeometry As IGeometry = Nothing

' 交集
resultGeometry = topoOp.Intersect(geometryCollection2, esriGeometryDimension.esriGeometry2Dimension)

' 并集
resultGeometry = topoOp.Union(geometryCollection2)

' 差集
resultGeometry = topoOp.Difference(geometryCollection2)

' 将结果添加到地图中
Dim resultLayer As IFeatureLayer = New FeatureLayerClass()
resultLayer.FeatureClass = New FeatureClass()
resultLayer.FeatureClass.ShapeType = esriGeometryType.esriGeometryPolygon
Dim feature As IFeature = resultLayer.FeatureClass.CreateFeature()
feature.Shape = resultGeometry
resultLayer.Name = "Result Layer"
map.AddLayer(resultLayer)
axMapControl1.Refresh()

请注意，这只是代码的基本框架，需要根据实际情况进行修改和优化。