ArcGIS 前三分式的标注的实现

'----------FUNCTION STRLEN(STR)----------FUNCTION 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 functionFUNCTION myFind( cunname, DJH,SHAPE_Area )dim strstr=SHAPE_Areadim dd=strlen(str)dim d1dim d2d1=strlen(cunname) /2d2=strlen(DJH) /2if d2>d1 thend1=d2end ifmyFind ="　" & space(d-1) &cunname & vbnewline & str & string(d1, "—") & vbnewline & space(d) & DJHEND Function'编制日期:2012-03-25Function FindLabel ([TBBH] , [DLBM] , [QSDWMC] , [QS])FindLabel = myFind([TBBH]&[QS], [DLBM],[QSDWMC])End Function