块参照与选择集的问题

winer3086

1. Public Sub FindBlock2()
   
2. 'On Error Resume Next
     a" H! {; b- }; v7 w8 ^
3. '安全创建新选择集
   4 \0 I3 u$ u9 l3 ^+ Q  Q3 M
4. Dim objselect As AcadSelectionSet
     C7 p5 v' Z7 k7 a
5. If IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then
   
6. Set objselect = ThisDrawing.SelectionSets.Add("TAG")
   7 a: u+ A7 o0 I( g6 w1 {
7. Else
   
8. Set objselect = ThisDrawing.SelectionSets.Item("TAG")
   " W; Q/ O5 x3 \$ b1 I! q" I
9. End If
   5 P+ J1 j  G& r5 c7 y6 e
10. 
    
11. '定义过滤器
    1 {' L9 p4 a) C
12. Dim FType As Variant
    
13. Dim FData As Variant
    3 a) @! ^  w. Z. C0 e; k/ @
14. FType = 2
    
15. FData = "INSERT"   '*****我想选择块参照，是否应这样使用
    
16. '选择实体并使用选择集
    3 [" r- b2 N$ c8 N- _% c
17. objselect.Select acSelectionSetAll, , , FType, FData   '****提示：参数filtertype（位于select中）无效
    
18. 
    , X  t$ z* Q4 R! O8 ?: B
19. 'Do something...
    4 ?: B; h/ y8 N: G4 v) R
20. 
    % V: Y4 @! P5 y5 g0 g* P
21. '安全删除选择集
    " Q) z) i' Y8 }, O$ G4 J7 t  F
22. If Not IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then
    
23. objselect.Delete
    
24. End If
    ; B& C7 C; j* ]1 m' n" a
25. End Sub

复制代码

woaishuijia

1. 
   
2. '定义过滤器
   . I( V5 c1 C+ W% v7 t- {7 k) F+ Z
3. Dim FType(0) As Integer
   " q" v, D6 Y, i+ k: w0 v
4. Dim FData(0) As Variant
   / f+ Y4 E. e: C. ^- e/ a) R' k
5. FType(0) = 0
   # X: z* e% ]) Z3 I7 {
6. FData(0) = "INSERT"
   * s0 Q$ Z- \" ~5 G$ R$ ?/ t
7. '选择实体并使用选择集
   
8. objselect.Select acSelectionSetAll, , , FType, FData   
   ! Q' i9 g3 F5 \

复制代码

winer3086

谢谢斑竹大人！！