zoukankan      html  css  js  c++  java
  • ArcGIS三分式标注、四分式标注和同时上下标实现

    部分内容来自《ArcGIS从0到1》,扫码下面加微信公众号,学习更多

    可以在:https://item.jd.com/12668816.html购买

    • 1.三分式有后三分式和前分式,后三分式多一些,如下:

      使用数据:“chp7三分式.mxd”文档,,系统标注的显示效果如下:               该标注格式为三分是标注,其中分子为图斑的地类代码,中间为分隔线+图斑的面积,分母为图斑的地类名称。实现该样式标注的详细VBscript代码如下:

    • 代码如下:'设计人:闫磊'----------FUNCTION STRLEN(STR)----------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   NEXTEND functionFUNCTION myFind(cunname,DJH,SHAPE_Area )   dim str   str=SHAPE_Area   dim d   d=strlen(str)   dim d1   dim d2   d1=strlen(cunname) /2   d2=strlen(DJH) /2   if d2>d1 then         d1=d2   end if   myFind = cunname & space(d) &vbnewline  & string(d1,"—") & str& vbnewline & DJH & space(d)END Function'修改这里Function FindLabel([DLBM],[DLMC],[shape_area]   ) FindLabel = myFind([DLBM],[DLMC],Round([shape_area]*3/2000,1) &"亩" )End Function

    修改FindLabel函数参数,可以是三个,也可以是更多参数;如该函数的标注处理效果,使得字体间隔不符合使用要求的,还需要设置标注字符的间距,具体操作如图所示。

     标注字体符号设置

    在该图层的属性界面的“标注”选项中,单击“符号”按钮,出现如图所示:

    图7-107 编辑字体符号

    单击“编辑符号”,切换到格式化文本,设置字符间距和行距,都设置为负值,根据效果设置,如图所示。

    设置字体间距和行间距

    • 2.前三分式,效果如下:

    '----------FUNCTION STRLEN(STR)----------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 myFind( cunname, DJH,SHAPE_Area ) dim str str=SHAPE_Area dim d d=strlen(str) dim d1 dim d2 d1=strlen(cunname) /2 d2=strlen(DJH) /2 if d2>d1 then d1=d2 end if myFind =" " & space(d-1) &cunname & vbnewline & str & string(d1, "—") & vbnewline & space(d) & DJH END Function
    '编制日期:2012-03-25Function FindLabel ([小班号],[林种],[树种],[小班面积],[完成面积],[密度],[完成情况]) FindLabel = myFind( [林种] & "-" & [小班面积] & "(" & [完成面积] & ")",[树种] & "-" & [密度] & "-" & [完成情况], [小班号])End Function

    设置和上面一样

    • 3.四分式,效果如下:

    '----------FUNCTION STRLEN(STR)----------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 myFind( cunname, DJH,SHAPE_Area,lb ) dim str str=SHAPE_Area dim d d=strlen(str) dim d1 dim d2 d1=strlen(cunname) /2 d2=strlen(DJH) /2 if d2>d1 then d1=d2 end if myFind =" " & space(d-1) &cunname & vbnewline & str & string(d1, "—") & lb & vbnewline & space(d) & DJH END Function
    '编制日期:2012-03-25Function FindLabel ([小班号],[林种],[树种],[小班面积],[完成面积],[密度],[完成情况],[类别] ) FindLabel = myFind( [林种] & "-" & [小班面积] & "(" & [完成面积] & ")",[树种] & "-" & [密度] & "-" & [完成情况], [小班号],[类别])End Function

    • 4.上下标同时,效果如下

      代码如下

    • Function FindLabel ( [NAME] )
      Dim lLen
      lLen=StrLen( [NAME] )/2
      Dim i
      Dim sStr
      sStr=""
      i=0
      Do While i<lLen * 2
      sStr=sStr & " "
      i=i+1
      Loop
      FindLabel = [NAME] & "<SUP>" & "上面" & vbcrlf & sStr & "下面" & "</SUP>"
      End Functionfunction strlen(str)dim p_lenp_len=0strlen=0p_len=len(str)for xx=1 to p_lenif asc(mid(str,xx,1))<0 thenstrlen=int(strlen) + 2elsestrlen=int(strlen) + 1end ifnextend function

    来自:https://mp.weixin.qq.com/s?__biz=MzUxMTY4ODY5Mw==&mid=2247483920&idx=1&sn=5551ab658e31856ca13f8a1d298f5cd3&chksm=f96ea88ace19219cc1dd67264fd0758ba8b84179c07d49bb6b0e0c77fbed67c741e095ed4e7d&mpshare=1&scene=23&srcid=0724g8BtYmJAeOUZAStJ2dtU&sharer_sharetime=1595548963585&sharer_shareid=7148a001c4203b53e043c2b97146c8ed#rd

  • 相关阅读:
    APP版本更新通知流程测试要点
    Android+appium +python 点击坐标tap方法的封装
    appium 元素定位find_element_by_android_uiautomator方法使用
    Android 应用加固(乐固)操作说明
    查询APP Store已发布过的版本记录
    appium 报错:AttributeError:"NoneType' object has no attribute 'XXX'
    appium 运行报错:...... Attempt to re-install io.appium.settings without first uninstalling解决方案
    Charles模拟网络请求页面的网络超时测试
    利用漏洞中验证码绕过的小技巧
    C中的volatile用法
  • 原文地址:https://www.cnblogs.com/gisoracle/p/13427668.html
Copyright © 2011-2022 走看看