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

lufan82 · 发表于 2005-12-18 10:15:00

我想过滤出其中几个层的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 · 发表于 2005-12-18 14:09:00

写得有问题啊！
似乎应该这样吧：
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) = "
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 · 发表于 2005-12-18 15:58:00

好象不用这么复杂吧
FilterData(1) = '"one,two,three" 应该就可以的

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

发表回复

精选推荐