サポート

FAQ
フィーチャクラスの空間インデックス･サイズの推奨値を計算する方法

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

【概要】

フィーチャクラスの空間インデックス･サイズの推奨値を計算する方法を示します。

【手順】

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

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


Public Sub CalcSpatialIndex()

  Dim pGxApp As IGxApplication
  Dim pGxDataset As IGxDataset
  Dim pDataset As IDataset
  Dim pFClass As IFeatureClass
  Dim pFCursor As IFeatureCursor
  Dim pFeature As IFeature
  Dim dblTotal As Double
  Dim iFCount As Integer

  Set pGxApp = Application
  If pGxApp.SelectedObject Is Nothing Then
    MsgBox "フィーチャクラスを選択してください"
    Exit Sub
  End If

  If Not TypeOf pGxApp.SelectedObject Is IGxDataset Then
    MsgBox "フィーチャクラスを選択してください"
    Exit Sub
  End If

  Set pGxDataset = pGxApp.SelectedObject
  Set pDataset = pGxDataset.Dataset
  Set pFClass = pDataset

  If pFClass.ShapeType = esriGeometryPoint Then
    MsgBox "ラインあるいはポリゴンフィーチャクラスを選択してください"
    Exit Sub
  End If

  Set pFCursor = pFClass.Search(Nothing, False)
  Set pFeature = pFCursor.NextFeature
  dblTotal = 0
  iFCount = 1
  Do Until pFeature Is Nothing
    dblTotal = dblTotal + ((pFeature.Extent.Height + pFeature.Extent.Width) / 2)
    Set pFeature = pFCursor.NextFeature
    iFCount = iFCount + 1
  Loop

  MsgBox "空間インデックスの推奨値: " & Round(((dblTotal / iFCount) * 3), 2)




End Sub