arcgis标注分子式及假分子式

程序员文章站 2022-07-12 14:09:17

...

arcgis标注分子式及假分子式

假分子式：

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

分子式：

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

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

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

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

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

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

(3)

在标注表达式中输入：

Round ([AREA], 0)& "m"& "<sup>" & "2" & "</sup>"

其中，

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

Round为保留小数位

解析程序选VBScript

(4)(下标方法如下)

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

Round ([AREA], 0)& "m"& "<sub>" & "2" & "</sub>"

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