标注的具体步骤：
1. 打开ArcMap，添加需要标注的图层。
2. 点击该图层属性（layer properties）对话框中的标注（label）标签，点击Expression按钮。
3. 在Label Expression对话框中，选中Advanced复选框，在Expression框里即可见FindLabel()函数的桩代码。
4. 将光标移至FindLabel后面的括号里，在Label Fields中双击需要使用的字段的字段名。
5. 在Expression表达式里书写VBScript代码（如下）。
6. 通过给函数名赋值返回字符串（例如：FindLabel = aString）。
7.最后点击Verify按钮，验证代码是否正确，如果代码无误，ArcMap将显示标注的样例。
该方法的优点就是迅速，只需几秒钟就可以标注上百个多边形（尽管标注的速度与PC机性能及网络速度有关）。
该方法的缺点是它要创建、打开再关闭数据库连接，并且为地图上的每一个可见要素做查询。需要做很多要素的标注时，这样的动作会使处理速度减慢，增加网络流量。解决此问题的一个方法就是设置可见比例尺（Scale Range）。在LayerProperties对话框的Label标签里，点击Scale Range按钮，定义标注的可见比例尺范围。
VBScript代码如下：
Function FindLabel (
[OBJECTID] )
Dim strPrclQry, strInfostrPrclQry = "SELECT OWNER_NAME FROM aTABLE WHERE OBJECTID = ' " & [OBJECTID] & " ' "Dim ADOConnset ADOConn = createobject("ADODB.Connection")Dim rsPrcl
set rsPrcl = createObject("ADODB.Recordset")
ADOConn.Open "PROVIDER=MSDAORA;Data Source=aDatabaseService;
User ID=aUserName;Password=aPassword"
ADOConn.CursorLocation = 3
rsPrcl.Open strPrclQry, ADOConn, 3, 1, 1
'如果没有找到记录，则返回空字符串
'如果找到多于一条的记录，则通过"<<More>>"来暗示含有多条业主信息
'可以做循环，直到标注出所有的业主信息
Select Case rsPrcl.RecordCount
Case -1, 0
strInfo = ""
Case 1
'只读取第一条记录
strInfo = trim(rsPrcl.Fields("OWNER_NAME").Value & " ") '在空值的情况下将出错
Case Else
strInfo = rsPrcl.Fields("OWNER_NAME").Value & "<< More >>"
End Select
'关闭连接
rsPrcl.Close
ADOConn.Close
Set rsPrcl = Nothing
Set ADOConn = Nothing
'返回字符串用于标注
FindLabel = strInfo
End Function
注意：在VBScript中，创建任何对象都要使用CreateObject()函数，并且要含有正确库名和对象名（例如：ADODB.Connection）。只要创建了Connection和RecordSet 对象，就可以使用正确的连接字符串打开数据库连接，通过一个正确的SQL语句打开RecordSet，使用带有字段名的RecordSet对象的Value属性获取数据。当获取数据之后，必须确保RecordSet和Connection对象关闭并且置空。
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。