[求助]关于图层的问题，怎么判断图层在图形中存在
<p>请教版主</p><p>怎么判断图层中图层名是否存在，</p> 本帖最后由 作者 于 2009-3-12 17:41:20 编辑 <br /><br /> <p>Public Function layerpd(name As String) As Boolean '判断指定图层是否存在，存在返回True,否则返回False<br/>Dim lay0 As AcadLayer '定义作为图层的变量<br/>For Each lay0 In ThisDrawing.Layers '在所有的图层中进行循环<br/> If lay0.name = name Then '如果找到图层名<br/> layerpd = True '图层已经找到<br/> Exit Function '结束寻找<br/> End If<br/>Next<br/>layerpd = False '图层没有找到<br/>End Function</p><p>下面是一个调用例子，检查图纸中时候有图层名为"1"的</p><p>Sub tt()<br/>Dim name As String<br/>name = "1"<br/>If layerpd(name) = False Then<br/> MsgBox "没有找到 " & name & " 图层"<br/>Else<br/> MsgBox "找到 " & name & " 图层"<br/>End If<br/>End Sub</p> <p>谢谢版主，挺好用的</p>
页:
[1]