Set current layer by selecting object

**EDIT**
It was brought to my attention that I missed something right in front of my eyes. AutoCAD LT 2007already has a button to do this, it's on the LAYER toolbar. But, for those of you with LT versions below 2000 this is a good alternative.
**EDIT**

More DIESEL. I spent a couple days looking & trying to figure out how to set the current layer to an object I picked. Of course with lisp this is fairly simple, but I think I came up with a good alternative for Us LT users.

^C^C_ai_molc;\setenv;CL;$m=$(getvar,clayer);-layer;set;"$m=$(getenv,CL)";;

Also by changing the code a little you can use it to freeze, turn off, lock or unlock a layer.

I hope this is helpful,

Erik

Toggle TILEMODE with DIESEL

Here's a quick way to toggle TILEMODE with a DIESEL expression. You can program this as a button.

'setvar;tilemode;$M=$(!=,$(getvar,tilemode),1)

Also once you make this a toolbar button you can assign a keyboard shortcut to access it.

Erik

Status bar

I used to have a little lisp that when added to the acad.lsp file, would display drawing information on the status bar. With out the use of lisp I can do the same thing, I just have to go about it differently. I created a startup script & added the following... (watch for word wrap)

MODEMACRO Date =$(edtime,$(getvar,date),mon/dd/yyyy) | Dimscale =$(getvar,dimscale) | LTscale =$(getvar,ltscale) | Dimstyle =$(getvar,dimstyle)

I then added "/b startup.scr" to the target line in my AutoCAD icon. Now every time I start AutoCAD it will run this script & my status bar will have the information I like.

Have a good weekend,

Erik

DIESEL "IF" Statement

While looking for LT info I ran across this help.

$M=$(if,$(=,$(getvar,tilemode),1),TRUE,FALSE)

The portion in orange is the test (IF "tilemode" equals 1). If the test is true it does the first statement, if the test is false it does the second statement. Each statement is separated by a comma.

http://forums.augi.com/showthread.php?t=58338

Thanks for the tip Ty.

Use DIESEL

While trying to figure out different ways to do things I used to do with lisp, I found this out.
Use DIESEL in your commands. Tool palette, menus or toolbars it will work in all. I created this one to automatically set text height per dimscale.

^C^CTEXTSIZE;$M=$(*,$(getvar,dimscale),0.125);_dtext

I hope this will help,