VBA change layers

[katto01]

Hello,

 

I am trying unsuccessfuly to switch layers from EXCEL.

This is my code:

Please advise

 

Thanks

 

 
Public Sub MISKO()
Dim ACAD As AcadApplication 
On Error Resume Next 
Set ACAD = GetObject(, "AutoCAD.Application") 
Call ACAD_SELECT_LAYER("BIBI")
End Sub
Public Sub ACAD_SELECT_LAYER(A$)
Dim ACAD As AcadApplication Dim objLayer As AcadLayer
Dim acadDoc As AcadDocument
Set ACAD = GetObject(, "AutoCAD.Application") 'Get a running instance of the class AutoCAD.Application
Set acadDoc = ACAD.ActiveDocument
Set objLayer = acadDoc.Layers(A$) ‘ < supposed to select this layer passed by A$
End Sub

[Hippe013]

The following is from Autodesk Help

 

Dim newlayer As AcadLayer
Set newlayer = ThisDrawing.Layers.Add("LAYER1")
ThisDrawing.ActiveLayer = newlayer

[BIGAL]

katto01 you may want to look into setting variables using vba there are so many "clayer" "osmode" "style" to mention a few Hippe013 has answered layer there is probably a list somewhere vba v's autocad v's LIsp.

[katto01]

Still don't have a solution. I need to switch between EXISTING layers. Adding a new layer is not helping

Say I have 3 layers L1,L2,L3

 

I need to select L1 and do something on it, then select L2 and do something on it etc.

 

Thank you