サポート

FAQ
フィーチャからグラフィックのバッファポリゴンを作成する方法

ナレッジ番号：5469 | 登録日：2023/07/27 | 更新日：2024/12/02

【概要】

IFeatureCursorBufferを使用して選択したフィーチャからグラフィックの
バッファポリゴンを作成する方法を示します。

【手順】

ArcMapを起動します。
Visual Basic Editorを開きます。
プロジェクト･エクスプローラ･ウィンドウで、Projectの下にあるArcMap Objects > ThisDocumentをダブルクリックし、
コード･ウィンドウを開きます。

コード･モジュールに次のコードをペーストします。


Public Sub CreateBufferGraphics()

  Dim pDoc As IMxDocument
  Dim pFCBuff As IFeatureCursorBuffer2
  Dim pLayer As IFeatureLayer
  Dim pFS As IFeatureSelection
  Dim pSS As ISelectionSet
  Dim pSpatRef As ISpatialReference
  Dim pFeature As IFeature
  Dim pFCursor As IFeatureCursor
  Dim pCompGraphicsLayer As ICompositeGraphicsLayer

  


Set pDoc = ThisDocument

  'TOC内で選択されているフィーチャレイヤを取得します。
  Set pLayer = pDoc.SelectedLayer
  Set pFS = pLayer 'QI

  '選択フィーチャを取得します。
  Set pSS = pFS.SelectionSet
  Set pSpatRef = pDoc.FocusMap.SpatialReference

  Set pCompGraphicsLayer = pDoc.FocusMap.BasicGraphicsLayer

  pSS.Search Nothing, False, pFCursor

  'FeatureCursorを処理します。
  Set pFCBuff = New FeatureCursorBuffer

  'FeatureCursorBufferのプロパティを設定します。
  With pFCBuff
    Set .BufferSpatialReference = pSpatRef
    Set .DataFrameSpatialReference = pSpatRef
    .Dissolve = False
    Set .FeatureCursor = pFCursor
    Set .SourceSpatialReference = pSpatRef
    Set .SpatialReference = pSpatRef
    Set .TargetSpatialReference = pSpatRef
    .Units(pDoc.FocusMap.MapUnits) = 9

    'バッファ距離を指定します。
    .ValueDistance = 1000
  End With

  pFCBuff.BufferToGraphics pCompGraphicsLayer
  pDoc.ActiveView.Refresh

End Sub

コード内のValueDistanceプロパティに指定する値は適宜変更してください。
この値はバッファ距離(単位：Unitsプロパティで指定)です。
Visual Basic Editorを閉じます。
ArcMapにフィーチャクラスを追加し、1つ以上のフィーチャを選択します。
バッファポリゴンを作成する対象レイヤをTOCから選択し、マクロを実行します。

A：ArcMapで、ツール > マクロ > マクロと選択し、マクロ･ダイアログを表示します。

B：マクロを選択し、実行をクリックします。