如何计算选择集范围

       计算选择集的范围

       Dim pFSel as IFeatureSelection

       pFSel = pFeatureLayer.FeatureSelection ' point to your selection of layer

       'Get the selected features

       Dim pSelSet As ISelectionSet

       Set pSelSet = pFSel.SelectionSet

       '将选择集绑定到枚举器、

       Dim pEnumGeom As IEnumGeometry

       Dim pEnumGeomBind As IEnumGeometryBind

       Set pEnumGeom = New EnumFeatureGeometry

       Set pEnumGeomBind = pEnumGeom

       pEnumGeomBind.BindGeometrySource Nothing, pSelSet

       ’由几何引擎创建聚合图形[GeometryBag]

       Dim pGeomFactory As IGeometryFactory

       Set pGeomFactory = New GeometryEnvironment

       Dim pGeom As IGeometry

       Set pGeom = pGeomFactory.CreateGeometryFromEnumerator(pEnumGeom)

       pDoc.ActiveView.Extent = pGeom.Envelope