我也有同样的问题

bamboo

再一个新加的图层中画图，怎样才能将此图层中所有对象的属性提取出来。

efan2000

首先通过选择集，选中那一层的所有实体，然后一一枚举选择集中的实体，使用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