color to layer lisp routine

[rpict]

does anybody know about a lisp routine, that puts entities with a particular color on a particular layer?

e.g. all entities with color yellow on layer 0 are put on layer wall, all entities with color white on layer 0 are put on layer windows etc.

all that should go in one run at once.

 

-rpict

[mtutaj]

what version of Acad, and how many drawings do you have to convert? if it is only a couple, I would just filter the selections out.

 

I just relized that Multi-batch has that routine already built into it.. its called "Change Items of a color to a layer" www.multi-batch.com if your someone like me who doesn't have the time or all the skills to program yet.

 

Hope that helps,

 

Mike

[rpict]

thanks mike

 

that's the thing i was after.

i used to filter them out in the past,

but with a dozen colors its getting boring.

 

-rpict

[kobuzz]

Hi there,

 

I tried the Multi-batch, and allthough I will keep it 'cause of the many functions, it does not work for the color to layer in my case. I use AutoCAD 2000LT and the function is not selectable then.

 

Does anyone know of a separate LISP that I can use? I have about 2700 .dwgs (Bolt & Nut library) I need to convert. Multi-batching would be the best, but I would gladly settle for a LISP per drawing, which still saves me a lot of time.

 

-kobuzz

[mmangold]

I created a simple lisp for you. If you are using LT I don't think you can run lisp files unless you have an addon. If you have any problems let me know

 

Mike

 

(defun c:colortolayer ()

(setq orgcolor (ssget "x" '((62 . 1))));; . 1 is the color

(command "change" orgcolor "" "p" "la" "lay1" "");; place layer name here where lay1 is

(setq orgcolor (ssget "x" '((62 . 2))));; . 2 is the color

(command "change" orgcolor "" "p" "la" "lay2" "");; place layer name here where lay2 is

(setq orgcolor (ssget "x" '((62 . 3))));; . 3 is the color

(command "change" orgcolor "" "p" "la" "lay3" "");; place layer name here where lay3 is

(setq orgcolor (ssget "x" '((62 . 4))));; . 4 is the color

(command "change" orgcolor "" "p" "la" "lay4" "");; place layer name here where lay4 is

(setq orgcolor (ssget "x" '((62 . 5))));; . 5 is the color

(command "change" orgcolor "" "p" "la" "lay5" "");; place layer name here where lay5 is

(setq orgcolor (ssget "x" '((62 . 6))));; . 6 is the color

(command "change" orgcolor "" "p" "la" "lay6" "");; place layer name here where lay6 is

(setq orgcolor (ssget "x" '((62 . 7))));; . 7 is the color

(command "change" orgcolor "" "p" "la" "lay7" "");; place layer name here where lay7 is

(setq orgcolor (ssget "x" '((62 . 8))));; . 8 is the color

(command "change" orgcolor "" "p" "la" "lay8" "");; place layer name here where lay8 is

(princ)

)

[Fernando Lino]

You can also select entities by color and move them by hand...of course, it's not automatic but it works fine

[kobuzz]

Thank you both for your help. I have not had the time ot check the LISP, I simply cannot find the time here at work. I will see if I can try it at home.

 

Thankx again.

 

Jacob