谈ArcGIS分数标注的问题 分子分母形式

经常被朋友问到分数标注的问题,如林班的标注。在坛子里搜索,大伙给出了很多方案。最常见的是勾选advance后,用VBA语言,利用“—”来划那条横线,或者利用对分子加下划线的形式加横线。下边看下具体例子。


1)如只想简单的标注成分数形式,那是很easy的,如以shape_length作分子,shape_area作分母,则其设置方式为: 试验1:

即,对分子[Shape_Length]字段加下划线,然后用vbnewline换行,再加上[Shape_Area]字段即可。

1.  ""&[Shape_Length]&""&vbnewline&[Shape_Area]


谈ArcGIS分数标注的问题 分子分母形式_第1张图片


谈ArcGIS分数标注的问题 分子分母形式_第2张图片




此时存在的问题是,有可能分子的长度小于分母,导致下划线长度不够,缺少美观,改进方式为,增加长度判断,并以"—"代替下划线,则此时将分子、横线和分母,作三行显示。其设置如下:试验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取整。

1.  Function FindLabel ( [Shape_Length], [Shape_Area], [DM] )

2.  max=len( [Shape_Length] )

3.  if max

4.  max=len([Shape_Area])

5.  end if

6.  FindLabel =[Shape_Length] &vbnewline&[DM]&string(int(max/2),"—")&vbnewline& [Shape_Area]

7.  End Function

标注作如上设置,使其聚合




谈ArcGIS分数标注的问题 分子分母形式_第3张图片


完成上述设置,则纯粹的分子/分母的标注形式就完成了。但往往我们的需求不止于此,还需要在分数的左边再加一个字段,如图:试验3:

谈ArcGIS分数标注的问题 分子分母形式_第4张图片

即,在上一步的基础上,对分子,分母前分别加上与[DM]字段等长的空格,用s=string(len([DM])," ")表示。然后把[DM]字面放在横线所在行即可。

1.  Function FindLabel ( [Shape_Length], [Shape_Area], [DM] )

2.  max=len( [Shape_Length] )

3.  if max

4.  max=len([Shape_Area])

5.  end if

6.  s=string(len([DM])," ")

7.  FindLabel = s&[Shape_Length] &vbnewline&[DM]&string(int(max/2),"—")&vbnewline&s& [Shape_Area]

8.  End Function

理论上可行,但我们发现空格好像被忽略了,不论对变量s增加多少个空格长度,分子分母都总要往左挤。为此,我试验了很多方法,把代码修改来修改去,始终无法达以完美的效果。突然意识到,这个问题跟代码无关,而应该跟arcmap内部的设置有关。的确,仔细看上述所有试验的标注发现两点:1)标注是默认居中对齐的(试验1、2可以看以明显效果)2)系统默认把我加的空格给忽略掉了。(这是导致试验3无效的主因)从上述着手,我找到两种不同的解决方案。对于10.1及以后版本中,maplex增加了一个细小的新功能:

谈ArcGIS分数标注的问题 分子分母形式_第5张图片

在label expression界面,切换到maplex选项卡,发现有一个叫remove extra space from label的功能项,默认设置是勾选的。它的作用为:去除标注中无效的空格,所谓无效,是指标注行开始和末尾处的空格。即,我们不论在分子或分母(因为此时分子、分母都是单独成行的)的前或后任意加多少空格,都会被忽视掉。因此,去除勾选后,查看效果图如下:试验4:


谈ArcGIS分数标注的问题 分子分母形式_第6张图片




注意,此时为了对齐,做了很多小改动,如增加了s0变量,以及对s变量的修改,s=string(len([DM])*2+s0," "),对[DM]长度*2的目的,也在于中文字符占两个字节长度而英文字符占一上字节长度。S0是取的是分子分母长度差的一半。则上述效果其实已经很好了,不需要再调试。

1.  Function FindLabel ( [Shape_Length], [Shape_Area], [DM] )

2.  max=len( [Shape_Length] )

3.  s0=int((max-len([Shape_Area]))/2)

4.  if max

5.  max=len([Shape_Area])

6.  s0=int((max-len([Shape_Length]))/2)

7.  end if

8.  s=string(len([DM])*2+s0," ")

9.  FindLabel = s&[Shape_Length]&vbnewline&[DM]&string(int(max/2),"—")&vbnewline&s&[Shape_Area]

10. End Function

但是,remove extra space from label作为10.1的新功能,那么在10.0及之前版本如何解决该问题呢?转Annotation再手动调试?麻烦得很。下边为10.0及之前版本的一个略有缺陷的解决方案:既然系统忽略的是空格,尝试把填充的空格改为其它字符,如"_"下划线,尽量使其与横线一致,是否可行?将remove extra...这一选项勾选上,并把试验4的代码修改s,效果图如下



谈ArcGIS分数标注的问题 分子分母形式_第7张图片


果然,分子和分母被移到右边去了。但显然这个效果并不是我们想要的。 依照这个思路,最终的解决方案为:把标注对齐方式改为右对齐,并在末尾处添加横线。1)修改标注的对齐方式为右对齐:


谈ArcGIS分数标注的问题 分子分母形式_第8张图片


2)修改标注代码:


bnewline& [Shape_Area]8.  End FunctionPS:当然,考虑过用&s1&"",将下划线颜色赋成白色使其隐形,结果发现无效,遂放弃。【不知道是否代码复杂的时候,该语句就无法识别导致。尝试过简易代码,一个标注中呈现两种颜色是可行的】



转至http://jingyan.baidu.com/article/046a7b3ec2e944f9c37fa96e.html


你可能感兴趣的:(ARCGIS)