关于选择集的过滤

WWWDONG

Dim filtertype(0 To 4) As Integer
Dim filterdata(0 To 4) As Variant filtertype(0) = 0: filterdata(0) = "LWPOLYLINE"
filtertype(1) = -4: filterdata(1) = "<or"
filtertype(2) = 8: filterdata(2) = "柱"
filtertype(3) = 8: filterdata(3) = "墙"
filtertype(4) = -4: filterdata(4) = "or>" 我想建立一个选择集，为柱层或墙层中的LWPOLYLINE 上述代码错在哪？

雪山飞狐_lzh

Dim ft(1) As Integer, fd(1)
ft(0) = 0: fd(0) = "LWPOLYLINE"
ft(1) = 8: fd(1) = "柱,墙"