如何在VB中开关非当前层？

draw · 发表于 2003-8-31 16:18:00

如何在VB中开关非当前层？

draw · 发表于 2003-8-31 18:09:00

为什么许多材料上介绍这个方法时，都是先建立一个新图层，再将其设成为当前层，然后再关闭或打开？

mccad · 发表于 2003-8-31 21:23:00

使用图层的LayerOn 属性
TRUE: 为打开图层
FALSE: 为关闭图层

draw · 发表于 2003-8-31 22:49:00

我的问题是假设当前层是0层，而是要开关1，2，3......层。1，2，3.....层均已建立。

draw · 发表于 2003-8-31 22:52:00

请举一个例子！

mccad · 发表于 2003-8-31 23:02:00

Sub SetLayerOff()
Dim LayerName As String
LayerName = "1"
On Error Resume Next
Err.Number = 0
Dim MyLayer As AcadLayer
Set MyLayer = ThisDrawing.Layers(LayerName)
If Err.Number = 0 Then
      ThisDrawing.Layers(LayerName).LayerOn = False
      ThisDrawing.Utility.Prompt vbCrLf & " 图层“" & LayerName & "”已经被关闭。"
Else
      ThisDrawing.Utility.Prompt vbCrLf & " 图层“" & LayerName & "”不存在。"
End If
End Sub