过滤器的问题,大家来看看我设置得错没有
我想过滤出其中几个层的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
写得有问题啊！
似乎应该这样吧：
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
好象不用这么复杂吧
FilterData(1) = '"one,two,three"应该就可以的
页:
[1]