菜鸟问题

szliaolj · 发表于 2006-12-1 11:43:00

我是自学VBA,就是搞不懂这段是什么意思,望各位师父指点
gpCode(0) = 6
dataValue(0) = "CONTINUOUS"
FilterType = gpCode
FilterData = dataValue
setObj.Select acSelectionSetAll, , , FilterType, FilterData
hCount = setObj.Count

gpCode(0) = 6
dataValue(0) = "CONTINUOUS"
FilterType = gpCode
FilterData = dataValue
HoleObj.Select acSelectionSetAll, , , FilterType, FilterData
hCount = HoleObj.Count

iq0050 · 发表于 2006-12-1 13:15:00

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