ArcGIS label分数标注

ArcGIS label分数标注

Function FindLabel ( [OBJECTID], [SHAPE_Area] )

Dim nFMLength

Dim nFZLength

nFMLength = Len([SHAPE_Area])

nFZLength = Len([OBJECTID])

Dim strLeftSpace

Dim strRightSpace

strLeftSpace = ""

strRightSpace= ""

If nFMLength > nFZLength Then

For i=0 To (nFMLength-nFZLength)/2

strLeftSpace = strLeftSpace + chr(32)

strRightSpace = strRightSpace + chr(32)

Next

End If

FindLabel = "" & strLeftSpace & [OBJECTID] & strRightSpace &"" & chr(13) & chr(10) & [SHAPE_Area]

End Function

注：只需将分子字段[OBJECTID]、分母字段[SHAPE_Area] 替换为自身实际的字段。