[VBA函数]：关于一个简单的VBA问题?

gz-yzy

本例提示用户选择对象，然后添加这些对象到选择集中。随后将选择集中对象的颜色改为蓝色。

Sub Ch4_AddToASelectionSet()
Dim sset As AcadSelectionSet
Set sset = ThisDrawing.SelectionSets.Add("SS1")
'大家帮我看看SS1是什么意思,有什么用?

sset.SelectOnScreen
'以上这句话能否改为通过自定的图块名进行选择呀(例如想选择名为AAA的图块)?如通过给定的图块名选择了很多

图块,如何统计它们的数量呀?

Dim entry As AcadEntity
For Each entry In sset
entry.Color = acBlue
entry.Update
Next entry
End Sub

gyl

SS1是你新创建的选择集的名称

fjw_ok

可以按过滤选择啊

liujiping

for each .... next 就是一个很好的循环统计吧

efan2000

选择名为AAA的图块，可以使用过滤机制只选择这个图块，过滤机制的组码为2，值就是图块名。最后根据选择集的Count属性可以得出图块的数量。