ARCGIS林业小班勾绘问题

问题1 ：右键点击“小班”图层，打开图层的“属性”

           在“符号系统”中选择“类别>>>唯一值多个字段”，分别选上：“小班号”和“小班面积”。点击“添加所有值”，然后确定即可

问题2：右键点击“小班”图层，打开图层的“属性”

          在“标注”中点击“表达式”，代码栏里输入“[小班号] &[小班面积]”，标注其它属性也是同理，调字体颜色什么的就不多说了，勾上“标注此图层中要素”，点击确定即可。

具体的看图吧

问题1：

问题2

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]换成你的村的字段。

---