ARCMAP实现标注上下标方法
arcmap的标签设置里,有一个表达式功能,里面的高级功能支持vbscript和javascript脚本。下面就是一个例子
对应的[TEXT]字段里的内容格式为:Q#-3#-1a1 (#+表示右上角,#-表示右下角)。代码如下:
Function FindLabel ( [TEXT] )
dim m,n,p
dim M_text,super_text,sub_text
p=instr(1, [TEXT] ,"#",1)
if p>0 then
M_text=left( [TEXT] ,p-1)
m=instr(1, [TEXT] ,"#-",1)
n=instr(1, [TEXT] ,"#+",1)
if m<n then
sub_text=mid( [TEXT],m+2,n-m-2)
super_text=mid( [TEXT],n+2)
else
sub_text=mid( [TEXT],m+2)
super_text=mid( [TEXT],n+2,m-n-2)
end if
FindLabel=M_text & "<sup>" & super_text & "</sup>" & "<sub>" & sub_text & "</sub>"
else
FindLabel=[TEXT]
end if
End Function