[求助]关于Select？

bluemoon

看看对象模型http://www.mjtd.com/object/acad2004/

下面是个具体的例子

2. Sub Example_SelectByPolygon()
   
3.     ' This example adds entities to a selection set by defining a polygon.
   
4.    
   
5.     Dim ssetObj As AcadSelectionSet
   
6.     Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET2")
   
7.      
   
8.     ' Add all the entities that lie within a fence to the selection set
   
9.     Dim mode As Integer
   
10.     Dim pointsArray(0 To 11) As Double
    
11.     mode = acSelectionSetFence
    
12. 
    
13.     pointsArray(0) = 28.2: pointsArray(1) = 17.2: pointsArray(2) = 0
    
14.     pointsArray(3) = -5: pointsArray(4) = 13: pointsArray(5) = 0
    
15.     pointsArray(6) = -3.3: pointsArray(7) = -3.6: pointsArray(8) = 0
    
16.     pointsArray(9) = 28: pointsArray(10) = -3: pointsArray(11) = 0
    
17.    
    
18.     ssetObj.SelectByPolygon mode, pointsArray
    
19.    
    
20.     ' Add all the Circles that lie within fence to the selection set
    
21. 
    
22.     ReDim gpCode(0 To 1) As Integer
    
23.     gpCode(0) = 0
    
24.     gpCode(1) = 10
    
25.    
    
26.     Dim pnt(0 To 2) As Double
    
27.     pnt(0) = 3: pnt(1) = 6: pnt(2) = 0
    
28.    
    
29.     ReDim dataValue(0 To 1) As Variant
    
30.     dataValue(0) = "Circle"
    
31.     dataValue(1) = pnt
    
32.    
    
33.     Dim groupCode As Variant, dataCode As Variant
    
34. 
    
35.     groupCode = gpCode
    
36.     dataCode = dataValue
    
37.    
    
38.     ssetObj.SelectByPolygon mode, pointsArray, groupCode, dataCode
    
39.    
    
40. End Sub

Sub Example_SelectByPolygon()<br />     ' This example adds entities to a selection set by defining a polygon.<br />     <br />     Dim ssetObj As AcadSelectionSet<br />     Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET2")<br />      <br />     ' Add all the entities that lie within a fence to the selection set<br />     Dim mode As Integer<br />     Dim pointsArray(0 To 11) As Double<br />     mode = acSelectionSetFence<br /> <br />     pointsArray(0) = 28.2: pointsArray(1) = 17.2: pointsArray(2) = 0<br />     pointsArray(3) = -5: pointsArray(4) = 13: pointsArray(5) = 0<br />     pointsArray(6) = -3.3: pointsArray(7) = -3.6: pointsArray(8) = 0<br />     pointsArray(9) = 28: pointsArray(10) = -3: pointsArray(11) = 0<br />     <br />     ssetObj.SelectByPolygon mode, pointsArray<br />     <br />     ' Add all the Circles that lie within fence to the selection set<br /> <br />     ReDim gpCode(0 To 1) As Integer<br />     gpCode(0) = 0<br />     gpCode(1) = 10<br />     <br />     Dim pnt(0 To 2) As Double<br />     pnt(0) = 3: pnt(1) = 6: pnt(2) = 0<br />     <br />     ReDim dataValue(0 To 1) As Variant<br />     dataValue(0) = "Circle"<br />     dataValue(1) = pnt<br />     <br />     Dim groupCode As Variant, dataCode As Variant<br /> <br />     groupCode = gpCode<br />     dataCode = dataValue<br />     <br />     ssetObj.SelectByPolygon mode, pointsArray, groupCode, dataCode<br />     <br /> End Sub