Create and Name Layers

AutoCAD ActiveX

 
Create and Name Layers
 
 
 

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 object
    Dim col As New AcadAcCmColor
    col.ColorMethod = AutoCAD.acColorMethodForeground
      
    ' Set the layer to the color
    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
      
    ' Assign the circle the color "ByLayer" so
    ' that the circle will automatically pick
    ' up the color of the layer on which it resides
    circleObj.Color = acByLayer
    circleObj.Update
End Sub