[VBA]请教选择集过滤设置!!

bai_cai101

在过滤条件中,<or,<and and> or>它们的逻辑关系如何,设置原理怎么啊,DXF帮助里找不到啊!!求各位大虾讲解一下!!多谢了!! Sub tta()
On Error Resume Next
Dim ss As AcadSelectionSet
ThisDrawing.SelectionSets("Test").Delete
Set ss = ThisDrawing.SelectionSets.Add("Test")
Dim ft(6) As Integer, fd(6)
ft(0) = -4: fd(0) = "<or"
ft(1) = -4: fd(1) = "<and"
ft(2) = 8: fd(2) = "0"
ft(3) = 62: fd(3) = 256
ft(4) = -4: fd(4) = "and>"
ft(5) = 62: fd(5) = 1
ft(6) = -4: fd(6) = "or>"
ss.Select acSelectionSetAll, , , ft, fd
MsgBox ss.Count

mccad

这些在DXF文档中没有，你可以看看VL文档中有关过滤器的介绍。