002集—二分式标注和三分式标注详解——arcgis

yngsqq

于 2024-02-02 10:50:47 发布

阅读量1.2k

点赞数 8

分类专栏： arcgisGIS 文章标签： arcgis 算法 javascript

本文链接：https://blog.csdn.net/yongshiqq/article/details/135988806

版权

arcgisGIS 专栏收录该内容

7 篇文章 0 订阅

订阅专栏

以国土三调土地利用现状库未利，标注地类编码、地类名称和权属单位名称，方法如下：

直接上代码：

二分式：

FUNCTION myFind( DZM, NAME )
    a=strlen(dzm) 
    b=strlen(NAME)
    IF a>b then 
        myFind ="<und>" & DZM &"</und>" & vbcrlf & NAME
    ELSE
        str= space((b-a)/2)
        myFind ="<und>" & str & DZM &str &"</und>" & vbcrlf & NAME
    END if
END Function
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 FindLabel ([DLBM],[TBBH])
  FindLabel = myFind([DLBM],[TBBH])
End Function

三分式：

'by qq443440204-------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
    if d1<1 then  
        d1=1
    end if
    d2=strlen(DJH) /2
    if d2<1 then  
        d2=1
    end if
    if d2>d1 then
         d1=d2
   end if 
    myFind = cunname & space(d) & vbnewline  & string(d1,"—") & str & vbnewline & DJH & space(d)
END Function
'编制日期:2024-02-02
Function FindLabel ([DLMC],[DLBM],[QSDWMC])
    FindLabel = myFind([DLMC],[DLBM],[QSDWMC])
End Function