块参照与选择集的问题

winer3086

1. Public Sub FindBlock2()
   ' v# l1 M3 ]  A1 V) p. {) M
2. 'On Error Resume Next
   
3. '安全创建新选择集
   ) `' J- O) d$ o" v" o
4. Dim objselect As AcadSelectionSet
   
5. If IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then
   3 V  j) [* s5 M- W2 R
6. Set objselect = ThisDrawing.SelectionSets.Add("TAG")
   4 O; q- a7 o0 ?- U
7. Else
   + \4 L" e$ H9 ~2 R2 Z
8. Set objselect = ThisDrawing.SelectionSets.Item("TAG")
   / _+ K6 i, X" T6 `, I" C  u  n
9. End If
   
10. 
    
11. '定义过滤器
    
12. Dim FType As Variant
    ! W( l# p8 p# A0 Z+ f  U
13. Dim FData As Variant
    
14. FType = 2
    5 T& t/ ]$ f% r$ @) e7 b# R  e
15. FData = "INSERT"   '*****我想选择块参照，是否应这样使用
    ! {  Z  P, x8 W" w; _
16. '选择实体并使用选择集
    
17. objselect.Select acSelectionSetAll, , , FType, FData   '****提示：参数filtertype（位于select中）无效
    7 f+ e  ^0 y2 F) U! O/ B
18. 
    
19. 'Do something...
    
20. 
    5 @4 \7 ^: t$ h& U2 g4 P- w
21. '安全删除选择集
    4 v: X. Q, X: |3 F5 V
22. If Not IsNull(ThisDrawing.SelectionSets.Item("TAG")) Then
    
23. objselect.Delete
    
24. End If
    
25. End Sub

复制代码

woaishuijia

- g/ r; _6 Q+ S

1. 
   
2. '定义过滤器
   
3. Dim FType(0) As Integer
   
4. Dim FData(0) As Variant
   : K/ V2 N8 u: W% T. K  A
5. FType(0) = 0
   8 \5 `# _- M6 j% ?' h1 h& G
6. FData(0) = "INSERT"
   . V) o( g3 w1 E* {, M7 E
7. '选择实体并使用选择集
   & e5 l7 i! Y; t+ m+ f6 ]
8. objselect.Select acSelectionSetAll, , , FType, FData   
   * [) \. r- X' @% L- w

复制代码

winer3086

谢谢斑竹大人！！