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

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

<font style="font-size: 10pt;" id="text1" face="宋体,verdana, arial, helvetica">单
位的dwg图纸想添加水印，于是就新建了一个图层，在该图层将水印都制作好了，为了不影响画图，隐藏了水印图层，但是为了实现dwg转化为tif时将水印
显示出来，必须在关闭图纸时显示水印层，请问好手有没有好的关闭图纸时打开水印图层（即隐藏的图层），写代码也可以！谢谢！</font>

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

<P>在vba工程的thisdrawing模块中加入代码</P>
<P>Private Sub AcadDocument_BeginDocClose(Cancel As Boolean)<BR>&nbsp;&nbsp;&nbsp; ThisDrawing.Layers("水印层").LayerOn = True<BR>End Sub</P>
页: [1]
查看完整版本: 关闭图纸时如何打开隐藏的图层