YouTube | Facebook | Twitter  Feed

フィールドにインクリメントした数字を挿入する方法

2016/9/1 (木)

'------
'演算式
'  Static recno As Long
'  recno = recno + 1
'
'フィールド名=
'  recno
 
'※フィールド演算の高度な設定で書いた変数はPublicなので残っている。
 
'------
'フィールド演算相当の機能
Sub test()
    Dim i1 As Integer
    Dim i2 As Integer
    Dim i3 As Long
     
    i1 = 0  '対象レイヤ
    i2 = 4  'フィールドのインデックス番号
    i3 = 0  'フィールドに書き出し始める数値
     
    Dim pMxDoc As IMxDocument
    Set pMxDoc = ThisDocument
     
    Dim pFLayer As IFeatureLayer
    Set pFLayer = pMxDoc.FocusMap.Layer(i1)
     
    Dim pFeatureCursor As IFeatureCursor
    Set pFeatureCursor = pFeatureClass.Update(Nothing, False)  'QueryFilter:検索条件
     
    Dim pFeature As IFeature
    Set pFeature = pFeatureCursor.NextFeature
     
    Do Until pFeature Is Nothing
         
        pFeature.Value(i2) = i3
        i3 = i3 + 1
         
        pFeatureCursor.UpdateFeature pFeature
        Set pFeature = pFeatureCursor.NextFeature
         
    Loop
End Sub

関連記事

  • この記事を書いた人

羽田 康祐

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

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

© 2020 WINGFIELD since1981