更改对象的图层

AutoCAD ActiveX/VBA

previous page next page

将图层、颜色和线型指定给对象

更改对象的颜色

ActiveX/VBA 开发人员手册 > 创建和编辑 AutoCAD 图元 > 使用图层、颜色和线型 > 将图层、颜色和线型指定给对象 >

更改对象的图层

创建对象并为其指定图层、颜色和线型特性后，可能希望更改对象的图层。如果意外地将对象创建在错误的图层上，或随后决定要更改图层组织，更改对象的图层非常有用。

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

将对象移动到不同图层

本例在活动图层上创建一个圆，然后创建一个称为“ABC”的新图层。接着将圆移动到新图层上。

Sub Ch4_MoveObjectNewLayer()

    ' 创建圆

    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 AcadLayer
          Set layerObj = ThisDrawing.Layers.Add("ABC")
                ' 将圆指定到“ABC”图层
          circleObj.Layer = "ABC"
          circleObj.Update
      End Sub

previous page start next page