Change entities colors to match pen style

[PMPFern]

Before I take the time to write a VB macro let me take ask everybody if a solution exists.

Problem:
We receive various drawing subsets such as Mechanicals, Electricals, Landscape, Fire protection, etc. from different consultants. Each consultant uses its own pen style (.ctb file). Unfortunately, forcing them to use the same pen style (.ctb file) is not an option.

Solution:
Change all entities color within the drawing to use a different pen style (.ctb file) .

Question:
Anyone knows if a VB macro and/or an Autodesk solution exists?

[cadtag]

SETBYLAYER, then restore a layerstate with the colors need for each layer.

[Glenn Pope]

Have you checked out the CAD Manager tools in AutoCAD?

Layer Translator (LAYTRANS):
Maps the layers in the current drawing to different layer names and layer properties in a specified drawing or standards file, and then converts them using those mappings.

Check Standars (CHECKSTANDARDS)
Set standards by creating a file that defines properties for layers, dimension styles, linetypes, and text styles, and save it as a standards file with the .dws file name extension.