[讨论]关于选择集过滤器的问题，看问题出在哪里了？

luna125

简单说一下我的问题：
我的图形里有很多线段，我要通过屏幕选择一部分，然后通过全选的方式选择余下的部分。
我写了部分代码，但是全选的时候出错了，选择不了所有蓝色的直线，请看代码：

4. Sub FilterLine()
5.    On Error GoTo ErrorHandle
6.    Dim sslines As AcadSelectionSet
7.    Dim J1line As AcadSelectionSet
8.    Dim Hubline As AcadSelectionSet
9.    Dim Shroudline As AcadSelectionSet
10.    
11.    Dim FilterTypeJ1(0) As Integer
12.    Dim FilterDataJ1(0) As Variant
13.    Dim FilterTypeHS(5) As Integer
14.    Dim FilterDataHS(5) As Variant
15.       
16.    FilterTypeJ1(0) = 0
17.    FilterDataJ1(0) = "Line"
18.    
19.    FilterTypeHS(0) = -4
20.    FilterDataHS(0) = "<or"
21.    FilterTypeHS(1) = 0
22.    FilterDataHS(1) = "POLYLINE"
23.    FilterTypeHS(2) = 0
24.    FilterDataHS(2) = "SPline"
25.    FilterTypeHS(3) = 0
26.    FilterDataHS(3) = "Line"
27.    FilterTypeHS(4) = 0
28.    FilterDataHS(4) = "Arc"
29.    FilterTypeHS(5) = -4
30.    FilterDataHS(5) = "or>"
32.   
33.    Set J1line = ThisDrawing.SelectionSets.Add("J1")
34.    Set Hubline = ThisDrawing.SelectionSets.Add("Hub")
35.    Set Shroudline = ThisDrawing.SelectionSets.Add("Shroud")
36.    
37.    AppActivate "AutoCAD 2008"
38.       
39.    MsgBox "选择J=1计算站"
40.    J1line.SelectOnScreen FilterTypeJ1, FilterDataJ1
41.    J1line.Highlight (False)
42.    MsgBox "J=1计算站对象数：" & J1line.Count
43.       
44.    MsgBox "选择Hub"
45.    Hubline.SelectOnScreen FilterTypeHS, FilterDataHS
46.    Hubline.Highlight (False)
47.    MsgBox "Hub计算站对象数：" & Hubline.Count
48.          
49.    MsgBox "选择Shroud"
50.    Shroudline.SelectOnScreen FilterTypeHS, FilterDataHS
51.    Shroudline.Highlight (False)
52.    MsgBox "Shroud计算站对象数：" & Shroudline.Count
53.    
54.    
55.    Dim FilterType1(3) As Integer
56.    Dim FilterData1(3) As Variant
57.    
58.   '以下的过滤代码好像有问题，选择的时候不起作用，选不了蓝色的线，试了好几种情况都不行，把and 去掉也不行，加上也不行！
59.    FilterType1(0) = -4
60.    FilterData1(0) = "<and"
61.    FilterType1(1) = 0
62.    FilterData1(1) = "Line"
63.    FilterType1(2) = 62
64.    FilterData1(2) = 5
65.    FilterType1(3) = -4
66.    FilterData1(3) = "and>"
67.    'FilterType1(3) = 10
68.    'FilterData1(3) = 868#
69.    'FilterType1(4) = -4
70.    'FilterData1(4) = "and>"
71.    
72.       
73.    Set ss2lines = ThisDrawing.SelectionSets.Add("SSets2")
74.    ss2lines.Select acSelectionSetAll, , , FilterType1, FilterData1
75.    
76.    i = ss2lines.Count
77.    MsgBox "全部对象数:" & i
78.    
79.       
80.    'Dim E As AcadEntity
81.    'For Each E In ss2lines
82.    '   MsgBox E.ObjectName
83.    '   i = 1
84.    '   If (i = 1) Then
85.    '    End
86.    '   End If
87.    
88.   ' Next E
89.    
90.    i = ss2lines.Count
91.    MsgBox "所需对象数:" & i
92.    
93.    
94.       
95.    ss2lines.Delete
96.    J1line.Delete
97.    Hubline.Delete
98.    Shroudline.Delete
99.    
100.    
101.    Exit Sub
102. ErrorHandle:
103.    
104.    ThisDrawing.SelectionSets("J1").Delete
105.    ThisDrawing.SelectionSets("Hub").Delete
106.    ThisDrawing.SelectionSets("Shroud").Delete
107.    ThisDrawing.SelectionSets("SSets2").Delete
109. End Sub

