更改对象的图层

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