最近需要在ArcMap中给要素添加分式结构的标注，可用如下VBScript函数实现：
Function FindLabel ( [LBH], [DBH], [XBH] )
dim head,tail,l
head= [LBH]&" - "& [DBH]
tail= [XBH]
FindLabel = "<UND>" & head & "</UND>" & vbnewline & tail
End Function
原文：http://www.cnblogs.com/astian/p/5436046.html