Sub FilterLine()    On Error GoTo ErrorHandle    Dim sslines As AcadSelectionSet    Dim J1line As AcadSelectionSet    Dim Hubline As AcadSelectionSet    Dim Shroudline As AcadSelectionSet        Dim FilterTypeJ1(0) As Integer    Dim FilterDataJ1(0) As Variant    Dim FilterTypeHS(5) As Integer    Dim FilterDataHS(5) As Variant           FilterTypeJ1(0) = 0    FilterDataJ1(0) = "Line"        FilterTypeHS(0) = -4    FilterDataHS(0) = "<or"    FilterTypeHS(1) = 0    FilterDataHS(1) = "POLYLINE"    FilterTypeHS(2) = 0    FilterDataHS(2) = "SPline"    FilterTypeHS(3) = 0    FilterDataHS(3) = "Line"    FilterTypeHS(4) = 0    FilterDataHS(4) = "Arc"    FilterTypeHS(5) = -4    FilterDataHS(5) = "or>"       Set J1line = ThisDrawing.SelectionSets.Add("J1")    Set Hubline = ThisDrawing.SelectionSets.Add("Hub")    Set Shroudline = ThisDrawing.SelectionSets.Add("Shroud")        AppActivate "<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a> 2008"           MsgBox "选择J=1计算站"    J1line.SelectOnScreen FilterTypeJ1, FilterDataJ1    J1line.Highlight (False)    MsgBox "J=1计算站对象数：" & J1line.Count           MsgBox "选择Hub"    Hubline.SelectOnScreen FilterTypeHS, FilterDataHS    Hubline.Highlight (False)    MsgBox "Hub计算站对象数：" & Hubline.Count              MsgBox "选择Shroud"    Shroudline.SelectOnScreen FilterTypeHS, FilterDataHS    Shroudline.Highlight (False)    MsgBox "Shroud计算站对象数：" & Shroudline.Count            Dim FilterType1(3) As Integer    Dim FilterData1(3) As Variant       '以下的过滤代码好像有问题，选择的时候不起作用，选不了蓝色的线，试了好几种情况都不行，把and 去掉也不行，加上也不行！    FilterType1(0) = -4    FilterData1(0) = "<and"    FilterType1(1) = 0    FilterData1(1) = "Line"    FilterType1(2) = 62    FilterData1(2) = 5    FilterType1(3) = -4    FilterData1(3) = "and>"    'FilterType1(3) = 10    'FilterData1(3) = 868#    'FilterType1(4) = -4    'FilterData1(4) = "and>"               Set ss2lines = ThisDrawing.SelectionSets.Add("SSets2")    ss2lines.Select acSelectionSetAll, , , FilterType1, FilterData1        i = ss2lines.Count    MsgBox "全部对象数:" & i               'Dim E As AcadEntity    'For Each E In ss2lines    '   MsgBox E.ObjectName    '   i = 1    '   If (i = 1) Then    '    End    '   End If       ' Next E        i = ss2lines.Count    MsgBox "所需对象数:" & i                   ss2lines.Delete    J1line.Delete    Hubline.Delete    Shroudline.Delete            Exit Sub ErrorHandle:        ThisDrawing.SelectionSets("J1").Delete    ThisDrawing.SelectionSets("Hub").Delete    ThisDrawing.SelectionSets("Shroud").Delete    ThisDrawing.SelectionSets("SSets2").Delete End Sub

wylong

3. Sub FilterLine()
4. On Error GoTo ErrorHandle
5. Dim sslines As AcadSelectionSet
6. Dim J1line As AcadSelectionSet
7. Dim Hubline As AcadSelectionSet
8. Dim Shroudline As AcadSelectionSet
10. Dim FilterTypeJ1(0) As Integer
11. Dim FilterDataJ1(0) As Variant
12. Dim FilterTypeHS(5) As Integer
13. Dim FilterDataHS(5) As Variant
15. FilterTypeJ1(0) = 0
16. FilterDataJ1(0) = "Line"
18. FilterTypeHS(0) = -4
19. FilterDataHS(0) = "

Sub FilterLine() On Error GoTo ErrorHandle Dim sslines As AcadSelectionSet Dim J1line As AcadSelectionSet Dim Hubline As AcadSelectionSet Dim Shroudline As AcadSelectionSet Dim FilterTypeJ1(0) As Integer Dim FilterDataJ1(0) As Variant Dim FilterTypeHS(5) As Integer Dim FilterDataHS(5) As Variant FilterTypeJ1(0) = 0 FilterDataJ1(0) = "Line" FilterTypeHS(0) = -4 FilterDataHS(0) = "

luna125

TO wylong :

刚运行了一下，也还是不行呢，在go to o的地方出错了：”标签未定义“。

能说一下我之前那个代码为啥选择不了想要的直线吗？

wylong

写错了 

On Error goto o改成On Error goto 0 

luna125

还是有错误，怎么在

