change color lsp

[Anonymous]

Hello,

I want to chagne 7(white) color from 250 color upto 255 color (all objects -> text line and so on)

is any lsp?

thank you all.

[ВeekeeCZ]

So to all objects that have assigned color 250-255 you want to change the color to 7.

[hak_vz · Accepted solution]

Try this

(defun c:cclr (/ ss)
(setvar "cmdecho" 0)
(setq ss (ssget "X" '((-4 . "<or")(62 . 250)(62 . 251)(62 . 252)(62 . 253)(62 . 254)(62 . 255)(-4 . "or>"))))
(command "_.chprop" ss "" "C" 7 "")
(setvar "cmdecho" 1)
(princ)
)

[Anonymous]

thank you. good work