VBA内如何关闭图层。小弟编了个程序。不知如何附值图层啊！

gaozhichao

Dim I, J
Dim Sel As AcadSelectionSet
Dim Ent As AcadEntity
Dim lll As AcadLayer
'On Error Resume Next
Set Sel = ThisDrawing.SelectionSets.Add("Dim")
Sel.SelectOnScreen
'Debug.Print Sel.Item(0).ObjectName
'Debug.Print Sel.Item(0).color
'Debug.Print Sel.Item(0).Linetype
J = 0
For Each Ent In Sel
If Sel.Item(J).Layer = "0" Or "1中心线层" Or "2标注层" Or "3虚线层" Or "4双点划线" Or "5填充层" Or "6切线" Then
lll.LayerOn = False（这个值变成空值了）
End If
J = J + 1
Next

请大家帮帮忙啊！

gaozhichao

谁帮帮我啊。。。。。。。。。。。。。。。

gaozhichao

有人可以帮帮我吗？这个程序我搞了很久。对象就没办法附值啊！