How to make the selected value in a combobox the current layer in the drawing

[Anonymous]

Private Sub UserForm_Initialize()
 
 Dim layerColl As AcadLayers
 Dim entry As AcadLayer
 Dim LayList As String
 Set layerColl = ThisDrawing.Layers
 For Each entry In layerColl
    ComboBox1.AddItem entry.Name
 Next

 End Sub

Hi,

I have a form with a combobox. That combobox is filled up with all layers in a drawing. (see above)

Now I want to make the layer that I have selected (value) in the combobox the current layer in my drawing.

How can i make it current?

thanks gr. László

[Alfred.NESWADBA]

Hi,

try

ThisDrawing.ActiveLayer = ThisDrawing.Layers.Item(Combobox1.Text)

-. alfred -

[Anonymous · Accepted solution]

Thank you Alfred! 

It was the item...

I wish you a nice christmas!

László