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> |
颜色 | <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> |
在标注表达式中输入:
Round ([AREA], 0)& "m"& "<sup>" & "2" & "</sup>"
其中,
Round ([字段名], 小数位)& "字符串"& "上标标示符" & "上标" & "<上标标示符>"
Round为保留小数位
解析程序选VBScript
(4)(下标方法如下)
在步骤3中的表达式输入:
Round ([AREA], 0)& "m"& "<sub>" & "2" & "</sub>"
Round ([字段名], 小数位)& "字符串"& "下标标示符" & "下标" & "<下标标示符>"