【选择集】严重的bug！！冰天雪地裸跪求解决办法！！

tekken918

很大的图纸，布局图。  想删除某些固定位置的文字。

图纸缩放的过小时，想用两点窗交选择某位置的文字，就会连带选择上周围的。

但是缩放到合适尺寸就不会这样。

不是捕捉和靶框的问题  都关掉了。


哪位高手遇到过这种情况啊。能不能提供一个解决办法！！！

雪山飞狐_lzh

对于特殊的范围选择，比如选择点或文本，可以配合组码10
如
在minpoint和maxpoint两点范围内选择，过滤器：
-4,">=,>=,*"
10,minpoint
-4,"<=,<=,*"
10,maxpoint

tekken918

顶超版的回复   很直接的方法 我试试

tekken918

感谢超版  成功了  贴代码  封贴

2. 
   
3. Function CreateSelectionSet(Optional SSetName As String = "mjtd") As AcadSelectionSet
   
4.     On Error Resume Next
   
5.     ThisDrawing.SelectionSets(SSetName).Delete
   
6.     Set CreateSelectionSet = ThisDrawing.SelectionSets.Add(SSetName)
   
7. End Function
   
8. 
   
9. 
   
10. '================================================
    
11. Sub tsts()
    
12. Dim ss_ob As AcadSelectionSet
    
13. Set ss_ob = CreateSelectionSet("ssss")
    
14.     Dim mode As Integer
    
15.     Dim corner1(0 To 2) As Double
    
16.     Dim corner2(0 To 2) As Double
    
17.    
    
18.     mode = acSelectionSetCrossing
    
19.     corner1(0) = 0: corner1(1) = 0: corner1(2) = 0
    
20.     corner2(0) = 9: corner2(1) = 1.72: corner2(2) = 0
    
21.    
    
22.     Dim gpCode(0 to 4) As Integer
    
23.     Dim dataValue(0 to 4) As Variant
    
24.    
    
25.     gpCode(0) = 0
    
26.     dataValue(0) = "TEXT"
    
27.    
    
28.    
    
29.     gpCode(1) = -4
    
30.     dataValue(1) = ">=,>=,*"
    
31.    
    
32.     gpCode(2) = 10
    
33.     dataValue(2) = corner1
    
34.    
    
35.     gpCode(3) = -4
    
36.     dataValue(3) = "<=,<=,*"
    
37.    
    
38.     gpCode(4) = 10
    
39.     dataValue(4) = corner2
    
40.    
    
41.    
    
42.     Dim groupCode As Variant, dataCode As Variant
    
43.     groupCode = gpCode
    
44.     dataCode = dataValue
    
45.    
    
46.     ss_ob.Select mode, corner1, corner2, groupCode, dataCode
    
47.      MsgBox ss_ob.Count
    
48.    'ss_ob.Item(0).Delete
    
49.     ss_ob.delete
    
50. 
    
51. End Sub

<br /> Function CreateSelectionSet(Optional SSetName As String = "mjtd") As AcadSelectionSet<br />     On Error Resume Next<br />     ThisDrawing.SelectionSets(SSetName).Delete<br />     Set CreateSelectionSet = ThisDrawing.SelectionSets.Add(SSetName)<br /> End Function<br /> <br /> <br /> '================================================<br /> Sub tsts()<br /> Dim ss_ob As AcadSelectionSet<br /> Set ss_ob = CreateSelectionSet("ssss")<br />     Dim mode As Integer<br />     Dim corner1(0 To 2) As Double<br />     Dim corner2(0 To 2) As Double<br />     <br />     mode = acSelectionSetCrossing<br />     corner1(0) = 0: corner1(1) = 0: corner1(2) = 0<br />     corner2(0) = 9: corner2(1) = 1.72: corner2(2) = 0<br />     <br />     Dim gpCode(0 to 4) As Integer<br />     Dim dataValue(0 to 4) As Variant<br />     <br />     gpCode(0) = 0<br />     dataValue(0) = "TEXT"<br />     <br />     <br />     gpCode(1) = -4<br />     dataValue(1) = ">=,>=,*"<br />     <br />     gpCode(2) = 10<br />     dataValue(2) = corner1<br />     <br />     gpCode(3) = -4<br />     dataValue(3) = "<=,<=,*"<br />     <br />     gpCode(4) = 10<br />     dataValue(4) = corner2<br />     <br />     <br />     Dim groupCode As Variant, dataCode As Variant<br />     groupCode = gpCode<br />     dataCode = dataValue<br />     <br />     ss_ob.Select mode, corner1, corner2, groupCode, dataCode<br />      MsgBox ss_ob.Count<br />    'ss_ob.Item(0).Delete<br />     ss_ob.delete<br /> <br /> End Sub