MsgBox "选择Hub"
Hubline.SelectOnScreen FilterTypeHS, FilterDataHS
Hubline.Highlight (False)
MsgBox "Hub计算站对象数：" & Hubline.Count

 

这个地方出错了呢？出错信息是：“Filter list 在selectonscreen 中无效！”

奇怪啊，我检查了一遍，也没啥改动呀？还请指教啊

wylong

你上面的代码我没改动过的，你自己好好检查一下吧

luna125

我更改一下，还是不能选择蓝色的直线，真弄不明白了问题出在哪里呢？还请高手过来指点一二！谢谢了！

 

Sub FilterLine()
   On Error GoTo ErrorHandle

   Dim sslines As AcadSelectionSet
   Dim J1line As AcadSelectionSet
   Dim Hubline As AcadSelectionSet
   Dim Shroudline As AcadSelectionSet
  
   Dim FilterTypeJ1(0) As Integer
   Dim FilterDataJ1(0) As Variant
   Dim FilterTypeHS(5) As Integer
   Dim FilterDataHS(5) As Variant

     
   FilterTypeJ1(0) = 0
   FilterDataJ1(0) = "Line"
  
   FilterTypeHS(0) = -4
   FilterDataHS(0) = "<or"
   FilterTypeHS(1) = 0
   FilterDataHS(1) = "POLYLINE"
   FilterTypeHS(2) = 0
   FilterDataHS(2) = "SPline"
   FilterTypeHS(3) = 0
   FilterDataHS(3) = "Line"
   FilterTypeHS(4) = 0
   FilterDataHS(4) = "Arc"
   FilterTypeHS(5) = -4
   FilterDataHS(5) = "or>"
 
   On Error Resume Next
   AppActivate "AutoCAD 2008"
   ThisDrawing.SelectionSets("J1").Delete
   ThisDrawing.SelectionSets("Hub").Delete
   ThisDrawing.SelectionSets("Shroud").Delete

   Set J1line = ThisDrawing.SelectionSets.Add("J1")
   Set Hubline = ThisDrawing.SelectionSets.Add("Hub")
   Set Shroudline = ThisDrawing.SelectionSets.Add("Shroud")
  
 
     
   MsgBox "选择J=1计算站"
   J1line.SelectOnScreen FilterTypeJ1, FilterDataJ1
   J1line.Highlight (False)
   MsgBox "J=1计算站对象数：" & J1line.count
     
   MsgBox "选择Hub"
   Hubline.SelectOnScreen FilterTypeHS, FilterDataHS
   Hubline.Highlight (False)
   MsgBox "Hub计算站对象数：" & Hubline.count
        
   MsgBox "选择Shroud"
   Shroudline.SelectOnScreen FilterTypeHS, FilterDataHS
   Shroudline.Highlight (False)
   MsgBox "Shroud计算站对象数：" & Shroudline.count
  
  
   Dim FilterType1(1) As Integer
   Dim FilterData1(1) As Variant
  
   'FilterType1(0) = -4
   'FilterData1(0) = "<and"
  
   FilterType1(0) = 0
   FilterData1(0) = "Line"
   FilterType1(1) = 62
   FilterData1(1) = 5
  
   'FilterType1(3) = -4
   'FilterData1(3) = "and>"
   'FilterType1(3) = 10
   'FilterData1(3) = 868#
   'FilterType1(4) = -4
   'FilterData1(4) = "and>"
  
   On Error Resume Next
   Set ss2lines = ThisDrawing.SelectionSets.Add("SSets2")
  
   ss2lines.Select acSelectionSetAll, , , FilterType1, FilterData1
  
   i = ss2lines.count
   MsgBox "全部对象数:" & i
  

     
   'Dim E As AcadEntity
   'For Each E In ss2lines
   '   MsgBox E.ObjectName
   '   i = 1
   '   If (i = 1) Then
   '    End
   '   End If
  
  ' Next E

  
   i = ss2lines.count
   MsgBox "所需对象数:" & i
  
  
     
   ss2lines.Delete
   J1line.Delete
   Hubline.Delete
   Shroudline.Delete
  
  
   Exit Sub
ErrorHandle:
  
   ThisDrawing.SelectionSets("J1").Delete
   ThisDrawing.SelectionSets("Hub").Delete
   ThisDrawing.SelectionSets("Shroud").Delete
   ThisDrawing.SelectionSets("SSets2").Delete

End Sub

 

luna125

选择蓝色线，过滤器这样设置有问题吗？

   FilterType1(0) = 0
   FilterData1(0) = "Line"
   FilterType1(1) = 62
   FilterData1(1) = 5

懵懂少年

请问这个问题最后怎么解决了，谢谢，我也遇到这方面的问题，谢谢