![](source/plugin/imc_colorcode/images/loading.gif) - Sub SelOnScrLayer()
- Dim ssetobj As AcadSelectionSet
- Dim FilterType(0) As Integer
- Dim FilterData(0) As Variant
-
- On Error Resume Next
- Set ssetobj = ThisDrawing.SelectionSets.Add("a")
- If Err Then
- Err.Clear
- Set ssetobj = ThisDrawing.SelectionSets.Item("a")
- End If
- ssetobj.Clear
- FilterType(0) = 8
- FilterData(0) = "Layler1"
- ssetobj.SelectOnScreen FilterType, FilterData
- Debug.Print ssetobj.Count
- Debug.Print ssetobj.Item(0).ObjectName
- End Sub
|