CAD开发者社区 › 首页 ›AutoCAD二次开发指南› ActiveX 开发指南› ActiveX：开发人员指南› 创建和编辑 AutoCAD 实体› 关于使用图层（VBA/ActiveX） › 查看内容

ActiveX 开发指南

关于打开和关闭图层（VBA/ActiveX）

2023-1-5 00:00| 发布者: admin| 查看: 688| 评论: 0|来自: AutoCAD

摘要: 关闭的图层随图形一起再生，但不显示或打印。

关闭的图层随图形一起再生，但不显示或打印。

通过关闭图层，可以避免每次解冻图层时重新生成图形。打开已关闭的图层时，AutoCAD 将重绘该图层上的对象。

要打开和关闭图层，请使用属性。如果为此属性输入值 TRUE，则会打开图层。如果输入值 FALSE，图层将关闭。LayerOn

关闭图层

本示例创建一个新图层，向该图层添加一个圆圈，然后关闭该图层，使该圆不再可见。

Sub Ch4_LayerInvisible()
  ' Create a circle
  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)

  ' Create a new layer called "ABC"
  Dim layerObj As AcadLayer
  Set layerObj = ThisDrawing.Layers.Add("ABC")

  ' Assign the circle to the "ABC" layer
  circleObj.Layer = "ABC"
  circleObj.Update

  ' Turn off layer "ABC"
  layerObj.LayerOn = False
  ThisDrawing.Regen acActiveViewport
End Sub