[VBA程序]：请问在VBA中,集合中的对象是否存在,怎么进行判断:如图层"01"是

y56y78

请问在VBA中,集合中的对象是否存在,怎么进行判断:如图层"01"是否存在?
以下这个VBA语句这么写呢?
If ThisDrawing.Layers.Item("01") Then
因为在VBA中:ThisDrawing.Layers.Item("01"),无论图层"01"是否存在,均返回一个对象,

而在Lisp中:对于if (tblsearch "Layer" "01") (progn
图层"01"存在,则(tblsearch "Layer" "01")返回一个表,可等同于T;
图层"01"不存在,则返回nil.

zml84

代码片段如下，请参照：

1. 
   
2.   [FONT=courier new]
   
3. '''标记初始化
   
4. bj = 0
   
5. For i = 0 To ThisDrawing.Layers.Count - 1
   
6.         If ThisDrawing.Layers.Item(i).Name = "01" Then
   
7.                 '''改变标记
   
8.                 bj = 1
   
9.                 Exit For
   
10.         End If
    
11. Next i
    
12. 
    
13. '''至此，如果bj=1 则表示当前图形中已存在名称为“01”的图层。
    
14. If bj = 1 Then MsgBox "当前图形中已存在名称为“01”的图层。"
    
15.   [/FONT]
    

复制代码

*-*9