第五章 arcgis分式标注.docxVIP

也谈分数标注的问题 经常被朋友问到分数标注的问题，如林班的标注。在坛子里搜索，大伙给出了很多方案。最常见的是勾选advance后，用VBA语言，利用“—”来划那条横线，或者利用对分子加下划线的形式加横线。下边看下具体例子【其中引用了很多以前坛子里大家滴成果】：1）如只想简单的标注成分数形式，那是很easy的，如以shape_length作分子，shape_area作分母，则其设置方式为：试验1：  HYPERLINK /ESRI/attachment.php?aid=MTY1NDA0fDUxN2Y2ZWEyfDEzNzE4MDY1NDZ8NjI3Nnk2VFl0NFhYTW9BUUxWRk9wNmZlUEt1K3pGbnFwWGl5ZjErRk9oTmxnOXM%3Dnothumb=yes \o 1.jpg \t _blank 下载 (156.26 KB) 1 小时前 图1 简单分数形式标注设置即，对分子[Shape_Length]字段加下划线，然后用vbnewline换行，再加上[Shape_Area]字段即可。 UND[Shape_Length]/UNDvbnewline[Shape_Area] 复制代码 此时存在的问题是，有可能分子的长度小于分母，导致下划线长度不够，缺少美观，改进方式为，增加长度判断，并以—代替下划线，则此时将分子、横线和分母，作三行显示。其设置如下：试验2  HYPERLINK /ESRI/attachment.php?aid=MTY1NDA1fGIzZjVjMWQxfDEzNzE4MDY1NDZ8NjI3Nnk2VFl0NFhYTW9BUUxWRk9wNmZlUEt1K3pGbnFwWGl5ZjErRk9oTmxnOXM%3Dnothumb=yes \o 2.jpg \t _blank 下载 (147.12 KB) 1 小时前 图2 调整中间横线长度的设置用len([字段])来获取字段值的长度，如12.34，其长度为4，而123.45，其长度为5。用if..then..end if条件判断语句，使max取得最长字段的长度，作为—长度计算值。string(int(max/2),—)的作用为：绘制int(max/2)个—，而int(max/2)是因为一个中文输入法下的—占据了2个英文字符的长度，因此要除2取整。 Function FindLabel ( [Shape_Length], [Shape_Area], [DM] ) max=len( [Shape_Length] ) if maxlen([Shape_Area]) then max=len([Shape_Area]) end if FindLabel =[Shape_Length] vbnewline[DM]string(int(max/2),—)vbnewline [Shape_Area] End Function 复制代码 标注作如上设置，使其聚合：  HYPERLINK /ESRI/attachment.php?aid=MTY1NDA2fDdkOTI1MjkyfDEzNzE4MDY1NDZ8NjI3Nnk2VFl0NFhYTW9BUUxWRk9wNmZlUEt1K3pGbnFwWGl5ZjErRk9oTmxnOXM%3Dnothumb=yes \o 3.jpg \t _blank 下载 (127.01 KB) 1 小时前 图3 解决标注行间过于分散的设置完成上述设置，则纯粹的分子/分母的标注形式就完成了。但往往我们的需求不止于此，还需要在分数的左边再加一个字段，如图：试验3：  HYPERLINK /ESRI/attachment.php?aid=MTY1NDA3fDU5NTZhNTYyfDEzNzE4MDY1NDZ8NjI3Nnk2VFl0NFhYTW9BUUxWRk9wNmZlUEt1K3pGbnFwWGl5ZjErRk9oTmxnOXM%3Dnothumb=yes \o 4.jpg \t _blank 下载 (156.55 KB) 1 小时前 图4 3个字段的分数形式设置即，在上一步的基础上，对分子，分母前分别加上与[DM]字段等长的空格，用s=string(len([DM]), )表示。然后把[DM]字面放在横线所在行即可。 Function FindLabel ( [Shape_Length], [Shape_Area], [DM] ) max=len( [Shape_Length] ) if maxlen([Shape_Area]) then max=len([Shape_Area]) end if s=string(len([DM]), )