社区 › VB › [VBA]遍历图层中的对象

miaosung 发表于 2006-6-28 09:13:00

[VBA]遍历图层中的对象

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

雪山飞狐_lzh 发表于 2006-6-28 12:15:00

选择集＋过滤器

霹雳啪啦啦 发表于 2006-6-28 12:31:00

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 发表于 2006-6-28 12:31:00

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

兰州人 发表于 2007-12-5 15:15:00

收集此帖子

查看完整版本: [VBA]遍历图层中的对象