假分数样式标注

有时候，需要标注假分数样式的标注。

图层右键属性→标注→表达式→高级

Function FindLabel ( [NAME],[FID],[DZM] )

  max= len([FID])

  ifmax<len([DZM]) then

 max=len([DZM])

  endif

s1=String(max,"-")

s2=String(max," ")

FindLabel=s2&[FID]&vbnewline&[NAME]&s1&vbnewline&s2&[DZM]

End Function

 

Name为左边文字，fid分子，dzm分母