arcgis标注分子式及假分子式

arcgis标注分子式及假分子式

1. 假分子式：

Function FindLabel ( [TBYBH]  , [DLBM] , [QSXZ]  )

Dim fmLength

Dim fzLength

Dim zsLength

Dim hxLength '分式线长度

fmLength = Len( [QSXZ])

fzLength = Len( [DLBM])

zsLength = Len( [TBYBH])

If fmLength > fzLength Then  

    hxLength=fmLength

       else 

       hxLength=fzLength

End If


FindLabel = space(zsLength)+[DLBM] +vbcrlf+[TBYBH]+ string(hxLength,"-")+vbcrlf+space(zsLength)+ [QSXZ]

End Function

2. 分子式：

Function FindLabel ( [code], [Elevation] ) 
max = len( [code] ) 
min = len( [Elevation] )
 if max" &vbnewline& [Elevation]
else FindLabel = "" &[code] &"" &vbnewline& [Elevation] 
end if 
End Function

3. ArcGIS中的特殊标记、注记方法有以下的种类：

在利用ArcGIS进行制图时，进行标注（Label）或注记（Annotation）是必不可少的。但是除了常规的标注和注记以外，还时常需要一些特殊的标注或注记，比如上标、下标等。其实，ArcGIS早就为大家想好了这些问题。在ArcGIS中，已经预置了一部分特殊标记的方法，它们的使用类似于HTML的标签，如果读者对HTML语法熟悉的话，那么想必下面的内容就不会有障碍。

元素描述	起始标签	结束标签	有效的属性值	备注	示例语法
字体名称和/或字号			name = {TrueType font} size = {1} scale = {1-}	设置名称、大小和比例，或全部设置。	Text size = 12 Text scale = 200
颜色 (RGB)			red, green, blue = {0-255}	缺失的颜色属性假定为 0	Text
颜色 (CMYK)			cyan, magenta, yellow, black = {0-100}	缺失的颜色属性假定为 0	Text
粗体			无		Text
斜体			无		Text
下划线			无		Text
全部大写			无		Text
小型大写字母			无		Text
上标			无		E = mc2
下标			无		H2O
字符间距			spacing = {1-}	表示相对于常规字符间距的调整百分比；0% 表示没有调整。	Text
字符宽度				表示相对于常规字符宽度的调整百分比；0% 表示没有调整。	Text
词间距			spacing = {1-}	表示词间的间距百分比；100% 表示常规间距。	Extra Word Spacing
行间距			leading = {1-}	表示相对于常规行间距的调整（单位为磅）；0 磅表示没有调整。	Text with a leading value of 25 points
不加粗	<_BOL>	<_/BOL>	无		The base text symbol is bold, <_BOL> but this part is not.
不倾斜	<_ITA>		无		The base text symbol is italic, <_ITA> but this part is not.
不加下划线	<_UND>		无		The base text symbol is underlined, <_UND> but this part is not.
不加上标	<_SUP>		无		<_SUP> This text is regular, but this text is superscript.
不加下标	<_SUB>		无		<_SUB>This text is regular, but this text is subscript.

(1)在arcmap图层中，右键--属性

(2)在标注栏中，点击“表达式”按钮

(3)

在标注表达式中输入：

Round ([AREA], 0)& "m"& "^{" & "2" & "}"

其中，

Round ([字段名], 小数位)& "字符串"& "上标标示符" & "上标" & "<上标标示符>"

Round为保留小数位

解析程序选VBScript

(4)(下标方法如下)

在步骤3中的表达式输入：

Round ([AREA], 0)& "m"& "_{" & "2" & "}"

Round ([字段名], 小数位)& "字符串"& "下标标示符" & "下标" & "<下标标示符>"