程序代码:
6分子 ""& [备注] & "---" & [小班号] & "&"-"[类型]&vbnewline&" " & VbCrLf & "" & [造林树种] & "---" & [造林面积]"&vbnewline&[类型]
是这样吗
五分子式 "" &" " & [小班编号] &" "&"-" &" "& [小班面积] & " " & "" & vbNewLine & [年度] & "-" & [储备林] & "-" & [优势树种]
上下: ""& " " & [OLD] & " " &"" & vbcrlf & [name]
两上两下 ""& " " & [A02] &"- "& [A04] &"" & vbcrlf &[A06] &"-"& [A07]
1前1上1下 [MC] & chr(10) & [SSQY] & "------------ " & chr(10) & [SHAPE_Area]
A08\] \& "^" \& \[A04\] \& "^" 上标 \[A06\] \&"~" \& \[A06\] \& "~" 下标 程序代码: 1前2上2下 "" & "" & [a02] &"--- "& [a04] & chr(10) & [a06] & "--------------------- " & chr(10) & [a08] &"---"& [a07] 1前1上1下1后 \[a02\] \& chr(10) \& \[a08\] \& "------------ " \& \[a09\] \& chr(10) \& \[a04
1上1下1后
a08\] \& chr(10) \& "--------- " \& \[a06\] \& chr(10) \& \[a04
五分子式
Function FindLabel ([MJ],[DL],[LZH],[XBH],[YSSZ],[LJ],[YBD],[BHDJ])
dim a,b
a=len([MJ])
b=len([DL])
FindLabel
=""&
XBH
&"--"
&[LZH]
&"--"
&
YSSZ
&"--"
&
LJ\]\&"" \& VbCrLf \& space(a) \&" "\& space(b) \& VbCrLf \& \[MJ\]\&"--"\& \[YBD\] \&"--"\& \[DL\] \&"--"\& \[BHDJ
End Function
上下标等。"" & [分子的字段] & "" & vbNewLine & [分母的字段],分数形式的标注。
上下角标形式
三个字段分别是:text、super_text和sub_text。
步骤如下[text] & "^" & [super_text] & "^" & "~" & [sub_text] & "~"
其中"^" & [super_text] & "^"表示将super_text字段里的内容作为上角标
"~" & [sub_text] & "~"表示将sub_text字段里的内容作为下角标
Font: "" & [LABELFIELD] & "" Color: "" & [LABELFIELD] & "" "" & [LABELFIELD] &
"" Bold: "" & [LABELFIELD] & ""Italic:
"" & [LABELFIELD] & "" Underline: "" & [LABELFIELD] & "" All caps: "" & [LABELFIELD] & "" Small caps: "" & [LABELFIELD] & "" Superscript "^" & [LABELFIELD] & "^" Subscript: "~" & [LABELFIELD] & "~" Character spacing (%): "" & [LABELFIELD] & "" Word spacing (%): "" & [LABELFIELD] & ""Leading (pts): "" & [LABELFIELD] & "</LIN需要注意的是,使用这些标签后,生成的Label语句在Verify按钮中是不生效的,只对最终的显示结果生效。
高级标注在arcgis中可以使用简单的单行标注,也可以勾选advanced使用复杂一点的多行标注为了有效的控制label的色彩字体等也可以使用arcgis label tags
使用VBScript1. 加前导字符串:"Parcel no: " & [PARCELNO] "Parcel no: " & [PARCELNO]
-
四舍五入显示:Round ([AREA], 1)
-
字符全部变小写:LCase ([NAME])
-
首字母大写其余小写:Function FindLabel ( [NAME] )
-
FindLabel = UCase(Left([NAME],1)) & LCase(Right([NAME],
Len([NAME]) -1)) End Function
-
多字段多行显示:[PARCEL_ID] & vbNewLine & [LAND_USE]
-
单字段多行显示(此处以逗号为分隔符):
Function FindLabel ( [LABELFIELD] )
FindLabel = replace([LABELFIELD], ", ", vbnewline)
End Function
-
分条件标注并使用
-
tags:Function FindLabel ([NAME], [POPULATION])
if ([POPULATION] >= 250000) then
FindLabel
= "" + [NAME] + "" else FindLabel = [NAME] end if End Function
"" & [Sheet1KaTeX parse error: Expected 'EOF', got '&' at position 7: .小班号] &̲"---"& [Sheet1.优势树种] &"---"& [Sheet1KaTeX parse error: Expected 'EOF', got '&' at position 9: .采伐方式] &̲ "</UND>"& VbNe....小班面积] &"---"& [Sheet1KaTeX parse error: Expected 'EOF', got '&' at position 6: .蓄积] &̲"---"& [Sheet1.出材量]
""&&"---"&&"---"&& ""& VbNewLine &&"---"&&"---"&