Question

要如何实现Arcmap标注显示的自动换行？

如题，小弟的Arcmap有个图层里的字段里的内容太长，如果直接显示成标注会很不美观。
我们知道，Arcmap标注显示主要用VB语言来实现，那么这个VB语句要如何写，才能实现标注显示的自动换行（类似Excel的自动换行）？比如每显示6个字就自动切换下一行。

另外，小弟在网上查到的代码是
Function FindLabel ( [Name] )
if (len([Name])) >10 then
FindLabel = left( [Name],6) &
chr(13) & right([Name],len([Name])-6)
else
FindLabel = [Name]
end if
End Function
但是这个代码显示出来的标注最多只能显示两行。

那么这个VB语句应该如何写才能满足要求？请高手赐教，小弟谢过。

Answer 1

Function FindLabel ( [Name] )
kk= [Name]
ff=""
for i = 0 to len(kk) step 6
ff=ff & left(kk,6) & chr(13)
kk=mid(kk,6)

next
FindLabel = ff
End Function

追问

谢谢你！你的回答圆满地回答了我的回题！奖励给你！

另外还有一个问题，就是我把您的代码代进去之后，如果标注超过了一定的行数，那么之后的内容就不显示了，有办法解决吗？

追答

1、根正一个错误：kk=mid(kk,6)=》kk=mid(kk,7)

2、我测试过，可以标注到约38行，多了确实不显示，这不是程序问题，是acmap自身标注机制问题，原因目前还没弄懂。估计和定义的坐标范围大小有关，标注太大超出范围就不显示吧。但我想38行标注肯定够用了。

追问

谢谢您耐心的解答，接奖励！