' New CamBam VBScript
' create a new layer, set as active, change the layer color
'
' methods
' CamBam.CAD.CADFile.CreateLayer()
' CamBam.CAD.CADFile.SetActiveLayer()
'
' properties
' CamBam.CAD.CADFile.Activelayer.color
'
'

sub main

        dim stlayer as Layer 

        dim l_name as string = "MYLAYER"

        stlayer = CreateLayer(l_name) 'create a layer named MYLAYER

        SetActiveLayer(l_name)    'set active layer

        Activelayer.color = color.Blue    'change color

end sub