块参照与选择集的问题

winer3086

% P7 x$ u; F) }- b# P: Y# q: s

1. Public Sub FindBlock2()
   $ G# G2 V7 _6 f& C9 q- V, i
2. 'On Error Resume Next
   ( n4 ?1 B/ t! U3 F
3. '安全创建新选择集
   
4. Dim objselect As AcadSelectionSet
   ' ^) I7 z1 r7 m" k, _7 r/ q
5. If IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then
   0 Y6 ], l, S/ Q$ z
6. Set objselect = ThisDrawing.SelectionSets.Add("TAG")
   
7. Else
   
8. Set objselect = ThisDrawing.SelectionSets.Item("TAG")
   : f: U/ I( s: K" C
9. End If
   ! `. ~3 @7 o7 i5 s8 L5 o/ C
10. 
    
11. '定义过滤器
    6 r) K) R5 M7 G
12. Dim FType As Variant
    
13. Dim FData As Variant
    
14. FType = 2
    & r$ i5 B$ j! E: ?" ]3 h/ C9 J
15. FData = "INSERT"   '*****我想选择块参照，是否应这样使用
    
16. '选择实体并使用选择集
    
17. objselect.Select acSelectionSetAll, , , FType, FData   '****提示：参数filtertype（位于select中）无效
    9 e/ U9 d0 `5 J
18. 
    
19. 'Do something...
    % N8 p: a8 G" [8 l6 a! @
20. 
    ; B& M7 y$ H* o2 A$ _0 K
21. '安全删除选择集
    6 F% [6 P+ O& ~% n
22. If Not IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then
    . P5 k+ v$ Z% y' ?) B; T
23. objselect.Delete
    1 m* U- Q+ j  `
24. End If
    5 O3 p2 \6 ^9 u% b  P+ |  w* }
25. End Sub

复制代码

woaishuijia

2 ?4 S+ R# K6 J+ f8 |" J- }+ V

1. 
   5 K& M- u4 @0 N7 n& x/ o, q+ l
2. '定义过滤器
   / v3 O3 |% L* n0 |4 m. e
3. Dim FType(0) As Integer
   
4. Dim FData(0) As Variant
   2 J6 D. X3 J! @6 R6 ^  E
5. FType(0) = 0
   
6. FData(0) = "INSERT"
   ) [: [* D9 s' Y! @  A
7. '选择实体并使用选择集
     h4 D* X1 A0 e. [( ~5 E" J4 N, c
8. objselect.Select acSelectionSetAll, , , FType, FData   
   

复制代码

winer3086

谢谢斑竹大人！！