ArcGIS 标注超过一定宽度自动换行

直接写，长度超过4自动换行，[name]是字段。

Function FindLabel ( [NAME] )
  n=len([NAME])
  if (n<5) then
     FindLabel = [NAME]
  else
      FindLabel = left([NAME],4) & vbnewline & right([NAME],n-4)
  end if
End Function

写成函数

Function myFind(NAME,wd)
  n=len(NAME)
  if (n<wd+1) then
     myFind = NAME
  else
      myFind = left(NAME,wd) & vbnewline & right(NAME,n-wd)
  end if
End Function

Function FindLabel([NAME])
    FindLabel= myFind([NAME],4)

End Function

字段是name，4，可以修改5等。

效果如下：

文章授权转载：gisoracle  版权归原作者所有

END