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

liujiping · 发表于 2003-7-22 12:49:00

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

XJ_HE · 发表于 2003-7-22 17:17:00

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

pdeyf5vtrgz.bmp

XJ_HE · 发表于 2003-7-22 17:20:00

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 · 发表于 2003-7-22 17:25:00

其实我的目的是这样的：
就是希望可以一下子将所有对象都选中，然后再过滤出其中满足条件的对象（比如文本），最后再改变这些对象的颜色。
单独改选择集中的对象的颜色没有问题。

liujiping · 发表于 2003-7-22 21:20:00

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

mccad · 发表于 2003-7-22 23:48:00

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

copy


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

XJ_HE · 发表于 2003-7-23 09:40:00

copy


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

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

mccad · 发表于 2003-7-23 10:25:00

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

copy


Dim filtertype(0) As Integer
Dim filterdata(0) As Variant

XJ_HE · 发表于 2003-7-23 11:15:00

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

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

发表回复

精选推荐