[VBA]求助：怎么选择集中的总数和实际总数对不上呢？？

胡说

1.    On Error Resume Next
2.     Set ssetObj = ThisDrawing.SelectionSets.Add("SSET_OBJ")
3.     If Err Then
4.         Err.Clear
5.         Set ssetObj = ThisDrawing.SelectionSets("SSET_OBJ")
6.     End If
7.    
8.     ' Add objects to a selection set by prompting user to select on the screen
9. '    ssetObj.Clear
10.     ssetObj.Clear
11.     FilterType(0) = 0
12.     FilterData(0) = "CIRCLE"
13.     ssetObj.SelectOnScreen FilterType, FilterData
14.     sngSum = ssetObj.Count

复制代码

[U]通过以上代码选中的16个圆，而sngSum却等于50？？[/U]

wylong

可能你的圆有重复的，表面看到的是16，而实际存在的就是50个，你在检查一下

MJTD_7777

2. Sub mm()
3. On Error Resume Next
4.     Dim ssetObj As AcadSelectionSet
5.     Set ssetObj = ThisDrawing.SelectionSets.Add("SSET_OBJ")
6.     If Err Then
7.         Err.Clear
8.         Set ssetObj = ThisDrawing.SelectionSets("SSET_OBJ")
9.     End If
10.     On Error GoTo 0
11.     ' Add objects to a selection set by prompting user to select on the screen
12. '    ssetObj.Clear
13.     ssetObj.Clear
14.     Dim FilterType(0)  As Integer, FilterData(0)  As Variant
15.     FilterType(0) = 0
16.     FilterData(0) = "CIRCLE"
17.     ssetObj.SelectOnScreen FilterType, FilterData
18.     sngSum = ssetObj.Count
19. End Sub

Sub mm() On Error Resume Next     Dim ssetObj As AcadSelectionSet     Set ssetObj = ThisDrawing.SelectionSets.Add("SSET_OBJ")     If Err Then         Err.Clear         Set ssetObj = ThisDrawing.SelectionSets("SSET_OBJ")     End If     On Error GoTo 0     ' Add objects to a selection set by prompting user to select on the screen '    ssetObj.Clear     ssetObj.Clear     Dim FilterType(0)  As Integer, FilterData(0)  As Variant     FilterType(0) = 0     FilterData(0) = "CIRCLE"     ssetObj.SelectOnScreen FilterType, FilterData     sngSum = ssetObj.Count End Sub