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

xianglongg 发表于 2009-3-12 16:20:00

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

请教版主
怎么判断图层中图层名是否存在，

nhy12345678 发表于 2009-3-12 17:39:00

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 发表于 2009-3-13 09:28:00

谢谢版主，挺好用的

查看完整版本: [求助]关于图层的问题，怎么判断图层在图形中存在