dim myLayer as ACADLayer set myLayer = acaddoc.layers.add("New Layer") myLayer.color= acblue acaddoc.activelayer=myLayer
dim myLine as ACADLine myLine.layer= myLayer