Module help.... Hide wipeout

[luistyle619]

I have a batchplot program that was created specific for our application it works great.

Program allows to Hide Wipeout at the click of a button (code) while its batch plotting into PDF.

Problem is that it hides the 'Wipeout' layer for the drawing that its plotting but wont hide the wipeouts that are being xref'd in.

in other words it hides layer - 'wipeout' but does not hide layer - 'xbase1Iwipeout'

It only looks for the wipeout layer of the current drawing and does not include the xrefs...

 

I think this is where I need to modify but I have also attached the whole module in txt format.

 

 

runit:

Dim layer As AcadLayer

For Each layer In ThisDrawing.Layers

If UCase(layer.name) = "WIPEOUT" Then

ThisDrawing.ActiveLayer.Lock = False

ThisDrawing.Layers("WIPEOUT").Lock = False

ThisDrawing.Layers("WIPEOUT").Freeze = True

ThisDrawing.Layers("WIPEOUT").LayerOn = False

End If

Exit For

Next

 

 

 

any help would be great!!!!

 

Thanks!

hidewipeoutcodemodule.txt