打开和关闭图层
From AutoCAD ActiveX/VBA
关闭的图层将和图形一起重生成，但不能显示或打印。通过关闭图层，可以避免每次解冻图层时都重生成图形。打开已关闭的图层时，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 AcadLayerSet layerObj = ThisDrawing.Layers.Add("ABC")' 将圆指定到“ABC”图层circleObj.Layer = "ABC"circleObj.Update' 关闭图层“ABC”layerObj.LayerOn = FalseThisDrawing.Regen acActiveViewportEnd Sub