[求助]：请教高手!我怎么选择所有ACDBPOLYLINE对象!!??

tpmao

对于SELECT 方法里的FILTER TYPE 和filter value怎么设置！！！
谢谢！！１

efan2000

过滤机制是采用DXF组码进行操作的，可以看看帮助或者相关资料。
下面的示例是计算某一名称的块引用的数目，也使用了过滤机制。

2. 
   
3.   [FONT=courier new]
   
4. '计算块的数目
   
5. Private Function BlockCount(ByVal Name As String) As Integer
   
6.     BlockCount = 0
   
7.     If Name = "" Then Exit Function
   
8.     On Error Resume Next
   
9.     '创建选择集
   
10.     Dim SSetObj As Object
    
11.     Set SSetObj = ThisDrawing.SelectionSets("BlockCount")
    
12.     If Err.Number <> 0 Then
    
13.         Err.Clear
    
14.         Set SSetObj = ThisDrawing.SelectionSets.Add("BlockCount")
    
15.     End If
    
16.     SSetObj.Clear
    
17.    
    
18.     On Error GoTo ErrTrap
    
19.     '创建过滤机制
    
20.     Dim fType(0 To 1) As Integer
    
21.     Dim fData(0 To 1) As Variant
    
22.     fType(0) = 0: fData(0) = "INSERT"
    
23.     fType(1) = 2: fData(1) = Name
    
24.     '选择名称为Name的所有块
    
25.     SSetObj.Select acSelectionSetAll, , , fType, fData
    
26.     '返回块的数目
    
27.     BlockCount = SSetObj.Count
    
28.     '删除数组
    
29.     Erase fType: Erase fData
    
30.     '删除选择集
    
31.     SSetObj.Clear
    
32.     SSetObj.Delete
    
33.     Set SSetObj = Nothing
    
34.     Exit Function
    
35.    
    
36. ErrTrap:
    
37.     MsgBox "出错了，请检查程序！"
    
38.     On Error GoTo 0
    
39. End Function
    
40.   [/FONT]
    

<br />   [FONT=courier new]<br /> '计算块的数目<br /> Private Function BlockCount(ByVal Name As String) As Integer<br />     BlockCount = 0<br />     If Name = "" Then Exit Function<br />     On Error Resume Next<br />     '创建选择集<br />     Dim SSetObj As Object<br />     Set SSetObj = ThisDrawing.SelectionSets("BlockCount")<br />     If Err.Number <> 0 Then<br />         Err.Clear<br />         Set SSetObj = ThisDrawing.SelectionSets.Add("BlockCount")<br />     End If<br />     SSetObj.Clear<br />     <br />     On Error GoTo ErrTrap<br />     '创建过滤机制<br />     Dim fType(0 To 1) As Integer<br />     Dim fData(0 To 1) As Variant<br />     fType(0) = 0: fData(0) = "INSERT"<br />     fType(1) = 2: fData(1) = Name<br />     '选择名称为Name的所有块<br />     SSetObj.Select acSelectionSetAll, , , fType, fData<br />     '返回块的数目<br />     BlockCount = SSetObj.Count<br />     '删除数组<br />     Erase fType: Erase fData<br />     '删除选择集<br />     SSetObj.Clear<br />     SSetObj.Delete<br />     Set SSetObj = Nothing<br />     Exit Function<br />     <br /> ErrTrap:<br />     MsgBox "出错了，请检查程序！"<br />     On Error GoTo 0<br /> End Function<br />   [/FONT]<br />

dongshan

很好