Change Layer color to True color

Hello,

I've many layers with many entities in each one.
Each entitie has one color defined on Layer Propreties Manager and appears in Color PullDown "ByLayer", can i change this "ByLayer" to the Color Number defined in Layer Propreties Manager?

Best regards,
António Miranda.

 

Like this?


Sub LayerColorsToEntityColors()
Dim curLayout As AcadLayout
Dim curObj As AcadEntity

Set curLayout = ThisDrawing.ActiveLayout

For Each curObj In curLayout.Block
if curobj.color = acbylayer then _
curObj.Color = ThisDrawing.Layers(curObj.Layer).Color
Next 'curObj

End Sub

James

 

Hi,

Just curious. Why would you want to do this ?

Surely the secret of successful AutoCAD drafting is to set all object
characteristics to BYLAYER.


--


Laurie Comerford
CADApps
www.cadapps.com.au

in Color PullDown "ByLayer", can i change this "ByLayer" to the Color Number
defined in Layer Propreties Manager?

 

maybe the secret is too well kept?