删除具有匹配属性/图层/VisState的动态块选择集

Matt__W · 发表于 2008-9-30 11:15:27

我有一些我一直在研究的代码（见下文），它允许用户选择一个动态块。然后程序获取块的有效名称、可见性状态、属性（如果有的话）和层。从那里我希望创建一个具有相同特征的块选择集。现在，我到目前为止得到的将创建一个具有相同层名称的块选择集。我想知道是否有一种方法可以使用过滤器（类似于下面的方法）来设置可见性状态、有效名称和属性，而不是遍历选择集中的所有对象并测试它们是否具有这些特征中的任何一个。

copy

FilterType(0) = 0
FilterData(0) = "Insert"
FilterType(1) = 8
FilterData(1) = strBlkLayerName
                        
Set sset = vbdPowerSet("BlockCountBySelection")
sset.Select acSelectionSetAll, , , FilterType, FilterData

完整的代码...

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复