菜鸟问题----为什么我无法将改变选中的图元的图层?

h_lon

过程如下：
Sub ChLayer()
   
    Dim i As Integer
    Dim ss1 As AcadSelectionSet
    Set ss1 = ThisDrawing.SelectionSets.Add("test")
    ss1.SelectOnScreen
   
    For i = 1 To ss1.Count - 1
        ss1.Item(i).Layer = "1"
    Next i
        
End Sub

efan2000

1、要保证“1”层是存在的。
2、要保证选择中的实体所在的层以及“1”层不是冻结、锁定等状态。

h_lon

行了,谢谢efan2000兄.