用户可以创建新的图层并指定这些图层的颜色和线型特性。所有图层都属于 Layers 集合。使用 Add 方法可创建新图层并将其添加到 Layers 集合。
用户可以在创建图层时指定图层名称。要在创建图层后更改图层名，请使用 Name 特性。图层名称最多可包含三十一个字符，名称中可以包含字母、数字以及特殊字符美元符号 ($)、连字符 (-) 和下划线 (_)，但不能包含空格。
有关创建图层的详细信息，请参见《用户手册》中的“创建和命名图层”。
以下代码创建一个圆和一个新图层。新的图层指定使用红色。圆被指定到该图层，然后其颜色也相应改变。
Sub Ch4_NewLayer()
' 创建圆
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)
' 创建颜色对象
Dim col As New AcadAcCmColor
col.ColorMethod = AutoCAD.acColorMethodForeground
' 设置图层的颜色
Dim layColor As AcadAcCmColor
Set layColor =
AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.17")
Call layColor.SetRGB(122, 199, 25)
ThisDrawing.ActiveLayer.TrueColor = layColor
col.ColorMethod = AutoCAD.acColorMethodByLayer
' 将圆的颜色指定为“随层”
' 以便圆自动拾取所在图层的
' 颜色
circleObj.Color = acByLayer
circleObj.Update
End Sub