我也有同样的问题
再一个新加的图层中画图，怎样才能将此图层中所有对象的属性提取出来。通过选择集操作
首先通过选择集，选中那一层的所有实体，然后一一枚举选择集中的实体，使用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
页:
[1]