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

AutoCAD 2022 开发者帮助

关于更改对象的图层（VBA/ActiveX）

2024-5-18 18:43| 发布者: admin| 查看: 310| 评论: 0|原作者: admin|来自: AutoCAD

创建对象并为其分配图层、颜色和线型属性后，您可能希望更改对象的图层。

如果您不小心在错误的图层上创建了对象或决定稍后更改图层组织，则更改对象的图层非常有用。

要更改对象的图层，请使用为该对象提供的属性。Layer 属性采用图层的名称作为输入。Layer

将对象移动到其他图层

本示例在活动图层上创建一个圆圈，然后创建一个名为“ABC”的新图层。然后，它将圆移动到新图层。

Sub Ch4_MoveObjectNewLayer()
  ' 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
End Sub