[求助][VBA]关于选择集

mayuezxl

Dim filterType1(1) As Integer, filterDate1(1) As Variant 

Dim SsetObj As AcadSelectionSet

filterType1(0) = 0
filterDate1(0) = "Text"
filterType1(1) = 8
filterDate1(1) = LayName

Set SsetObj = ThisDrawing.SelectionSets.Add("WenBen")

SsetObj.Select acSelectionSetAll, , , filterType1, filterDate1

Debug.Print SsetObj.Count

SsetObj.Delete

我想统计指定图层上有多少文本，按照上面的程序，总是显示是0，不知哪里不对，请高手指点

lazybug

你的图曾名是什么呢?就是"LayName"

那试试这样:

filterDate1(1) = "LayName"

mayuezxl

LayName 是一个变量，获取不同的图层名。

mayuezxl

解决了

 Dim FilterType1(3) As Integer, FiLterData1(3) As Variant

 FilterType1(0) = -4
  FiLterData1(0) = "<or"
  FilterType1(1) = 0
  FiLterData1(1) = "Text"
  FilterType1(2) = 8
  FiLterData1(2) = LayName
  FilterType1(3) = -4
  FiLterData1(3) = "or>"

Set SsetObj = ThisDrawing.SelectionSets.Add("WenBen")

SsetObj.Select acSelectionSetAll, , , filterType1, filterDate1

Debug.Print SsetObj.Count

SsetObj.Delete

mayuezxl

不对，还是出不来，请高手指点

雪山飞狐_lzh

你的第一个程序没有问题的

mmm96

 Dim FilterType1(1) As Integer, FiLterData1(1) As Variant

  FilterType1(0) = 0
  FiLterData1(0) = "Text"
  FilterType1(1) = 8
  FiLterData1(1) = "LayName"

  Dim ssetobj As AcadSelectionSet

Set ssetobj = ThisDrawing.SelectionSets.Add("wenben")
ssetobj.Select acSelectionSetAll, , , [U]FilterType1, FiLterData1[/U]
Debug.Print ssetobj.Count

ssetobj.Delete

注意华横线部分

mayuezxl

第一个好像是没问题，可能脑袋有点晕了。呵呵~

想再请教一个问题，图层上有单行和多行文字，同时要统计出来，哪该怎么写程序啊？

lazybug

建两个选择集，FiLterData1(0) = "MText"再统计一遍

wyj7485

mayuezxl发表于2006-8-18 14:58:00第一个好像是没问题，可能脑袋有点晕了。呵呵~ 想再请教一个问题，图层上有单行和多行文字，同时要统计出来，哪该怎么写程序啊？