CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2024 开发者帮助 › 查看内容

AutoCAD 2024 开发者帮助

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

2024-5-18 19:06| 发布者: admin| 查看: 18| 评论: 0|原作者: admin|来自: 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