topic Re: All object type Color change in Visual LISP, AutoLISP and General Customization Forum

All object type Color change

k005 — Mon, 15 Nov 2021 06:27:51 GMT

Hello to everyone

How can we change the color of all objects and the bylayer color?

sample:

Available color no : 165
Change Color no : 3

Thanks.

Re: All object type Color change

hak_vz — Mon, 15 Nov 2021 07:46:20 GMT

Hi @k005

Try to be more specific with your request.

To select all entities with color 165 you can use

(setq ss (ssget "X" '((62 . 165))))

and than command chprop.

For selection you can also use Quick Select tool

Re: All object type Color change

k005 — Mon, 15 Nov 2021 19:37:46 GMT

@hak_vz

It will apply to All Entities in AutoCAD.

well ;

Block reference, block,circle, hatch, ellipse , lwpolyline , rectangle mline text,mtext etc...

for example :

I will enter the block reference and get the current color from there manually.
let's say 165.

i will write this in current color : 165

like.. I will buy the color codes myself in advance...

I will use this later...165

Re: All object type Color change

hak_vz — Mon, 15 Nov 2021 10:48:57 GMT

I at work and don't have time to spend to write something specific. After a simple Google search I' have found this code, and it seams to me that it will work for you.

Re: All object type Color change

k005 — Mon, 15 Nov 2021 18:56:09 GMT

@hak_vz

Yes it's similar to that... but not this one.

Because that makes them all monochrome. I want it to change the color code I referenced.

Re: All object type Color change

hak_vz — Mon, 15 Nov 2021 20:23:21 GMT

Sorry, but I don't get it.

Do you want to select all entities created in one color and change to another, but not all drawing entities ?

Re: All object type Color change

3wood — Mon, 15 Nov 2021 22:30:01 GMT

Maybe you can try CHZ20.

1. Set up a rule file (*.txt)

2. Select "By file" option.

It can also change sub-entities within blocks.

Re: All object type Color change

k005 — Tue, 16 Nov 2021 06:32:46 GMT

@3wood

I tried but it didn't work. not as comprehensive, a simpler solution is needed. as in my first post.

I am adding a block reference. I want to change the colors inside it without blowing it up.

let's say there are many blocks of the same colors. their names are different.
They should also be affected by this change.

Re: All object type Color change

k005 — Tue, 16 Nov 2021 16:06:38 GMT

@hak_vz

simply changing the object color my friend...

it will change all.. by all, they are not all the same color.. or the same color.

Whatever color code I enter as a parameter, I will replace all the obs in that color code with the new color.

Re: All object type Color change

diagodose2009 — Wed, 17 Nov 2021 12:06:44 GMT

: Command: q2 _.undo Current settings: Auto = On, Control = All, Combine = Yes, Layer = Yes Enter the number of operations to undo or [Auto/Control/BEgin/End/Mark/Back] <1>: Auto Enter UNDO Auto mode [ON/OFF] <On>: On Command: .UNDO Current settings: Auto = On, Control = All, Combine = Yes, Layer = Yes Enter the number of operations to undo or [Auto/Control/BEgin/End/Mark/Back] <1>: _BEGIN Command: ( **T349errorJ= too many arguments --setmypid= 1C2B syst_setvars [ **T349errorJ= too many arguments --setmypid= 1C2B syst_setvars [ Select object? ('A'.all)('M'.only from space-model)('P'.paper)? A/M/P <A>:A Forced Xref,maybe crash <yes/no>:Y Type-Mode? ('Y'.quickmode)('N'.normal-Mode)? <yes/no>:N BlockRedef-DownTo Zero1=0 Do wish ExtraScan? ('Y'.Extra)('N'.exit)? <yes/no>:N EndT

Here is my solution.

Only today, I work 3hours for search the error/s.+many hours in old-times.

Please You check the "Ierarh Ghenadie, patriarhul.dwg" , attached

Re: All object type Color change

3wood — Wed, 17 Nov 2021 13:09:43 GMT

@k005 wrote:

@3wood

I tried but it didn't work. not as comprehensive, a simpler solution is needed. as in my first post.

I am adding a block reference. I want to change the colors inside it without blowing it up.

let's say there are many blocks of the same colors. their names are different.
They should also be affected by this change.

You need get a free registration to make it work on blocks.
Here is a simple example to change color 33 (outline of the beam) to color 3 (green)

Re: All object type Color change

k005 — Wed, 17 Nov 2021 16:16:02 GMT

@3wood

my friend is not like that... so not practical... unfortunately.

1- I will select all objects with select /window.

2- I will write the reference color code.

3- I will write the desired color code.

will be processed... ( All objects )

Re: All object type Color change

k005 — Wed, 17 Nov 2021 16:04:04 GMT

@diagodose2009

I have tested. this changes all the colors and makes it one color.

does not comply with this condition. thank you.

Re: All object type Color change

diagodose2009 — Wed, 17 Nov 2021 21:48:35 GMT

Please you wait 7-10 days, and you not got other solution,( i think)
You must, mark this topic with "Solved" .

Re: All object type Color change

3wood — Thu, 18 Nov 2021 12:32:16 GMT

You can try attached codes - still need load CHZ20.vlx first (you can add it to Startup Suite).

;;; COLORMATCHFILE.LSP BY 3WOOD 2021.11.18 ;;; Need load CHZ20.vlx first ;;; Change object color in whole drawing ;;;; https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/all-object-type-color-change/m-p/10757225#M423629 (defun C:ColorMatchFile (/ c1 c2 f1 g1 L1 s1) (if (atoms-family 1 '("Chz20_cmd")) (progn (setq L1 (list)) (while (setq s1 (nentsel "\nSelect object: ")) (princ (strcat "\nSource color: " (itoa (setq c1 (cdr (assoc 62 (entget (car s1)))))))) (if (setq c2 (acad_colordlg c1 T)) (progn (princ (strcat " ¡ú Target color: " (itoa c2))) (setq L1 (append L1 (list (strcat (itoa c1) " *" (itoa c2))))) ) ) ) ;Get color changing pair input (if L1 (progn (setq f1 (open (setq g1 (strcat "C:\\Users\\" (getvar "loginname") "\\Documents\\CHZ20COLORMATCH.TXT")) "W" )) (foreach n1 L1 (write-line n1 f1)) (close f1) ) ) ;Write to a Color Matching File (if (findfile g1) (progn (foreach n2 (list (list "BLOCK" "1")(list "COLOR" "1")(list "BYFILE" "1")(list "RETAINBYBLOCK" "0")(list "RETAINBYLAYR" "0") (list "CHZ20_CR_FILE1" g1) ) (vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\L&J\\Chz20" (car n2) (cadr n2)) ) (Chz20_cmd T) ) ) ) (princ "\nPlease load CHZ20.vlx first.") ) (princ) )

Re: All object type Color change

k005 — Thu, 18 Nov 2021 15:25:46 GMT

@3wood

It's amazing. !

Thank you very much.

I will send an e-mail.

Re: All object type Color change

3wood — Fri, 19 Nov 2021 00:51:11 GMT

Actually everything in your block are on Layer 0 and they are assigned of different colors to represent different elements.

I suggest use CHZ20 "Put subentities to layer - By file" function to change different elements into different layers. Then change color of everything to "Bylayer". It is easier to manage the layer color than the object color.

Re: All object type Color change

margono_bersinar — Sat, 20 Nov 2021 04:15:28 GMT

hello 3wood can you help me to change the subentities object with true color change to new layer, I already follow step by step from your CHZ20 example but still can't. any problem with my code or something?

Re: All object type Color change

3wood — Sun, 21 Nov 2021 00:24:25 GMT

Thank you for the bug report. I have fixed it. Please download updated file from here.

Re: All object type Color change

k005 — Sun, 21 Nov 2021 05:39:42 GMT

@3wood

I can't select the objects that take the color from the layer, it gives an error

Colormatchfile.lsp

Select object: ; error: bad argument type: fixnump: nil