topic Re: Turning Layers on through VBA in VBA Forum

Turning Layers on through VBA

Anonymous — Mon, 20 Jul 2020 16:31:56 GMT

I have written VBA code in AutoCad that will open a certain drawing for the user, but I want it to turn on certain layers based on user input. Let's say for this example I want to turn on the layer named "Walls". How would I go about this? The layer is off when the document is opened. I'm sure this is a simple couple lines of code but I just can't seem to figure it out.

Re: Turning Layers on through VBA

Ed__Jobe — Mon, 20 Jul 2020 16:51:48 GMT

If you're not concerned about viewport visibility, then its just like below.

Dim oLay As AcadLayer For Each oLay In ThisDrawing.Layers If oLay.Name = "Walls" Then oLay.LayerOn = True End If Next

Re: Turning Layers on through VBA

Anonymous — Mon, 20 Jul 2020 16:55:41 GMT

Looks like oLay is throwing an error. "Can't find project or library" not sure what is going on there.

Re: Turning Layers on through VBA

Ed__Jobe — Mon, 20 Jul 2020 17:01:14 GMT

Are you working in AutoCAD vba? You're not doing this from exel are you?

Here is a more efficient version. Although it could throw an error if "Walls" doesn't exist.

ThisDrawing.Layers("Walls").LayerOn = True

Re: Turning Layers on through VBA

grobnik — Mon, 20 Jul 2020 17:00:40 GMT

Hi @Anonymous @Ed__Jobe

If I have read well, the initial requirement was ".....based on user input....", and question is if would you like to have the same dialog "layer state" windows or a simple user form.

On the opposite @Anonymous accepted Ed solution so the starting request now falls.

I'm wrong ?

Bye

Re: Turning Layers on through VBA

Anonymous — Mon, 20 Jul 2020 17:01:36 GMT

That did it. I am in AutoCad VBA not excel.

thanks for your help!

Re: Turning Layers on through VBA

Anonymous — Mon, 20 Jul 2020 17:04:10 GMT

I had it based on a userform, depending on what the user chooses in a drop box is what layer turns on. I got it figured out now, sorry for marking the wrong solution I meant to just reply.

thanks!

Re: Turning Layers on through VBA

Ed__Jobe — Mon, 20 Jul 2020 17:04:21 GMT

The only thing I can think of is that it was a typo. Anyway, glad the second one helped.