Question

怎样在ARCGIS里属性表里自动添加小班东,南,西,北四点坐标

Answer 1

vba部分：

Static d As Object
Static i As Long
Dim lSerial As Long
Dim sField
Dim a
Dim b

sField = [XZQHMC]

If (i = 0) Then
Set d = CreateObject("Scripting.Dictionary")
End If
If (d.Exists(CStr(sField))) Then
lSerial = d.Item(CStr(sField)) + 1
d.Item(CStr(sField)) = lSerial
Else
lSerial = 1
d.Add CStr(sField), lSerial
End If
i = i + 1
a=Format( lSerial, "0000")
b=a

赋值部分：
b

[XZQHMC]换成你的村的字段。