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

xinzhong · 发表于 2006-2-22 13:17:00

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

subtlation · 发表于 2006-2-28 23:25:00

在vba工程的thisdrawing模块中加入代码
Private Sub AcadDocument_BeginDocClose(Cancel As Boolean)
ThisDrawing.Layers("水印层").LayerOn = True
End Sub