MAKE ENTIRE DRAWING COLOR 8

[smallƑish]

Looking for a program which can do,

Select all layers and change color to 8

Select all objects to make the color set by layer including blocks.

Hope it is possible to make an entire drawing to 08 color in one click.

When I get arch layout, I need to make it like an Xref ( but a block) to make MEP layouts .

KIndly have a look into the attached dwg.

[TomBeauford]

Why not just add a Plot Style that plots everything color 8?

Checking "Display plot styles" in the active Page Setup would make everything display color 8.

Those Plot Styles and Page Setups could be used for other drawings as well.

Lisp to toggle "Display plot styles" in the active layout by Tim Creary: http://forums.augi.com/showthread.php?t=75802&highlight=ShowPlotStyles#3

[Kent1Cooper]

---

@TomBeauford wrote:

Why not just add a Plot Style that plots everything color 8? ....

---

I suspect the intent is to do this to a drawing that will then be Xref'd or Inserted as background, and other stuff drawn over it [such as mechanical/electrical/plumbing consultants often do with architectural plan drawings].  They typically wouldn't want that other stuff to be plotted in color 8, so a Plot Style that does that with everything wouldn't do.  You could do something similar setting only the colors used in that source drawing to plot in color 8, IF the other stuff and all title blocks and so on are, without exception, all in colors that are not used in that source drawing, so that they can come out as intended in the plot.

@smallƑish , I suspect there are routines on this Forum and other websites to do exactly what you want [some possibly using other colors such as different grey shades] or something very similar, available for the Searching.

[TomBeauford]

Yes, it depends on what withsreekanth is trying to do.

If the intent is to do this to a drawing that will then be Xref'd setting XREFOVERRIDE to 1 and modifying the color of the xref'd layers would be easy enough.

If the intent is to do this to a drawing that will then be Inserted using the SETBYLAYER command and modifying the color of the layers before inserting would work.

[Kent1Cooper]

---

@TomBeauford wrote:
....
If the intent is to do this to a drawing that will then be Inserted using the SETBYLAYER command and modifying the color of the layers before inserting would work.

---

Somehow I wasn't aware [or had forgotten -- I don't have much occasion to use it] that SETBYLAYER has the option to dig inside Blocks.  They would want to use the Settings option to do only color, not also linetype and maybe other properties, in case there are overrides of other properties involved that they want retained.

[smallƑish]

Yes, Kindly have a look into the dwg file, to get a more clear picture.

[ВeekeeCZ · Accepted solution]

Well, using XREFs seems much more appropriate for this job... or at least a Bind-ed Xref.

But here you go. All layers to gray, all objects color-by-layer. 

(defun c:DrawingAllGray ()
  (setvar 'setbylayermode 1)
  (command "_.-layer" "_unlock" "*" "_color" 8 "*" ""
	   "_.-setbylayer" "_all" "" "_no" "_yes")
  (setvar 'setbylayermode 255)
  (princ)
  )

If you ever change your mind and use an Xref, here's the variant for that.

(defun c:XrefLayGrey ( / e d)
  (setvar 'xrefoverride 1)
  (if (and (setq e (entsel "\nSelect XREF: "))
	   (setq d (entget e))
	   (= "INSERT" (cdr (assoc 0 d)))
	   )
    (command "_.layer" "_color" 8 (strcat (cdr (assoc 8 d)) "," (cdr (assoc 2 d)) "|*") ""))
  (princ)
  )  

[smallƑish]

OMG !!! The Xref one is so amazing, LOved it thanks a lot.

[ndikesh]

Hi @ВeekeeCZ, 

 The code is awesome, can it be modified so that it prompts to select objects/blocks instead of changing all objects?

Much appreciated,

Thanks.

[WeTanks]

How should this XrefLayGrey LISP be used?

[Sea-Haven]

We did this for our field survey so existing features were set to grey, their layer name was also changed by adding "EX-" to layer name. To convert only certain items, we would have a text file with say block names and another with the layer names.

[fahedm6]

Thanks! I was looking for it and not even chatgpt could help! your github?