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 ='　' & space(d-1) &cunname & vbnewline & str & string(d1, '—') & vbnewline & space(d) & DJH
END Function
'编制日期:2012-03-25
Function FindLabel ([TBBH] , [DLBM] , [QSDWMC] , [QS])
FindLabel = myFind([TBBH]&[QS], [DLBM],[QSDWMC])
End Function