一、普通模式
1、标注：名称和面积（无分数线）
语言：Arcade
feature.QLR +'\\n'+Round(feature.Shape_Area,2)
语言：vbscript
QLR\] \& " " \& Round(\[Shape_Area\],2)  2、标注：名称和宗地号（放大是虚线） 语言：vbscript Space(1) \& \[QLR\] \& vbNewLine \& "------------" \& Space(1) \& vbNewLine \& \[ZDDM
3、标注：名称和宗地号（解决分数线打印为虚线的问题）
语言：vbscript
Space(1) & [QLR] & vbNewLine & "<CHR spacing = '" & -1 * Int(10) & "'>" + "----------" + "</CHR>" & Space(1) & vbNewLine & [ZDDM]
4、标注：名称和宗地号及面积注记(未左对齐)
语言：vbscript
Space(1) & [QLR] & vbNewLine & "<CHR spacing = '" & -1 * Int(10) & "'>" + "-----" + "</CHR>" & Space(1) & Round([Shape_Area],2) & vbNewLine & [ZDDM]
5、标注：名称和宗地号及面积注记(推荐)
语言：vbscript
"<und>" & [ZDDM] &"---"& [QLR] & "</und>" & vbnewline & [FRMC] & "---" & [FRDHHM]
二、高级模式
1、二分式对齐标注
语言：vbscript
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 ( DZM, NAME )
If dzm<>"" Then a=strlen(dzm) Else a=0
If NAME<>"" Then b=strlen(NAME) Else b=0
If a>b Then
myFind ="<und>" & DZM & "</und>" & vbnewline & NAME
Else
str= Space((b-a)/2)
myFind ="<und>" & str & DZM & str & "</und>" & vbnewline & NAME
End If
End Function
'编制日期:2012-07-30
Function FindLabel ([ZDDM],[QLR])
FindLabel =myFind([ZDDM],[QLR])
End Function
2、三分式对齐标注
语言：vbscript
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=Round(SHAPE_Area,2)
Dim d
d=strlen(str)
Dim d1
Dim d2
If cunname<>"" Then d1=strlen(cunname) /2 Else d1=0
If d1<1 Then
d1=1
End If
If DJH<>"" Then d2=strlen(DJH) /2 Else d2=0
If d2<1 Then
d2=1
End If
If d2>d1 Then
d1=d2
End If
myFind = cunname & Space(d/2) & vbnewline & String(d1,"---") & str & vbnewline & DJH & Space(d/2)
End Function
'编制日期:2012-07-30
Function FindLabel ([ZDDM],[QLR],[Shape_Area])
FindLabel =myFind([ZDDM],[QLR],[Shape_Area])
End Function
3、三分式对齐标注（前）
语言：vbscript
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=Round(SHAPE_Area,2) & " "
Dim d
d=strlen(str)
Dim d1
Dim d2
If cunname<>"" Then d1=strlen(cunname) /2 Else d1=0
If d1<1 Then
d1=1
End If
If DJH<>"" Then d2=strlen(DJH) /2 Else d2=0
If d2<1 Then
d2=1
End If
If d2>d1 Then
d1=d2
End If
myFind = Space(d/2) & cunname & vbnewline & str & String(d1, "---") & vbnewline & Space(d/2) & DJH
End Function
'编制日期:2012-07-30
Function FindLabel ([ZDDM],[QLR],[Shape_Area])
FindLabel =myFind([ZDDM],[QLR],[Shape_Area])
End Function
