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.
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")
--
Chip Harper
Autodesk Discussion Group Facilitator
http://home.comcast.net/~hot4cad/
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.
___
"rojren" <nospam@address.withheld> wrote in message
news:31696516.1105114776804.JavaMail.jive@jiveforu m2.autodesk.com...
.
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.
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.
___
"rojren" <nospam@address.withheld> wrote in message
news:11855833.1105116432443.JavaMail.jive@jiveforu m2.autodesk.com...
> It's attached to my previous post.
..
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.
Timeout setting