selecting an entity, why won't this work

(setq OB (entsel "Choose Object:"))
(command "-layer" "set" "" OB "")

what is the quick fix, I want to make a layer of a particular object current within a set of commands
CAD2004

 

You need to do the entget on (car OB). Also, need to check if anything was
selected:

(if (setq OB (entsel "Choose Object:"))
(command "-layer" "set" (cdr (assoc 8 (entget (car OB)))) "")
)

 

mnash,
Try this:
(if (setq OB (entsel "Choose Object:"))
(command "_.-layer" "_set" (cdr(assoc 8 (entget(car OB)))) "")
)

Hope this helps

 

thanks all for yer help

 

I prefer to not use the word "command" in lisp routines.

Try this..

(setvar "clayer" (cdr (assoc 8 (entget (Car (entsel))))))

This will set the layer of the object you select to current.
(in the case of blocks or xrefs, this will select the layer the block or xref resides on)

(setvar "clayer" (cdr (assoc 8 (entget (Car (nentsel))))))

This will set the layer of the object you select to current.
(in the case of blocks or xrefs, this will select the layer of the embedded block entity)