[VBA函数]：请教班主！！怎样才能引用层里的对象，就是只是对单一的层进行操作！

tpmao

谢谢:1

XDSoft

你看看VBA里面建立选择集的方法，通过建立选择集过滤出需要的对象，然后遍历选择集，对其中的对象进行操作。

灯火

两种办法：

1.建立层特性选择集过滤出需要的对象，然后遍历选择集。

2.直接遍历当前选择集或所有实体，比较实体的Layer属性。

如何应用，要看你的具体情况。

tpmao

那第一种的层特性选择集是怎么过滤的呢??

dubing

Private Sub CommandButton1_Click()
    Dim ssetobj As AcadSelectionSet
    Dim count As Integer
    Dim mode As Integer
    Dim gpcode(0 To 1) As Integer '组码
    Dim datavalue(0 To 1) As Variant '数据
    Dim filtertype As Variant, filterdata As Variant
   
    Dim Ssetobj_I As Integer
   
    Set ssetobj = ThisDrawing.SelectionSets.Add("NewSelctionSet")
   
    gpcode(0) = 8
    datavalue(0) = "0"   '筛选指定的层
    gpcode(1) = 0
    datavalue(1) = "LWPOLYLINE"    '筛选轻量多义线
    filtertype = gpcode
    filterdata = datavalue
    mode = acSelectionSetAll
    ssetobj.Select mode, , , filtertype, filterdata   '进行筛选
    MsgBox ssetobj.count
    ssetobj.Delete
   
   

End Sub:6