[VBA程序]：设置BLOCK和LAYER的“过滤器”

XDSoft

2. 
   
3. [FONT=century gothic]
   
4. How to setup selectionset filters for a block or layer?  
   
5. ID    19147  
   
6. Applies to:    AutoCAD 2000
   
7. 
   
8. This document is part of    Layers   Block Reference   COM-ActiveX Interfaces   Selecting Entities   Selection Sets   VBA     
   
9. 
   
10. 
    
11. Question
    
12. How do I use a selection set filter to select a block with a particular name
    
13. that is on a particular layer ?
    
14. Answer
    
15. The following sample code allows you to select blocks based on this criteria:
    
16. 
    
17. 1. selectALayer() - create a selectionset with entities on "layer1"
    
18. 2. selectABlock() - create a selectionset with a block insert "testBlock"
    
19. 3. selectABlockOnALayer() - create a selectionset with a block insert
    
20. "testBlock"
    
21.   on "layer1"
    
22. Sub selectALayer()
    
23.    Dim sset As Object
    
24.    
    
25.    Set sset = ThisDrawing.SelectionSets.Add("TestSet1")
    
26.    Dim filterType As Variant
    
27.    Dim filterData As Variant
    
28.    Dim p1(0 To 2) As Double
    
29.    Dim p2(0 To 2) As Double
    
30.    
    
31.    Dim grpCode(0) As Integer
    
32.    grpCode(0) = 8
    
33.    filterType = grpCode
    
34.    Dim grpValue(0) As Variant
    
35.    grpValue(0) = "layer1"
    
36.    filterData = grpValue
    
37.        
    
38.    sset.Select acSelectionSetAll, p1, p2, filterType, filterData
    
39.    
    
40. End Sub
    
41. 
    
42. Sub selectABlock()
    
43.    Dim sset As Object
    
44.    
    
45.    Set sset = ThisDrawing.SelectionSets.Add("TestSet2")
    
46.    Dim filterType As Variant
    
47.    Dim filterData As Variant
    
48.    Dim p1(0 To 2) As Double
    
49.    Dim p2(0 To 2) As Double
    
50.    
    
51.    Dim grpCode(0) As Integer
    
52.    grpCode(0) = 2
    
53.    filterType = grpCode
    
54.    Dim grpValue(0) As Variant
    
55.    grpValue(0) = "testBlock"
    
56.    filterData = grpValue
    
57.        
    
58.    sset.Select acSelectionSetAll, p1, p2, filterType, filterData
    
59. End Sub
    
60. 
    
61. 
    
62. Sub selectABlockOnALayer()
    
63.    Dim sset As Object
    
64.    
    
65.    Set sset = ThisDrawing.SelectionSets.Add("TestSet3")
    
66.    Dim filterType As Variant
    
67.    Dim filterData As Variant
    
68.    Dim p1(0 To 2) As Double
    
69.    Dim p2(0 To 2) As Double
    
70.    
    
71.    Dim grpCode(0 To 1) As Integer
    
72.    grpCode(0) = 8
    
73.    grpCode(1) = 2
    
74.    filterType = grpCode
    
75.    Dim grpValue(0 To 1) As Variant
    
76.    grpValue(0) = "layer1"
    
77.    grpValue(1) = "testBlock"
    
78.    filterData = grpValue
    
79.    
    
80.    sset.Select acSelectionSetAll, p1, p2, filterType, filterData
    
81. End Sub[/FONT]

<br /> [FONT=century gothic]<br /> How to setup selectionset filters for a block or layer?  <br /> ID    19147  <br /> Applies to:    AutoCAD 2000<br /> <br /> This document is part of    Layers   Block Reference   COM-ActiveX Interfaces   Selecting Entities   Selection Sets   VBA     <br /> <br /> <br /> Question <br /> How do I use a selection set filter to select a block with a particular name<br /> that is on a particular layer ?<br /> Answer <br /> The following sample code allows you to select blocks based on this criteria: <br /> <br /> 1. selectALayer() - create a selectionset with entities on "layer1"<br /> 2. selectABlock() - create a selectionset with a block insert "testBlock"<br /> 3. selectABlockOnALayer() - create a selectionset with a block insert<br /> "testBlock" <br />   on "layer1"<br /> Sub selectALayer()<br />    Dim sset As Object<br />    <br />    Set sset = ThisDrawing.SelectionSets.Add("TestSet1")<br />    Dim filterType As Variant<br />    Dim filterData As Variant<br />    Dim p1(0 To 2) As Double<br />    Dim p2(0 To 2) As Double<br />    <br />    Dim grpCode(0) As Integer<br />    grpCode(0) = 8<br />    filterType = grpCode<br />    Dim grpValue(0) As Variant<br />    grpValue(0) = "layer1"<br />    filterData = grpValue<br />         <br />    sset.Select acSelectionSetAll, p1, p2, filterType, filterData<br />    <br /> End Sub<br /> <br /> Sub selectABlock()<br />    Dim sset As Object<br />    <br />    Set sset = ThisDrawing.SelectionSets.Add("TestSet2")<br />    Dim filterType As Variant<br />    Dim filterData As Variant<br />    Dim p1(0 To 2) As Double<br />    Dim p2(0 To 2) As Double<br />    <br />    Dim grpCode(0) As Integer<br />    grpCode(0) = 2<br />    filterType = grpCode<br />    Dim grpValue(0) As Variant<br />    grpValue(0) = "testBlock"<br />    filterData = grpValue<br />         <br />    sset.Select acSelectionSetAll, p1, p2, filterType, filterData<br /> End Sub<br /> <br /> <br /> Sub selectABlockOnALayer()<br />    Dim sset As Object<br />    <br />    Set sset = ThisDrawing.SelectionSets.Add("TestSet3")<br />    Dim filterType As Variant<br />    Dim filterData As Variant<br />    Dim p1(0 To 2) As Double<br />    Dim p2(0 To 2) As Double<br />    <br />    Dim grpCode(0 To 1) As Integer<br />    grpCode(0) = 8<br />    grpCode(1) = 2<br />    filterType = grpCode<br />    Dim grpValue(0 To 1) As Variant<br />    grpValue(0) = "layer1"<br />    grpValue(1) = "testBlock"<br />    filterData = grpValue<br />    <br />    sset.Select acSelectionSetAll, p1, p2, filterType, filterData<br /> End Sub[/FONT]