ArcGIS 四分式标注实现

'----------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

Function FindLabel ([小班号],[林种],[树种],[小班面积],[完成面积],[密度],[完成情况],[类别] )
  FindLabel = myFind( [林种] & "-" & [小班面积] & "（" & [完成面积] & "）",[树种] & "-" & [密度] & "-" & [完成情况], [小班号],[类别])
End Function