h_lon 发表于 2003-12-19 12:34:00

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

过程如下：
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 发表于 2003-12-19 13:14:00

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

h_lon 发表于 2003-12-19 13:21:00

行了,谢谢efan2000兄.
页: [1]
查看完整版本: 菜鸟问题----为什么我无法将改变选中的图元的图层?