关闭图纸时如何打开隐藏的图层

xinzhong

单 位的dwg图纸想添加水印，于是就新建了一个图层，在该图层将水印都制作好了，为了不影响画图，隐藏了水印图层，但是为了实现dwg转化为tif时将水印 显示出来，必须在关闭图纸时显示水印层，请问好手有没有好的关闭图纸时打开水印图层（即隐藏的图层），写代码也可以！谢谢！

subtlation

在vba工程的thisdrawing模块中加入代码

Private Sub AcadDocument_BeginDocClose(Cancel As Boolean)
    ThisDrawing.Layers("水印层").LayerOn = True
End Sub