arcengine 放大到选择集，Zoom to selected features using ArcObjects -优快云博客

本文链接：https://blog.youkuaiyun.com/gisoracle/article/details/4320925

本文介绍如何利用VBA和ArcObjects技术在ArcMap中实现对选定图层特征的缩放功能。通过编写VBA代码，可以轻松地使地图视图聚焦到已选择的地理特征上。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Zoom to selected features using ArcObjects

Summary

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

Start ArcMap.
Create a new UIButtonControl.
Right-click the UIButtonControl and select View Source.
Copy this code into the

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.

来自：http://www.cnblogs.com/iswszheng/archive/2009/05/15/1457598.html