[求助]关于图层的问题，怎么判断图层在图形中存在

xianglongg

请教版主

怎么判断图层中图层名是否存在，

nhy12345678

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

xianglongg

谢谢版主，挺好用的