[日积月累]：贴一个选择集的例子

fjw_ok

用途：快速选择，这样可加快程序运行
1。过滤的运用
2。多边行选择
3。大家可多看帮助，这是最好的老师
来自CAD HELP

2. [font=courier new]
   
3. Sub Example_SelectByPolygon()
   
4.     ' This example adds entities to a selection set by defining a polygon.
   
5.    
   
6.     Dim ssetObj As AcadSelectionSet
   
7.     Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET2")
   
8.      
   
9.     ' Add all the entities that lie within a fence to the selection set
   
10.     Dim mode As Integer
    
11.     Dim pointsArray(0 To 11) As Double
    
12.     mode = acSelectionSetFence
    
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.     ReDim gpCode(0 To 1) As Integer
    
22.     gpCode(0) = 0
    
23.     gpCode(1) = 10
    
24.    
    
25.     Dim pnt(0 To 2) As Double
    
26.     pnt(0) = 3: pnt(1) = 6: pnt(2) = 0
    
27.    
    
28.     ReDim dataValue(0 To 1) As Variant
    
29.     dataValue(0) = "Circle"
    
30.     dataValue(1) = pnt
    
31.    
    
32.     Dim groupCode As Variant, dataCode As Variant
    
33.     groupCode = gpCode
    
34.     dataCode = dataValue
    
35.    
    
36.     ssetObj.SelectByPolygon mode, pointsArray, groupCode, dataCode
    
37.    
    
38. End Sub
    
39. [/font]

[font=courier new]<br /> 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 />     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 />     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 />     groupCode = gpCode<br />     dataCode = dataValue<br />     <br />     ssetObj.SelectByPolygon mode, pointsArray, groupCode, dataCode<br />     <br /> End Sub<br /> [/font]

cdjtsf

这是arx程序啊

fjw_ok

最初由 cdjtsf 发布
[B]这是arx程序啊 [/B]

凭啥说呢？