gpCode(0) = 6 ' 指定过滤器类型为以线型名过滤 dataValue(0) = "CONTINUOUS" ' 过滤的线型是CONTINUOUS类型 FilterType = gpCode ' 设置过滤器 FilterData = dataValue ' 设置过滤器 setObj.Select acSelectionSetAll, , , FilterType, FilterData ' 选择图形中所有线型为CONTINUOUS类型的对象,加入选集setObj中 hCount = setObj.Count ' 将选择集选中的图形对象的数量存入变量hCount中
' 以下同上 gpCode(0) = 6 dataValue(0) = "CONTINUOUS" FilterType = gpCode FilterData = dataValue HoleObj.Select acSelectionSetAll, , , FilterType, FilterData hCount = HoleObj.Count |