http://arcscripts.esri.com/details.asp?dbid=12224
Вот готовое выражение для калькулятора:
'=========================
'rec_Number.cal
'Author: Ianko Tchoukanski
'
http://www.ian-ko.com
'=========================
Static rec As Long
Static i As Long
Dim lStart As Long
Dim lInterval As Long
'=================
'adjust start value and interval below
lStart = 1
lInterval = 1
'=================
If (i = 0) Then
rec = lStart
Else
rec = rec + lInterval
End If
i = i + 1
__esri_field_calculator_splitter__
rec