I'm not a programmer, but managed to cobble this up from other examples. It creates the layers in a Solidworks drawing. The layer names match up to our Autocad layers when the drawing is exported to dwg format. It runs but I'd like to have the colors match up to the Autocad layer RGB colors.

Can the colors be assigned in the same line as when the layer is created - what do these 3 numbers represent?: "968742753, 0, 0"

Can the RGB integers be substituted there? If so, in what type of format? For instance, I'd like the "Casting" layer to be RGB 166,186,212

Any help will be greatly appreciated.

-Chris

    Dim swApp               As SldWorks.SldWorks
    Dim swDoc               As SldWorks.ModelDoc2
    Dim swDwg               As SldWorks.DrawingDoc
    Dim swLayerMgr          As SldWorks.LayerMgr
    Dim swLayer             As SldWorks.Layer

    Dim CastingLayer        As Integer
    Dim ChuckLayer          As Integer
    Dim DimsLayer           As Integer
    Dim ClampsLayer         As Integer
    Dim FixtureLayer        As Integer
    Dim FixtureA2Layer      As Integer
    Dim FixtureBlockLayer   As Integer
    Dim FixturePlateLayer   As Integer
    Dim HardwareLayer       As Integer
    Dim MachiningLayer      As Integer
    Dim JawsLayer           As Integer
    Dim PartLayer           As Integer
    Dim RevLayer            As Integer
    Dim ToolLayer           As Integer

Sub main()
    Set swApp = Application.SldWorks
    Set swDoc = swApp.ActiveDoc
    Set swDwg = swApp.ActiveDoc
    Set swLayerMgr = swDwg.GetLayerManager
   
    CastingLayer = swLayerMgr.AddLayer("Casting", "Casting Layer", 968742753, 0, 0)
    ChuckLayer = swLayerMgr.AddLayer("Chuck", "Chuck Layer", 968742753, 0, 0)
    DimsLayer = swLayerMgr.AddLayer("Dimension", "Dimension Layer", 968742753, 0, 0)
    ClampsLayer = swLayerMgr.AddLayer("Clamps", "Clamps Layer", 968742753, 0, 0)
    FixtureLayer = swLayerMgr.AddLayer("Fixture", "Fixture Layer", 968742753, 0, 0)
    FixtureA2Layer = swLayerMgr.AddLayer("Fixture A2", "Fixture A2 Layer", 968742753, 0, 0)
    FixtureBlockLayer = swLayerMgr.AddLayer("Fixture Block", "Fixture Block Layer", 968742753, 0, 0)
    FixturePlateLayer = swLayerMgr.AddLayer("Fixture Plate", "Fixture Plate Layer", 968742753, 0, 0)
    HardwareLayer = swLayerMgr.AddLayer("Hardware", "Hardware Layer", 968742753, 0, 0)
    MachiningLayer = swLayerMgr.AddLayer("Machining", "Machining Layer", 968742753, 0, 0)
    JawsLayer = swLayerMgr.AddLayer("Jaws", "Jaws Layer", 968742753, 0, 0)
    PartLayer = swLayerMgr.AddLayer("Part", "Part Layer", 968742753, 0, 0)
    RevLayer = swLayerMgr.AddLayer("Rev", "Rev Layer", 968742753, 0, 0)
    ToolLayer = swLayerMgr.AddLayer("Tool", "Tool Layer", 968742753, 0, 0)
    
End Sub