lisp to set entity on LAYER 0 COLOR:BYBLOCK

[jim78b]

i want write a lisp that move the entity that i select to layer 0 and color :byblock why my routine don't work?

 

; Changes selected objects to Layer 0
(defun c:L0 ()
(command "_.chprop" (ssget )"" "LA" "0" "C" "BYBLOCK" "")
)

 

[dlanorh]

It does work, but not as you intended.

 

If you only want to pick a single item use either :

(defun c:L0 ()
(command "_.chprop" (ssget ":S:E:L") "" "LA" "0" "C" "BYBLOCK" "")
)

or

 

(defun c:L0 ()
(command "_.chprop" (car (entsel)) "" "LA" "0" "C" "BYBLOCK" "")
)

 

If you want to select multiple items then you'll probably need to split the (ssget) outside the command (easiest solution) as it requires an enter to end the selection process. Sometimes you can't cut corners

 

(defun c:L0 ( / ss)
(setq ss (ssget))
(command "_.chprop" ss "" "LA" "0" "C" "BYBLOCK" "")
)

 

Edited May 24, 2019 by dlanorh

[jim78b]

give me:

 

error: bad character read (octal): 0

[jim78b]

SORRY WORK THANKS A LOT!!!!!

[jim78b]

why at the end i have :nil?

[dlanorh]

17 minutes ago, jim78b said:

why at the end i have :nil?

 

It is the return from the command call (no error)

 

If you don't want to see it put a (princ) in

 

(defun c:L0 ( / ss)
(setq ss (ssget))
(command "_.chprop" ss "" "LA" "0" "C" "BYBLOCK" "")
(princ)
)

 

[jim78b]

Thanks very Much 

Edited May 24, 2019 by jim78b