块参照与选择集的问题

winer3086

4 t: m4 {( b# i4 _- P! p- R* G

1. Public Sub FindBlock2()
   , l0 q( \4 w( s" S- ~7 g; m. q$ M
2. 'On Error Resume Next
     [7 x" R* m7 p+ a5 ~) p
3. '安全创建新选择集
   , H  f; e: v' ~6 C4 h% x. b
4. Dim objselect As AcadSelectionSet
   
5. If IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then
   4 ^9 z4 @, z) x% O7 C
6. Set objselect = ThisDrawing.SelectionSets.Add("TAG")
   ! ]' s7 R4 c0 q0 F/ `( s6 r
7. Else
   & n0 D, C3 ?: C6 I, n
8. Set objselect = ThisDrawing.SelectionSets.Item("TAG")
   
9. End If
   / h& ^* Y. U( D& P* C! [& R7 y: L" r( B
10. 
    ' ]! y5 l% {  M& t8 v: q% C* k
11. '定义过滤器
    5 k% d! b; w/ L. J
12. Dim FType As Variant
    
13. Dim FData As Variant
    2 h& r. I" u( M4 O
14. FType = 2
    9 m2 L( U4 A. M
15. FData = "INSERT"   '*****我想选择块参照，是否应这样使用
    & S" u2 d3 s8 }4 a9 a! N
16. '选择实体并使用选择集
    : T, X, R. I$ L: y2 d& v2 S: m3 U" ^
17. objselect.Select acSelectionSetAll, , , FType, FData   '****提示：参数filtertype（位于select中）无效
    ' z5 u6 Q5 U& v- J+ c- R
18. 
    ! H3 x1 D, e) r) f+ |
19. 'Do something...
    
20. 
    
21. '安全删除选择集
    . i" g4 r7 w2 Z7 p
22. If Not IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then
    
23. objselect.Delete
    
24. End If
    
25. End Sub

复制代码

woaishuijia

1. 
   " H3 B, X" {& }
2. '定义过滤器
   
3. Dim FType(0) As Integer
   
4. Dim FData(0) As Variant
   ! Z; g" d2 A) ~: ^
5. FType(0) = 0
   # f0 c, z1 ]% Q. a4 a# Y* X6 }
6. FData(0) = "INSERT"
   / C3 H" S* A2 L6 y: J
7. '选择实体并使用选择集
   
8. objselect.Select acSelectionSetAll, , , FType, FData   
   

复制代码

winer3086

谢谢斑竹大人！！