arcgis 分子式标注

arcgis 分子式标注

上代码

Function FindLabel ( [YJLMC] , [EJLMC], [EJLBM] )
Dim fmLength '分母长度
Dim fzLength '分子长度
Dim zsLength '整数长度
Dim hxLength '分式线长度
fmLength = Lenb([EJLBM]) 'len函数取字符串长度
fzLength = Lenb([EJLMC])
zsLength = Lenb([YJLMC])
If fmLength > fzLength Then  '如果分母比分子长
    hxLength=fmLength
       else '反之
       hxLength=fzLength
End If
'下面的"-"或"—"根据英文（数字）或者中文进行调整即可
FindLabel = space(zsLength)+space(zsLength)+[EJLMC] +vbcrlf+[YJLMC]+ string(hxLength,"-")+vbcrlf+space(zsLength)+ [EJLBM]
End Function

效果