arcengine 放大到选择集，Zoom to selected features using ArcObject

In ArcMap you can zoom to the selected features for a layer by
right-clicking the layer and selecting Selection > Zoom to Selected
Features. This article shows how to do this task using VBA and
ArcObjects.

Procedure

1. Start ArcMap.
2. Create a new UIButtonControl.
   
   
3. Right-click the UIButtonControl and select View Source.
4. Copy this code into the
   <!– <br />
   <br />
   Code highlighting produced by Actipro CodeHighlighter (freeware)<br />
   http://www.CodeHighlighter.com/<br />
   <br />
   –>Private
    
   Sub UIButtonControl1_Click()
   Sub
    UIButtonControl1_Click()
   
     
   Dim
    pDoc 
   As
    IMxDocument
   
     
   Set
    pDoc 
   =
    ThisDocument
   
     
   Dim
    pMap 
   As
    IMap
   
     
   Set
    pMap 
   =
    pDoc.FocusMap
   
   
     
   Dim
    pLayer 
   As
    IFeatureLayer
   
     
   Dim
    pFSel 
   As
    IFeatureSelection
   
     
   Set
    pLayer 
   =
    pMap.Layer(
   0
   )
   
     
   Set
    pFSel 
   =
    pLayer
   
   
     
   ‘
   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
   
   
     
   Dim
    pGeomFactory 
   As
    IGeometryFactory
   
     
   Set
    pGeomFactory 
   =
    
   New
    GeometryEnvironment
   
   
     
   Dim
    pGeom 
   As
    IGeometry
   
     
   Set
    pGeom 
   =
    pGeomFactory.CreateGeometryFromEnumerator(pEnumGeom)
   
   
     pDoc.ActiveView.Extent 
   =
    pGeom.Envelope
   
     pDoc.ActiveView.Refresh
   
   
   End Sub
   

   ‘s click event.

转载自：https://blog.csdn.net/liqiangcskm/article/details/83532514