新项目步骤2层

Public Sub LLayer()
    
    Dim Ylayer As AcadLayer
    Set Ylayer = ThisDrawing.Layers.Add("Yellow")
    
    Dim Wlayer As AcadLayer
    Set Wlayer = ThisDrawing.Layers.Add("White")
    
End Sub

Public Sub LLayer()
    On Error GoTo Error_Handler
    Dim Ylayer As AcadLayer
    Set Ylayer = ThisDrawing.Layers.Add("Yellow")
    Dim Ycolor As ACAD_COLOR
    Set Object.Ycolor = ThisDrawing.Layers.TrueColor("Yellow")
    Set Ylayer = Nothing
    
    Dim Wlayer As AcadLayer
    Set Wlayer = ThisDrawing.Layers.Add("White")
    Set Object.Wcolor = ThisDrawing.Layers.TrueColor("White")
    Set Wlayer = Nothing
    Exit Sub
Error_Handler:
    Err.Clear
    Set Wlayer = Nothing
    Set Ylayer = Nothing
End Sub

Option Explicit
'
' Test Routine for Demo Only.
'
Public Sub CLLayer()
    On Error GoTo CLLayer_Error
    Dim Ylayer As AcadLayer
    Set Ylayer = ThisDrawing.Layers.Add("Yellow")
    Dim ColorProperty As Integer
    ColorProperty = acYellow
    Ylayer.color = ColorProperty
    ' Could have used :
    ' Ylayer.color = acYellow
    ' to save the declaration and assignment
    '
    ' Next Option
    '
    Dim Glayer As AcadLayer
    Dim TrueColor As New AcadAcCmColor
    Call TrueColor.SetRGB(0, 255, 0)
    Set Glayer = ThisDrawing.Layers.Add("Green")
    Glayer.TrueColor = TrueColor
    '
    '
    ' Next Option
    '
    Dim Newlayer As AcadLayer
    Set Newlayer = ThisDrawing.Layers.Add("FourtyOne")
    Newlayer.color = 41
    '
    ' Added for fun
    '
    Dim aacColor As AcadAcCmColor
    Set aacColor = Newlayer.TrueColor
    Dim strColor As String
    strColor = "Red = " & aacColor.Red & vbCrLf & _
               "Green = " & aacColor.Green & vbCrLf & _
               "Blue = " & aacColor.Blue
    MsgBox strColor
    On Error GoTo 0
    GoTo Set_To_Nothing
CLLayer_Error:
    MsgBox "Error " & Err.Number & " (" & Err.Description & _
           ") in procedure CLLayer of Module TestLayer"
Set_To_Nothing:
    Set Glayer = Nothing
    Set Ylayer = Nothing
    Set Newlayer = Nothing
    Set aacColor = Nothing
End Sub