Setting bylayer

I am doing this for each entity I create:

Set colour = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")
.TrueColor = colour
.Linetype = "BYLAYER"
.Lineweight = acLnWtByLayer

I would prefer to either:

a) have a method where i can pass the object in to update it as above. But then each object is different, so is there a base object it can be passed as?

or

b) store the current wieght, colour,style settings and update them all to bylayer. This would do away with the solution a and then restore them at the end.

I can work out how to get active layer and restore. But I can't work out how to get active style,wieght, colour, set them all to bylayer and restore.

Advice on doing either solution and whichever is most efficient please.

Thanks.

Andrew

 

I worked it out. This code stores the current values and then sets to BYLAYER and then re-uses originals.

[pre]
Dim orgLayer As AcadLayer
Dim strCOLOR As String
Dim strLTYPE As String
Dim strLWEIGHT As Integer

With ThisDrawing
' Get current settings
Set orgLayer = .ActiveLayer
strCOLOR = .GetVariable("CECOLOR")
strLTYPE = .GetVariable("CELTYPE")
strLWEIGHT = .GetVariable("CELWEIGHT")

' Set to BYLAYER
Call .SetVariable("CECOLOR", "BYLAYER")
Call .SetVariable("CELTYPE", "BYLAYER")
Call .SetVariable("CELWEIGHT", acLnWtByLayer)
End With

' Do your stuff here....

With ThisDrawing
' Reset back to original settings
.ActiveLayer = orgLayer
Call .SetVariable("CECOLOR", strCOLOR)
Call .SetVariable("CELTYPE", strLTYPE)
Call .SetVariable("CELWEIGHT", strLWEIGHT)
End With
[/pre]

I could have used ActiveLineType but I wanted to keep as much of it as consistent as possible. Ideally, I would like to use the variable approach for the layer name too, but could not work out what variable it was...

 

Found answer to this aswell:

[pre]
dim strLAYER as String

call strLayer = ThisDrawing.GetVariable("CLAYER")
[/pre]