arggis怎么修改上下标_ARCMAP实现标注上下标方法

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

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 & "^{" & super_text & "}" & "_{" & sub_text & "}"

else

FindLabel=[TEXT]

end if

End Function