[VBA]遍历图层中的对象

miaosung

请大家帮帮忙，VBA如何遍历指定图层中的对象？

雪山飞狐_lzh

选择集＋过滤器

霹雳啪啦啦

Dim ss1 As AcadSelectionSet
Dim layername As String
Dim acadent As AcadEntity

'指定图层名称

layername = "MAIN"

'得到选择集

Dim gpCode(0) As Integer
Dim dataValue(0) As Variant
gpCode(0) = 8
dataValue(0) = layername

Set ss1 = ThisDrawing.SelectionSets.Add("ss3")
ss1.Select acSelectionSetAll, , , gpCode, dataValue

For Each acadent In ss1
    '对象处理
Next

peicong

先用 select 选择你想要的图层上的所有对象，然后用for each遍历选择集时的所有对象，有问题请与403893004联系

兰州人

收集此帖子