AO基本函数集合VB+AO.pdfVIP

Attribute VB_Name = GlobalFun 模块功能 : 全局对象函数 模块说明 : 参数描述 : 创建人 : 完成日期 : 修改日期 :(包括修改日期,修改人,修改函数) 1. 2. Public Declare Sub Sleep Lib kernel32 (ByVal dwMilliseconds As Long) Option Explicit 查找图层 只是在第一层中查找 Public Function FindTopLayer(strLayerName As String) As ILayer Dim pMap As IMap Dim pMxDoc As IMxdocument. Dim player As ILayer Dim i As Integer Set pMxDoc = g_spApp.document. Set pMap = pMxDoc.FocusMap For i = 0 To pMap.LayerCount - 1 If pMap.Layer(i).Name = strLayerName Then Set FindTopLayer = pMap.Layer(i) Exit Function End If Next i End Function 查找grouplayer图层 Public Function FindGroupLayer(strLayerName As String) As IGroupLayer Dim pMap As IMap Dim pMxDoc As IMxdocument. 这里用UID的方法 Dim pEnumLayer As IEnumLayer Dim player As ILayer Dim pId As New UID Set pMxDoc = g_spApp.document. Set pMap = pMxDoc.FocusMap pId.value = {EDAD6644-1810-11D1-86AE-0000F8751720} Set pEnumLayer = pMap.Layers(pId, True) pEnumLayer.Reset Set player = pEnumLayer.Next Do While Not player Is Nothing If player.Name = strLayerName Then Set FindGroupLayer = player Exit Function End If Set player = pEnumLayer.Next Loop End Function 根据指定的图层名字查找Feature图层 Public Function FindFeatureLayer(iStrLayerName As String) As IFeatureLayer Dim pMap As IMap Dim pMxDoc As IMxdocument. 这里用UID的方法 Dim pEnumLayer As IEnumLayer Dim player As ILayer Dim pId As New UID Set pMxDoc = g_spApp.document. Set pMap = pMxDoc.FocusMap pId.value = {E156D7E5-22AF-11D3-9F99-00C04F6BC78E} Set pEnumLayer = pMap.Layers(pId, True) pEnumLayer.Reset Set player = pEnumLayer.Next Do While Not player Is Nothing If player.Name = iStrLayerName Then Set FindFeatureLayer = player Exit Function End If Set player