加入到选择集中的对象如何修改其属性：如颜色。

XJ_HE

liujiping

for each obj in ent(选择集）
   ----------------------（过虑条件）
with  obj
.color
.----------------------------(其他属性）
end with
next

XJ_HE

Private Sub CommandButton1_Click()
Dim filtertype As Integer
Dim filterdata As String
Dim S As AcadSelectionSet
Dim O As Variant
filtertype = 0
filterdata = "TEXT"
Me.Hide
Set S = ThisDrawing.SelectionSets.Add("A11AA")
S.SelectOnScreen

Dim A As AcadEntity
For Each A In S
      S.SelectOnScreen FILTERTYEP, filterdata
      A.color = acBlue
      A.Update
Next A     
End Sub

XJ_HE

Private Sub CommandButton1_Click()
Dim filtertype As Integer
Dim filterdata As String
Dim S As AcadSelectionSet
filtertype = 0
filterdata = "TEXT"

Set S = ThisDrawing.SelectionSets.Add("A")
S.SelectOnScreen

Dim A As AcadEntity
For Each A In S
      S.SelectOnScreen filtertype, filterdata
      A.color = acBlue
      A.Update
Next A

XJ_HE

其实我的目的是这样的：

就是希望可以一下子将所有对象都选中，然后再过滤出其中满足条件的对象（比如文本），最后再改变这些对象的颜色。

单独改选择集中的对象的颜色没有问题。

liujiping

选的时候可以同时过滤(只选符合条件的).为什么要选完后才过滤.不知问题是不是在这里

mccad

注意 filtertype 和 filterdata 都应该为Variant
你可以这样定义

2. Dim filtertype(0) As Integer
   
3. Dim filterdata(0) As String
   
4. Dim S As AcadSelectionSet
   
5. filtertype(0) = 0
   
6. filterdata(0) = "TEXT"

Dim filtertype(0) As Integer<br /> Dim filterdata(0) As String<br /> Dim S As AcadSelectionSet<br /> filtertype(0) = 0<br /> filterdata(0) = "TEXT"

XJ_HE

2. Private Sub CommandButton1_Click()
   
3. Dim filtertype(0) As Integer
   
4. Dim filterdata(0) As String
   
5. Dim S As AcadSelectionSet
   
6. filtertype(0) = 0
   
7. filterdata(0) = "TEXT"
   
8. Me.Hide
   
9. Set S = ThisDrawing.SelectionSets.Add("A18")
   
10. S.SelectOnScreen filtertype, filterdata
    
11. 
    
12. Dim a As AcadEntity
    
13. For Each a In S
    
14.       a.color = acBlue
    
15.       a.Update
    
16. Next a
    
17. 
    
18. End Sub

Private Sub CommandButton1_Click()<br /> Dim filtertype(0) As Integer<br /> Dim filterdata(0) As String<br /> Dim S As AcadSelectionSet<br /> filtertype(0) = 0<br /> filterdata(0) = "TEXT"<br /> Me.Hide<br /> Set S = ThisDrawing.SelectionSets.Add("A18")<br /> S.SelectOnScreen filtertype, filterdata<br /> <br /> Dim a As AcadEntity<br /> For Each a In S<br />       a.color = acBlue<br />       a.Update<br /> Next a<br /> <br /> End Sub

谢谢明总，可是您看：这次出现的是 “参数FILTERDATA （位于SELECTONSCREEN中无效）

mccad

不好意思，应该改成这样：

2. Dim filtertype(0) As Integer
   
3. Dim filterdata(0) As Variant

Dim filtertype(0) As Integer<br /> Dim filterdata(0) As Variant

XJ_HE

谢谢明总！！
完全成功！！