过滤器的问题,大家来看看我设置得错没有

lufan82

我想过滤出其中几个层的TEXT数据,我这样写对不对啊,出不来结果啊

Dim sset1 As AcadSelectionSet

Dim FilterType(3) As Integer
Dim FilterData(3) As Variant
FilterType(0) = 0
FilterData(0) = "text"
FilterType(1) = 8
FilterData(1) = '"one" '

filterdata(2)=8

filtertype(3)="two"

filterdata(3)=8

filtertype="three"

sset1.Select acSelectionSetAll ,, , Filterdata, Filtertype

songzhi

写得有问题啊！

似乎应该这样吧：

Dim sset1 As AcadSelectionSet

Dim FilterType(5) As Integer
Dim FilterData(5) As Variant
FilterType(0) = 0
FilterData(0) = "text"
FilterType(1) = -4
FilterData(1) = "<or"

filtertype(2)=8

filterdata(2)="one"

filtertype(3)=8
filterdata(3)="two"

filtertype(4)=8

filterdata(4)="three"

filtertype(5)=-4

filterdata(5)="or>"

sset1.Select acSelectionSetAll ,, , Filterdata, Filtertype

zhuxuhong

好象不用这么复杂吧

FilterData(1) = '"one,two,three"  应该就可以的