setting

I am all but illiterate with LISP.

How do I get the layer color to reset to bylayer after the lisp command runs?

I've tried adding (command "color" "bylayer" ) and (command "color" "256" ) as suggested elsewhere, but it doesn't work.

Thanks.

 

(setvar "cecolor" "bylayer")

 

(command ".-color" "bylayer")

or

(setvar "cecolor" "bylayer")

 

Try (setvar "cecolor" "bylayer")
Should work.

 

Also instead of
(terpri)
(setq dper (getstring "DPER NUMBER : " t))
(terpri)

Just use
(setq dper (getstring "\nDPER NUMBER : " t))
For a new command line

 

Thanks.

I seem to be doing something wrong though. I'm still getting the color as 100 after the lisp runs.

 

(command "color" "bylayer")
or
(setvar "cecolor" "bylayer")

Notice quotes and CEcolor for the setvar.

 

..
Well, I tried it, but like I said, I seem to be doing something wrong.

I'll type in "dper1" and everything works, except the textcolor remains set at 100.

 

Maybe you should post your code.
___

 

It's attached to my previous post.

 

Sorry, missed that. However, your code works fine for me. Creates the text
in color 100, then switches back to color ByLayer.
___

 

..
Well, I think I found my problem. The AutoCAD installation I was using this LISP on is getting flaky. I tried it on two others, and it works.

Go figure.

Thanks, all.