概述
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
效果
最后
以上就是温暖小蚂蚁为你收集整理的arcgis 分子式标注的全部内容,希望文章能够帮你解决arcgis 分子式标注所遇到的程序开发问题。
如果觉得靠谱客网站的内容还不错,欢迎将靠谱客网站推荐给程序员好友。
本图文内容来源于网友提供,作为学习参考使用,或来自网络收集整理,版权属于原作者所有。
发表评论 取消回复