更改对象的图层
From AutoCAD ActiveX/VBA
将图层、颜色和线型指定给对象
将图层、颜色和线型指定给对象
更改对象的颜色
创建对象并为其指定图层、颜色和线型特性后，可能希望更改对象的图层。如果意外地将对象创建在错误的图层上，或随后决定要更改图层组织，更改对象的图层非常有用。
要更改对象的图层，请使用为该对象提供的 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 AcadLayerSet layerObj = ThisDrawing.Layers.Add("ABC")' 将圆指定到“ABC”图层circleObj.Layer = "ABC"circleObj.UpdateEnd Sub