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

'编制日期:2012-03-25
Function FindLabel([DZM],[NAME], [area_1]   )
  FindLabel = myFind([NAME],[DZM],Round([area_1]/1000000,1) & '平方公里' )
End Function