vba中Item、IsEmpty方法的应用——批量删除CAD图层

Item 方法

 利用位置或键返回 Collection 对象的指定成员。

语法object.Item(index)

Item 方法的语法具有下列对象限定符和部分：

部分	描述
object	必要。对象表达式，其值为“应用于”列表中对象。
index	必要。为一表达式，指定集合中成员的位置。如果是数值表达式，则 index 必须是从 1 到集合 Count 属性值之间的数值。如果是字符串表达式，则当加入一被引用的成员到集合时，index 必须和 key 参数对应。

如果 index 值无法与集合的任何现有成员匹配，就会导致错误发生。

Item 方法是集合的缺省方法。因此，以下两行程序代码等价：

Print MyCollection(1)
Print MyCollection.Item(1)

 批量删除除 0 层和 "jzd"以外的图层为例，代码如下：

Sub 删除多余图层()
'yngqq:443440204
On Error Resume Next
Dim lay As