CAD开发者社区 › 首页 ›AutoCAD二次开发指南› ActiveX 开发指南› ActiveX：开发人员指南› 创建和编辑 AutoCAD 实体› 关于为对象指定图层、颜色和线型（VBA/ActiveX） › 查看内容

ActiveX 开发指南

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

2023-1-4 23:38| 发布者: admin| 查看: 711| 评论: 0|来自: AutoCAD

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

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

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

要更改对象的图层，请使用为该对象提供的属性。图层属性将图层的名称作为输入。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