从国土三调实战出发：ArcGIS中二分与三分式标注的VBScript实现与优化

1. 国土三调中的标注需求解析

在国土三调工作中，土地利用现状数据库的标注是个让人头疼的问题。我参与过多个地区的三调项目，发现标注不规范会导致图面混乱，严重影响成果质量。最常见的需求是要同时显示地类编码（DLBM）、地类名称（DLMC）和权属单位名称（QSDWMC），这就涉及到多行文本的排版问题。

传统的手动标注方式效率极低，一个县区的数据可能包含上万个图斑，每个都手动调整位置根本不现实。这时候就需要借助ArcGIS的标注引擎和VBScript脚本来自动化处理。经过多次实践，我发现二分式（上下两行）和三分式（三行）是最实用的两种排版方式。

二分式适合显示核心属性，比如地类编码+地类名称，或者地类编码+权属单位。三分式则能完整展示所有关键信息。但直接使用ArcGIS的默认多行标注功能会出现对齐不整齐、间距不一致的问题，特别是中英文混排时更明显。

2. 二分式标注的VBScript实现

2.1 基础代码解读

先来看二分式标注的核心代码，这是我优化过的版本：

vbscript复制FUNCTION myFind(DZM, NAME)
    a = strlen(dzm)
    b = strlen(NAME)
    IF a > b THEN
        myFind = "<und>" & DZM & "</und>" & vbcrlf & NAME
    ELSE
        str = space((b-a)/2)
        myFind = "<und>" & str & DZM & str & "</und>" & vbcrlf & NAME
    END if
END Function

FUNCTION strlen(str)
    dim p_len
    p_len=0
    strlen=0
    p_len=len(str)
    FOR xx=1 to p_len
        IF asc(mid(str,xx,1))<0 THEN
            strlen=int(strlen) + 2
        ELSE
            strlen=int(strlen) + 1
        END if
    NEXT
END function

Function FindLabel ([DLBM],[TBBH])
    FindLabel = myFind([DLBM],[TBBH])
End Function

这段代码的关键点在于strlen函数，它解决了中文字符长度计算的问题。ASC码小于0的字符（如中文）按2个字符宽度计算，英文和数字按1个字符计算。这样计算出的字符串显示宽度更准确。

myFind函数实现了智能居中功能：当上行的地类编码比下行的名称短时，会自动在编码两侧添加空格使其居中显示。<und>标签可以让上行的文字加粗显示，增强视觉层次感。

2.2 实际应用中的优化技巧

在实际项目中，我发现原始代码有几个可以改进的地方：

1. 异常处理：当字段值为NULL时，脚本会报错。建议增加判空逻辑：

vbscript复制IF IsNull(DZM) OR IsNull(NAME) THEN
    FindLabel = ""
    Exit Function
END IF

2. 间距调整：默认的换行符(vbcrlf)间距可能过大，可以改用HTML换行标签并控制行高：

vbscript复制myFind = "<und>" & DZM & "</und>" & "<br>" & NAME

然后在标注属性里设置HTML渲染，并调整行高参数。

3. 字体控制：可以通过HTML标签实现更丰富的样式：

vbscript复制myFind = "<CLR red='255'><und>" & DZM & "</und></CLR><br>" & _
         "<FNT name='Arial'>" & NAME & "</FNT>"

3. 三分式标注的进阶实现

3.1 核心代码分析

三分式标注的复杂度明显提升，下面是经过实战检验的代码：

vbscript复制FUNCTION myFind(cunname,DJH,SHAPE_Area)
    dim str
    str = SHAPE_Area
    dim d
    d = strlen(str)
    dim d1
    dim d2
    d1 = strlen(cunname)/2
    if d1<1 then d1=1 end if
    d2 = strlen(DJH)/2
    if d2<1 then d2=1 end if
    if d2>d1 then d1=d2 end if
    
    myFind = cunname & space(d) & vbnewline & _
             string(d1,"—") & str & vbnewline & _
             DJH & space(d)
END Function

Function FindLabel ([DLMC],[DLBM],[QSDWMC])
    FindLabel = myFind([DLMC],[DLBM],[QSDWMC])
End Function

这段代码实现了三行文本的智能排版：

• 第一行显示地类名称（DLMC）
• 第二行用横线分隔并显示地类编码（DLBM）
• 第三行显示权属单位（QSDWMC）

3.2 排版优化的五个要点

1. 动态分隔线：string(d1,"—")会根据文本宽度自动生成合适长度的分隔线，比固定长度更美观。

2. 右对齐留白：space(d)在首行和末行右侧添加空白，使整体布局更平衡。

3. 宽度自适应：通过比较三行文本的宽度，自动调整排版参数。

4. 特殊字符处理：当字段值包含括号、百分号等特殊字符时，需要额外处理：

vbscript复制cunname = Replace(cunname, "%", "%%")

5. 性能优化：在大数据量情况下，可以预计算字符串长度减少重复运算。

4. 实战中的常见问题与解决方案

4.1 中文对齐问题

最常见的困扰是中英文字符宽度不一致导致的对齐偏差。除了使用我们自定义的strlen函数外，还可以：

1. 统一使用中文字体（如微软雅黑），避免混合字体。
2. 对于固定格式的编码（如"0102"），可以预先计算其显示宽度。
3. 在关键位置插入全角空格（chr(12288)）进行微调。

4.2 性能优化技巧

当处理上万条记录时，脚本性能变得很重要。我总结了几点经验：

1. 减少函数调用：将strlen函数内联到主函数中，减少调用开销。
2. 使用数组缓存：预先计算常用字符串的长度并缓存。
3. 简化逻辑判断：避免在循环中进行复杂条件判断。
4. 字段预处理：在Python脚本中先处理好字段值，再交给VBScript标注。

4.3 复杂场景处理

实际项目中会遇到各种特殊情况：

1. 超长文本处理：当权属单位名称过长时，可以自动截断并添加省略号：

vbscript复制IF strlen(QSDWMC) > 20 THEN
    QSDWMC = left(QSDWMC,10) & "..."
END IF

2. 多条件排版：根据地类类型采用不同排版样式：

vbscript复制SELECT CASE DLBM
    CASE "0101", "0102"
        '耕地使用特殊样式
    CASE ELSE
        '默认样式
END SELECT

3. 动态内容生成：根据比例尺自动调整显示内容：

vbscript复制IF [Shape_Area] < 1000 THEN
    '小图斑简化显示
END IF

5. 高级应用与扩展思路

5.1 交互式标注调整

通过Python脚本与VBScript配合，可以实现更智能的标注：

1. 动态参数调整：创建ArcGIS工具让用户输入排版参数。
2. 样式模板：预设多种标注样式供用户选择。
3. 实时预览：开发自定义工具实现标注效果的实时预览。

5.2 与其他工具集成

1. Python脚本联动：用arcpy预处理数据，再调用VBScript标注。
2. 标注冲突检测：结合ArcGIS的标注引擎设置解决标注压盖问题。
3. 批量导出设置：将标注配置保存为样式文件，方便团队共享。

5.3 跨平台解决方案

虽然VBScript是ArcGIS的传统方案，但也可以考虑：

1. Python标注表达式：ArcGIS Pro支持Python标注，更现代强大。
2. Arcade表达式：Esri新一代的轻量级脚本语言。
3. 自定义标注引擎：对于特别复杂的需求，可以开发独立标注工具。

在实际的三调项目中，我建议先用VBScript实现基础功能，再根据项目需求逐步引入这些高级技术。特别是在处理省级或国家级大型数据库时，前期的标注方案设计会直接影响后期制图效率。