[求助]谁帮我看看有关选择集的代码

subtlation

'如何让选择集ssetobj中块名为"钢筋编号"的块形成另一个集合sset1

2. Dim sset1 As AcadSelectionSet
   
3.   Set sset1 = ssetObj
   
4.   Dim FType(0) As Integer
   
5.   Dim FData(0) As Variant
   
6.   FType(0) = 2
   
7.   FData(0) ="钢筋编号"
   
8.   Dim FilterType As Variant
   
9.   Dim FilterData As Variant
   
10.   FilterType = FType
    
11.   FilterData = FData
    
12.   '选择集sset1中只留下名字为"钢筋编号"的块
    
13.   sset1.Select acSelectionSetPrevious, FilterType, FilterData'这一步出错
    
14. 
    
15.   If sset1.Count = 0 Then Exit Sub

Dim sset1 As AcadSelectionSet<br />   Set sset1 = ssetObj<br />   Dim FType(0) As Integer<br />   Dim FData(0) As Variant<br />   FType(0) = 2<br />   FData(0) ="钢筋编号"<br />   Dim FilterType As Variant<br />   Dim FilterData As Variant<br />   FilterType = FType<br />   FilterData = FData<br />   '选择集sset1中只留下名字为"钢筋编号"的块<br />   sset1.Select acSelectionSetPrevious, FilterType, FilterData'这一步出错<br /> <br />   If sset1.Count = 0 Then Exit Sub

efan2000

选择集之间的操作要使用AddItems来进行，即遍历ssetObj，查出名为"钢筋编号"的块赋给一个对象数组，然后在sset1使用AddItems添加。

subtlation

谢谢，要重写一下代码了。