Thawing Layers???

I am using the following code but if layer 0 is frozen it errors, what can I do?

'Thaws, Turns On and Unlocks all layers
Dim oLayer As AcadLayer
For Each oLayer In ThisDrawing.Layers
oLayer.LayerOn = True
oLayer.Lock = False
If oLayer.Name <> "0" Then
oLayer.Freeze = False
End If
Next oLayer

 

Make sure you aren't trying to thaw or turn on the current layer........

 

Yes, you should be certain that you are not thawing the current layer but looks like that's already handled.

I have had this problem before: for some properties, trying to reset a property to the same value causes an error.

So instead of:

oLayer.LayerOn = True

You would have:

' don't do anything if layer is already on
if Not oLayer.LayerOn then
oLayer.LayerOn = True
end if

- ej

 

Right, since the current layer can't be frozen, you can't thaw it. Replace
your IF expression with this one:
If oLayer.Name <> ThisDrawing.ActiveLayer.Name Then

 

That will work because the current layer will not be frozen, not because it
will error when setting it to a value that is already set. His procedure
works, although redunant. The problem occurs only with the active layer.
Your method does have good logic though. Why perform an action that doesn't
need it. However, in this case, I think you wouldn't see any difference in
performance with either method.

--
----
Ed
----

looks like that's already handled.

property to the same value causes an error.