FREEZING A LIST OF LAYERS WITH VBA?

• Nov 10, 2005

• #2

TCARPENTER

Programmer

Mar 11, 2002

766

US

Hi vbcad,

Try this...

Code:

...

Dim FRZLayer as AcadLayer

For Each FRZLayer In ThisDrawing.Layers
  If FRZLayer.Name = "A-WALL" Then
    FRZLayer.Freeze = True
  End IF
Next FRZLayer

or:

Code:

Dim strLyrs as Variant
Dim iCnt as Integer

strLyrs = Array("A-WALL", "A-GLAZ", "A-DOOR")

For iCnt = LBound(strLyrs) to UBound(strLyrs)
  ThisDrawing.Layers(strLyrs(iCnt)).Freeze = True
Next iCnt

HTH
Todd

 

Upvote 0 Downvote

• Nov 10, 2005

• Thread starter
• #3

vbcad

Technical User

Jul 12, 2002

159

US

will this work with wildcard symbols? such as "*|A-WALL-glaz" in the list of layers? it doesn's seem to work properly for freezing xref layers.

 

Upvote 0 Downvote

• Nov 10, 2005

• Thread starter
• #4

vbcad

Technical User

Jul 12, 2002

159

US

i have been experimenting further and the code examples above do not work for native as well as xref layers. they appear that they should work. i do not get an error but the drawing is not affected at all.

 

Upvote 0 Downvote

• Nov 10, 2005

• #5

TCARPENTER

Programmer

Mar 11, 2002

766

US

Hi vbcad,

For your first question, no, VBA will want a fully qualified name for this work, no wildcards allowed.

I just tried the code above (with the array) and it worked for me, you might check and see if one of the layers you are trying to freeze is the current layer, that may cause the routine to not work.

HTH
Todd

 

Upvote 0 Downvote

• Nov 10, 2005

• Thread starter
• #6

vbcad

Technical User

Jul 12, 2002

159

US

you were right both work now. one of the layers was current. Is there a way to use wildcards with the VBA code? I have a lisp version of this which does accept wildcards. i am trying to use VBA to learn more of the functions.

 

Upvote 0 Downvote

• Nov 10, 2005

• Thread starter
• #7

vbcad

Technical User

Jul 12, 2002

159

US

i found this on another forum. it claims to use wildcards but dont know if it works yet.

Function layfreeze(sLayers As String)
''sLayers is a string containing the layer(s) to be frozen, seperated by commas. _
May conatin wildcards..... "Layer1,ThisOne2,ANNO*"
Dim oLay As AcadLayer
Dim sLayName As Variant
Dim vLayers As Variant
vLayers = Split(sLayers, ",")
For Each oLay In ThisDrawing.Layers
For Each sLayName In vLayers
If (oLay.Name Like sLayName) And (ThisDrawing.ActiveLayer.Name <> oLay.Name) Then
oLay.Freeze = True
Exit For
End If
Next
Next oLay
End Function

Sub test()
layfreeze "*CONT*,C-*"
End Sub

 

Upvote 0 Downvote

• Nov 10, 2005

• #8

TCARPENTER

Programmer

Mar 11, 2002

766

US

Hi vbcad,

It should work fine, if you look, it's using the Like operator to make a wildcard type function - should do what you need.

HTH
Todd

 

Upvote 0 Downvote

• Nov 10, 2005

• Thread starter
• #9

vbcad

Technical User

Jul 12, 2002

159

US

there seems to be a problem with the sub to call the routine. i tried quotes around the layer names.

Sub test()
layfreeze ("*CONT*", "c-*")
End Sub

This still doesnt work. even with layers with names with cont etc in them.

 

Upvote 0 Downvote

• Nov 10, 2005

• #10

TCARPENTER

Programmer

Mar 11, 2002

766

US

Hi vbcad,

From the looks of the routine, you'll only be able to pass it one layer name at a time - something like:

Code:

 layfreeze "*CONT*"

HTH
Todd

 

Upvote 0 Downvote