[VBA程序]：如何获得所有插入块实体到一个选择集

XDSoft

How to create a selection set of all the insertions of a block?  
ID    2019  
Applies to:    AutoCAD

This document is part of    Block Reference   COM-ActiveX Interfaces   Selection Sets   VBA     


Question
How do I create a selection set using the select method with a filter of a given
block in a drawing?
Answer
The following sample code selects all inserts of the block named "A".

2. 
   
3. [FONT=courier new]
   
4. Dim sset As Object
   
5.    Set sset = ActiveDocument.SelectionSets.Add("TEST")
   
6.    
   
7.    Dim mode As Integer
   
8.    Dim corner1 As Variant, corner2 As Variant
   
9.    Dim point1(0 To 2) As Double, point2(0 To 2) As Double
   
10.    
    
11.    Dim gpCode(0 To 1) As Integer
    
12.    Dim dataValue(0 To 1) As Variant
    
13.    Dim groupCode As Variant, dataCode As Variant
    
14.    gpCode(0) = 0
    
15.    dataValue(0) = "Insert"
    
16.    gpCode(1) = 2
    
17.    dataValue(1) = "A"
    
18.    
    
19.    groupCode = gpCode
    
20.    dataCode = dataValue
    
21.    
    
22.    point1(0) = 0
    
23.    point1(1) = 0
    
24.    point1(2) = 0
    
25.    point2(0) = 0
    
26.    point2(1) = 0
    
27.    point2(2) = 0
    
28.    
    
29.    corner1 = point1
    
30.    corner2 = point2
    
31. 
    
32.    sset.Select acSelectionSetAll, corner1, corner2, groupCode, dataCode
    
33. Here point1 and point2 are dummy points because of selection mode
    
34. acSelectionSetAll.
    
35. [/FONT]

<br /> [FONT=courier new]<br /> Dim sset As Object<br />    Set sset = ActiveDocument.SelectionSets.Add("TEST")<br />    <br />    Dim mode As Integer<br />    Dim corner1 As Variant, corner2 As Variant<br />    Dim point1(0 To 2) As Double, point2(0 To 2) As Double<br />    <br />    Dim gpCode(0 To 1) As Integer<br />    Dim dataValue(0 To 1) As Variant<br />    Dim groupCode As Variant, dataCode As Variant<br />    gpCode(0) = 0<br />    dataValue(0) = "Insert"<br />    gpCode(1) = 2<br />    dataValue(1) = "A"<br />    <br />    groupCode = gpCode<br />    dataCode = dataValue<br />    <br />    point1(0) = 0<br />    point1(1) = 0<br />    point1(2) = 0<br />    point2(0) = 0<br />    point2(1) = 0<br />    point2(2) = 0<br />    <br />    corner1 = point1<br />    corner2 = point2<br /> <br />    sset.Select acSelectionSetAll, corner1, corner2, groupCode, dataCode<br /> Here point1 and point2 are dummy points because of selection mode<br /> acSelectionSetAll.<br /> [/FONT]