Layer Error - Err.Number=-2145386348, Err.Description="Invalid layer"

[bweir]

Can anybody tell me why I get an error in this code...

SomeLayerDef.Lock = False
SomeLayerDef.Freeze = False
SomeLayerDef.LayerOn = True

The code executes fine until it hits the third line shown. Then I get Err.Number=-2145386348, Err.Description="Invalid layer".

I don't understand how I can have an "Invalid layer" when I had just been able to make it unlocked and unfrozen.

[Jeff_M]

I don't know. Maybe something else in your code is changing the layer you are working with? I'm guessing you just have a typo in your post, as Locked is not a property....Lock is. Is it possible you have another typo in your code?

[bweir]

Here's the exact snippet from my app...

Dim oTableLayer As AcadLayer
Set oTableLayer = ThisDrawing.Layers.Item(oCordTable.Layer)
    oTableLayer.Lock = False
    oTableLayer.Freeze = False
    oTableLayer.LayerOn = True

No typos that I can see.

[fixo]

Here's the exact snippet from my app...

Dim oTableLayer As AcadLayer
Set oTableLayer = ThisDrawing.Layers.Item(oCordTable.Layer)
    oTableLayer.Lock = False
    oTableLayer.Freeze = False
    oTableLayer.LayerOn = True

No typos that I can see.

Maybe this layer is active?
I have a got the same error message for this case

Sub test()
Dim oTableLayer As AcadLayer
Dim oCordTable As AcadTable
Dim varpt
ThisDrawing.Utility.GetEntity oCordTable, varpt, "Select a table"
Set oTableLayer = ThisDrawing.Layers.Item(oCordTable.Layer)
If Not ThisDrawing.ActiveLayer.Handle = oTableLayer.Handle Then
    oTableLayer.Lock = False
    oTableLayer.Freeze = False
    oTableLayer.LayerOn = True
    Else
    MsgBox "This is activelayer! Action was cancelled"
    End If
End Sub

~'J'~

[bweir]

Thanks,

Yeah I think the error is only occuring when the layer is active.