首页 | 新闻 | 交流 | 问吧 | 文档 | 手册 | 下载 | 博客

arcgis 10分式注记

作者:  时间: 2010-10-25
  • cxli068

  • tj051181

  • surveyboy

  • 北方的郎

  • 谢谢myfwhy和Lucy1114,现在终于解决了。"<chr spacing=' '>" & string(a," ") & "</chr>" 可以在标注的情况下调整分子在分数线上的位置,space(a)不能,两个都能调整分母在分数线下的位置。但当分数线的宽度是双数时,在标注状态下,不管怎么调整a的值,"<chr spacing=' '>" & string(a," ") & "</chr>" 都不能使分子正对分数线中点,转换为注记也不能,而space(a)在标注状态下虽不能使分子正对分数线中点,但转换为注记后不管分数线的宽度为多少,都能对准分数线中点。所以,最后我选用注记来标注要素。代码如下
    Function FindLabel ( [XBH] , [mj] , [SZ1C]  )
    dim a ,b,c,d
    a=len( [XBH])
    b=len([mj])
    c=len([SZ1C])
    if (b>c) then
       d=b
      else
        d=c
    end if
      FindLabel =space(a) & "<FNT name='楷体_GB2312'>" & [SZ1C] &"</FNT>" & vbnewline & [XBH] & string(d*0.6,"—") & vbnewline & space(a) &  [mj]
    End Function
    效果图如下
    arcgis10分式标注3.jpg


    arcgis10分式标注4.jpg

    下载 (27.32 KB)
    2010-9-9 09:55


    这代码昨晚在9.2中试用过,效果和10的一样好。

来自http://bbs.esrichina-bj.cn/ESRI/viewthread.php?tid=76195&highlight=arcgis%2B10