メニュー

サポート

My Esri サイン イン

サポート トップ  >  表示  >  指定した縮尺で選択フィーチャにズームする方法

FAQ
指定した縮尺で選択フィーチャにズームする方法

ナレッジ番号：5523 | 登録日：2023/07/27 | 更新日：2024/11/21

【概要】

指定した縮尺でArcMap内の選択フィーチャにズームする方法を示します。


【手順】

  1. ArcMapを起動し、[ツール] > [マクロ] > [Visual Basic Editor]をクリックします。

  2. Visual Basic Editorウィンドウの左側にある[Normal](Normal.mxt)あるいは[Project]アイテムを開きます。

  3. [ArcMap Objects]アイテムを開きます。

  4. ThisDocumentモジュールを選択し、右クリックして[コードの表示]を選択します。

  5. 以下のコードをコピー&ペーストします。

    

'指定した縮尺で選択フィーチャにズームします
Sub ZoomSelectedToScale()

    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
    
    '選択フィーチャを取得します
    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.Refresh
    pDoc.ActiveView.Extent = pGeom.Envelope
    pMap.MapScale = 2000   'この値を希望の縮尺に変更します
    pDoc.ActiveView.Refresh

End Sub

  6. 'pMap.MapScale=2000'の2000の値を希望の縮尺に変更します。

  7. ArcMapに戻ります。必要であればレイヤを1つ追加し、フィーチャの選択ツールを使用して最上位レイヤからフィーチャをいくつか選択します。

  8. Visual Basic Editorに戻り、コードを実行します。



■関連情報

・指定した拡大率で拡大するボタンを作成する方法

メタデータ

機能

種類

製品

このナレッジはお役に立ちましたか？