Create and Name Layers
From AutoCAD ActiveX
You can create new layers and assign color and linetype properties to those layers. Each individual layer is part of the Layers collection. Use the Add method to create a new layer and add it to the Layers collection.
You can assign a name to a layer when it is created. To change the name of a layer after it has been created, use the Name property. Layer names can include up to thirty-one characters and contain letters, digits, and the special characters dollar sign ($), hyphen (-), and underscore (_) but cannot include blank spaces.
For more information about creating layers, see “Create and Name Layers” in the User's Guide.
Create a new layer, assign it the color red, and add an object to the layer
The following code creates a circle and a new layer. The new layer is assigned the color red. The circle is assigned to the layer, and the color of the circle changes accordingly.
Sub Ch4_NewLayer()
' 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 color objectDim col As New AcadAcCmColorcol.ColorMethod = AutoCAD.acColorMethodForeground' Set the layer to the colorDim layColor As AcadAcCmColorSet layColor =AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.17")Call layColor.SetRGB(122, 199, 25)ThisDrawing.ActiveLayer.TrueColor = layColorcol.ColorMethod = AutoCAD.acColorMethodByLayer' Assign the circle the color "ByLayer" so' that the circle will automatically pick' up the color of the layer on which it residescircleObj.Color = acByLayercircleObj.UpdateEnd Sub