I have the code that gets the layers from SDE, but when i add them to the map they have a different symbology. there is about 80 layers and i am accessing the SDE by getting the workspace from a selected layer in the TOC. The symbology renderer layer files are located in a directory. So all i want to do is loop through the directory and get the renderer for each layer in my list. But my code only gets the renderer for 1 file not for all? How can i compare feature class names so it van get the renderer for each layer by using the feature class name?? I appreciate your time and any ideas.
Public Sub AddSDECoverageLayer()
Dim pMxDoc As IMxDocument
Dim pMap As IMap
Set pMxDoc = ThisDocument
Dim intX As Integer
'Add each FeatureLayer to the map document
'This should assign layer names to the layer it gets from SDE
'But it only gives the first layer in the list a layer name.
'There is about 80 layers so cant do if statement 80 time
'What other way can i do this??
For intX = 0 To ListBox2.ListCount - 1
Dim xsClass As String
xsClass = ListBox2.List(intX)
Dim xs As String
If xsClass = "PROPERTY_ADMIN.topo_ownership" Then
xs = "MM Ownership"
End If
If xs = "PROPERTY_ADMIN.MM_Rights_of_Way" Then
xs = "Rights of way"
End If
Dim pFLayerXS As IFeatureLayer
Set pFLayerXS = importData(pFWorkspace, xsClass, xs)
pMxDoc.FocusMap.AddLayer pFLayerXS
pMxDoc.ActiveView.Refresh
pMxDoc.UpdateContents
Next
End Sub
---------------------------------------------------------------------------
Public Function importData(pWorkspace As IWorkspace, FClass As String, fcName As String) As IFeatureLayer
'Function to create Feature layer from Feature class
Dim pFeatureWorkspace As IFeatureWorkspace
Dim pFClass As IFeatureClass
Dim pUnknown As IUnknown
Dim pMxDoc As IMxDocument
Dim pFeatureLayer As IFeatureLayer
Dim pDataSet As IDataset
Dim pFLayer As IFeatureLayer
' Get the selected layer
Set pMxDoc = ThisDocument
Set pUnknown = pMxDoc.SelectedLayer 'pMxDoc.FocusMap.Layer(0)
If Not TypeOf pUnknown Is IFeatureLayer Then
Exit Function
End If
Set pFLayer = pUnknown
' Make sure the layer is from SDE and get the parent workspace
Set pDataSet = pFLayer.FeatureClass
Set pFWorkspace = pDataSet.workspace
Set pWorkspace = pFWorkspace
If Not pWorkspace.Type = esriRemoteDatabaseWorkspace Then
MsgBox "Not an SDE feature class"
Exit Function
End If
Set pDataSet = pWorkspace
Set pFeatureWorkspace = pWorkspace
Dim intY As Integer
For intY = 0 To ListBox2.ListCount - 1
Set pFClass = pFeatureWorkspace.OpenFeatureClass _
(ListBox2.List(intY))
Next
Set pFLayer = New FeatureLayer
Set pFLayer.FeatureClass = pFClass
Dim pGFLayer As IGeoFeatureLayer
Set pGFLayer = pFLayer
Dim intz As Integer
For intz = 0 To ListBox2.ListCount - 1
'This gets the renderer but only for one layer,
'How can i make it get the renderer for all the layers in the list.
'There is 80 layers, in a directory. i just need to assign the renderer
'from this directoryto eac item in the list box
If ListBox2.List(intz) = "PROPERTY_ADMIN.topo_ownership" Then
Set pGFLayer.Renderer = GetRenderer("V:\Arc\Layers\MM Ownership.lyr")
End If
If ListBox2.List(intz) = "PROPERTY_ADMIN.MM_Rights_of_Way" Then
Set pGFLayer.Renderer = GetRenderer("V:\Arc\Layers\MM Rights of Way.lyr")
End If
Next
pFLayer.Name = fcName
Set importData = pFLayer
Exit Function
End Function
