YouTube | Facebook | Twitter  Feed

DataStatistics の操作

2016/9/1 (木)

Private Sub DataStatistics()
  Dim pMxDoc As IMxDocument, pFLayer As IFeatureLayer
  Dim pCursor As ICursor, pStatResults As IStatisticsResults
  Set pMxDoc = ThisDocument
  Set pFLayer = pMxDoc.FocusMap.Layer(0)
   
  Set pCursor = pFLayer.Search(Nothing, False)
   
  Dim pData As IDataStatistics
  Dim pEnumVar As IEnumVariantSimple
  Dim value As Variant
   
  Set pData = New DataStatistics
  pData.Field = "JCODE"
  Set pData.Cursor = pCursor    '取得されたいフィーチャクラスから取得したカーソル
  Set pEnumVar = pData.UniqueValues
   
  value = pEnumVar.Next
  Do Until IsEmpty(value)
    Debug.Print "value - " & value
    value = pEnumVar.Next
  Loop
   
    Set pCursor = pFLayer.Search(Nothing, False)
  Set pData.Cursor = pCursor
  Set pStatResults = pData.Statistics               '数値フィールド以外を指定するとArcMapがクラッシュする
  Debug.Print "平均 - " & pStatResults.Mean
   
End Sub

関連記事

  • この記事を書いた人

羽田 康祐

Esri認定インストラクター、GIS上級技術者、測量士補、潜水士。GISy / GISc とその関連分野である地理学・地図学について日々の出来事で学んだ記憶を記録するためにブログを書いています。行動原理は伊達と酔狂。好きな地形は圏谷。好きな地図投影法はパースクインカンシャル図法。呉市生まれ広島市出身。GIS を使った自己紹介はこちら

-プログラミング, ArcGIS
-,

© 2020 WINGFIELD since1981