VB.Net - Selecting only Polyline layers from the TOC

JeffreyFrye

I can successfully get all layers in the TOC into a combo box, but I only want to get layers that are of a polyline geometry in the TOC. My apologies, I do not know the proper method for inserting code here.

Protected Overrides Sub OnClick()
        Dim settingsForm As New Settings
        Dim myEnumLayers As ESRI.ArcGIS.Carto.IEnumLayer
        Dim fLayers As ESRI.ArcGIS.Carto.ILayer

        Try
            myEnumLayers = My.ArcMap.Document.FocusMap.Layers
            fLayers = myEnumLayers.Next
            Do Until fLayers Is Nothing
                If fLayers.Valid Then
                    If TypeOf fLayers Is ESRI.ArcGIS.Carto.IFeatureLayer Then
                        settingsForm.ComboBox1.Items.Add(fLayers.Name)
                    End If
                    fLayers = myEnumLayers.Next
                End If
            Loop
        Catch ex As Exception

        End Try
        settingsForm.Show()
  End Sub

JeffreyFrye

Thank you Mody - this got me going in the right direction. Instead of using ILayer, I used IFeatureLayer. I was then able to check each layer to identify IFeatureClass(es), which allowed me to access the geometry and return only polyline types. This class is designed to iterate through the current mxd layers, and populate a combobox with polyline layers only, via an add-in button.

Public Class SelectRoadLayer
  Inherits ESRI.ArcGIS.Desktop.AddIns.Button

  Public Sub New()

  End Sub

  Protected Overrides Sub OnClick()
        Dim settingsForm As New Settings
        Dim myEnumLayers As ESRI.ArcGIS.Carto.IEnumLayer
        Dim fLayers2 As ESRI.ArcGIS.Carto.IFeatureLayer
        Dim fClass As ESRI.ArcGIS.Geodatabase.IFeatureClass

        Try
            myEnumLayers = My.ArcMap.Document.FocusMap.Layers
            fLayers2 = myEnumLayers.Next
            Do Until fLayers2 Is Nothing
                If fLayers2.Valid Then
                    fClass = fLayers2.FeatureClass
                    If fClass.ShapeType = ESRI.ArcGIS.Geometry.esriGeometryType.esriGeometryPolyline Then
                        settingsForm.ComboBox1.Items.Add(fLayers2.Name)
                    End If
                    fLayers2 = myEnumLayers.Next
                End If
            Loop
        Catch ex As Exception

        End Try
        settingsForm.Show()
  End Sub

  Protected Overrides Sub OnUpdate()
    Enabled = My.ArcMap.Application IsNot Nothing
  End Sub
End Class