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

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兄.

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

发表回复

精选推荐