gis 分子分母各式.docVIP

分数Label的实现 论坛上其实有过贴子写到如何来实现分数的Label,例如2---5实现的方法有很多，这里总结归纳一下。另外，针对存在问题，写一个解决方案。例如，我们可以在Label的表达式里面写上[FZ] chr(13)——chr(13) [FM]但这种存在的问题是距离太大了所以，又有人提出用UND [Shape_Length] /UND?? vbNewLine [Shape_Area] 的确，这个是很好的解决方案，但存在一个问题。UND是按照分子来画的，如果分子的数比较小，分数的比较大，这样就会很难看。? ? 3? ? --1234567那么怎么办呢？针对这个问题，我写了一个Label的函数，是基于VBScript的，基本上能解决此方案存在的问题。Function FindLabel ( [OBJECTID], [SHAPE_Area] )??Dim nFMLength??Dim nFZLength ??nFMLength = Len([SHAPE_Area])??nFZLength = Len([OBJECTID])??Dim strLeftSpace??Dim strRightSpace? ?strLeftSpace??= ? ? strRightSpace= ? ?? ? ? ?If nFMLength nF