arcengine二次开发 通过ArcEngine二次开发实现将选中的点集转换成面涂层.docVIP

arcengine二次开发 通过ArcEngine二次开发实现将选中的点集转换成面涂层 导读：就爱阅读网友为您分享以下“通过ArcEngine二次开发实现将选中的点集转换成面涂层”的资讯，希望对您有所帮助，感谢您对92的支持! 本例要实现的功能是根据选中的Points创建一个Polygon，并且保存到Polygon类型的FeatureLayer中，要求被选择的Points最少为3个。 要点 根据选择的点创建一个Polygon，首先要判断生成的Polygon是否是Simple,这里用到接口 ITopologicalOperator2的属性IsSimple。如果不是,则要对做Polygon排序等处理。此外还用到了接口IPointCollection的方法ReplacePoints，进行点的交换。将排好序的点，按顺序创建Segment，运用实例化为Ring的ISegmentCollection接口方法AddSegment增加Segment。实例化为Polygon的 IGeometryCollection接口方法AddGeometry增加Ring。这样，通过上面的方法便可以创建Polygon。 程序说明 根据接口ITopologicalOperator2.IsSimple属性判断Polygon是否Simple。如果返回为False，就对Polygon上的点进行排序等处理，排好序后，找出X方向上值最大和最小的点，由这两点创建一条直线，将所有点分成在直线左边和右边两部分。 代码 Public Sub ConvertPointToPolygon() Dim pMxDoc As IMxDocument Dim pMap As IMap Dim pEnumFeature As IEnumFeature Dim pMultiPoint As IPointCollection Dim pMultiPointSorted As IPointCollection Dim pFeature As IFeature Dim pPointi As IPoint Dim pTopoOp As ITopologicalOperator2