关闭的图层将和图形一起重生成，但不能显示或打印。通过关闭图层，可以避免每次解冻图层时都重生成图形。打开已关闭的图层时，AutoCAD 将重画该图层上的对象。
要打开和关闭图层，请使用 LayerOn 特性。如果为此特性输入 TRUE，将打开图层；如果输入 FALSE，将关闭图层。
本例创建一个新的图层并在该图层上添加一个圆，然后关闭图层使圆不可见。
Sub Ch4_LayerInvisible()
' 创建圆
Dim circleObj As AcadCircle
Dim center(0 To 2) As Double
Dim radius As Double
center(0) = 2: center(1) = 2: center(2) = 0
radius = 1
Set circleObj = ThisDrawing.ModelSpace. _
AddCircle(center, radius)
' 创建新图层“ABC”
Dim layerObj As AcadLayer
Set layerObj = ThisDrawing.Layers.Add("ABC")
' 将圆指定到“ABC”图层
circleObj.Layer = "ABC"
circleObj.Update
' 关闭图层“ABC”
layerObj.LayerOn = False
ThisDrawing.Regen acActiveViewport
End Sub