首先通过选择集，选中那一层的所有实体，然后一一枚举选择集中的实体，使用VBA本身提供的对象的属性和方法进行操作。
如：
Sub Ch4_FilterEntity()
Dim sstext As AcadSelectionSet
Dim FilterType(0) As Integer
Dim FilterData(0) As Variant
Set sstext = ThisDrawing.SelectionSets.Add("SS2")
FilterType(0) = 0
FilterData(0) = "MyLayer" '这里是自己所要操作的图层。
sstext.SelectOnScreen FilterType, FilterData
End Sub
置顶卡
