arcgis 正确显示标注的大小写

正确显示标注的大小写

要：

本文介绍了如何正确显示标注大小写的步骤。例如，一个表示城市名称的字段'PORT HOPE'会被标为'Port Hope'。

 

内容：

 

1.   在“标注”工具条上点击“标注管理器”。
2.   勾选要标注的图层。
3.   在图层下级菜单选择一个标注类。
4.   点击“表达式”按钮。
5.   勾选“高级”。
6.   输入以下代码来替换原有代码。

Function FindLabel ( [LABELFIELD] )
     FindLabel = PCase( [LABELFIELD] )
End Function

 

Private Function PCase(byVal string)
            Dim Tmp, Word, Tmp1, Tmp2, firstCt, a, sentence, c, i
            If IsNull(string) Then
                    PCase = Null
                    Exit Function
            Else
                    string = CStr( string )
            End If
            a = Split( string, vbCrLf )
            c = UBound(a)
            i = 0
            For each sentence in a
                    Tmp = Trim( sentence )
                    Tmp = split( sentence, " " )
                               For Each Word In Tmp
                                          Word = Trim( Word )
                                          Tmp1 = UCase( Left( Word, 1 ) )
                                          Tmp2 = LCase( Mid( Word, 2 ) )
                                          PCase = PCase & Tmp1 & tmp2 & " "
                               Next
                               PCase = Left( PCase, Len(PCase) - 1 )
                               If i = c then
                               Else
                                          PCase = PCase & vbCrLf
                               End If
                               i = i + 1
            Next
End Function

当输入代码时，注意将所有出现LABELFIELD的地方更改为表中的正确名称。

7.   点击确定。
8.   在“标注管理器”对话框是点击应用，并点击确定。
 

 

来自:http://support.esrichina-bj.cn/2005/1101/1218.html