[VBA函数]：acad的vba里怎么创建选择集呢？用哪个函数，给个例句好吗？

god

acad的vba里怎么创建选择集呢？用哪个函数，给个例句好吗？

fjw_ok

dim a as acadselectionset(s)
a.http://www.xdcad.net/forum/showthread.php?s=&threadid=18600

efan2000

2. 
   
3.   [FONT=courier new]
   
4. Sub Example_Select()
   
5.     ' 这个例子展示了交叉选择，随后使用了过滤机制。   
   
6.     ' 创建选择集
   
7.     Dim ssetObj As AcadSelectionSet
   
8.     Set ssetObj = ThisDrawing.SelectionSets.Add("SSET")
   
9.    
   
10.    
    
11.     ' 添加实体到选择集
    
12.     Dim mode As Integer
    
13. 
    
14.     Dim corner1(0 To 2) As Double
    
15.     Dim corner2(0 To 2) As Double
    
16.    
    
17.     mode = acSelectionSetCrossing
    
18.     corner1(0) = 28: corner1(1) = 17: corner1(2) = 0
    
19.     corner2(0) = -3.3: corner2(1) = -3.6: corner2(2) = 0
    
20.     ssetObj.Select mode, corner1, corner2
    
21.    
    
22.     ' 仅添加圆到选择集
    
23.     Dim gpCode(0) As Integer
    
24.     Dim dataValue(0) As Variant
    
25.     gpCode(0) = 0
    
26.     dataValue(0) = "Circle"
    
27.    
    
28.     Dim groupCode As Variant, dataCode As Variant
    
29.     groupCode = gpCode
    
30.     dataCode = dataValue
    
31.    
    
32.     ssetObj.Select mode, corner1, corner2, groupCode, dataCode
    
33.    
    
34. End Sub
    
35.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub Example_Select()<br />     ' 这个例子展示了交叉选择，随后使用了过滤机制。    <br />     ' 创建选择集<br />     Dim ssetObj As AcadSelectionSet<br />     Set ssetObj = ThisDrawing.SelectionSets.Add("SSET")<br />     <br />     <br />     ' 添加实体到选择集<br />     Dim mode As Integer<br /> <br />     Dim corner1(0 To 2) As Double<br />     Dim corner2(0 To 2) As Double<br />     <br />     mode = acSelectionSetCrossing<br />     corner1(0) = 28: corner1(1) = 17: corner1(2) = 0<br />     corner2(0) = -3.3: corner2(1) = -3.6: corner2(2) = 0<br />     ssetObj.Select mode, corner1, corner2<br />     <br />     ' 仅添加圆到选择集<br />     Dim gpCode(0) As Integer<br />     Dim dataValue(0) As Variant<br />     gpCode(0) = 0<br />     dataValue(0) = "Circle"<br />     <br />     Dim groupCode As Variant, dataCode As Variant<br />     groupCode = gpCode<br />     dataCode = dataValue<br />     <br />     ssetObj.Select mode, corner1, corner2, groupCode, dataCode<br />     <br /> End Sub<br />   [/FONT]<br />

god

果然是高手啊，斑竹还真不是白当的，佩服佩服。I 服了 you。

efan2000

欢迎常来，论坛需要大家的扶持才能壮大。

fjw_ok

也可以多条件选择：
gp(0)=0
data(1)="circle"
gp(1)=8
data(1)=layername

god

噢，高明，真高