Public Function layerpd(name As String) As Boolean '判断指定图层是否存在，存在返回True,否则返回False
Dim lay0 As AcadLayer '定义作为图层的变量
For Each lay0 In ThisDrawing.Layers '在所有的图层中进行循环
If lay0.name = name Then '如果找到图层名
layerpd = True '图层已经找到
Exit Function '结束寻找
End If
Next
layerpd = False '图层没有找到
End Function
下面是一个调用例子，检查图纸中时候有图层名为"1"的
Sub tt()
Dim name As String
name = "1"
If layerpd(name) = False Then
MsgBox "没有找到 " & name & " 图层"
Else
MsgBox "找到 " & name & " 图层"
End If
End Sub
置顶卡
