Changing color with entmod if the object color is set to Bylayer

I've always used entmode to change an attribute of an object.

I wanted to use the following code to change the color of an object:

(setq object (entget (car (entsel))))
(entmod (subst (cons 62 1) (assoc 62 object) object))

Unfortunately nothing happens,

 (assoc 62 object)

returns nil. The color of the object is set by the layer.

How could I change the color of objects like these?

(entmod (append object '((62 . 1))))

It works, thanks!

It works, thanks!

You are welcome.

An alternative using Vl and no variables

(vla-put-color (vlax-ename->vla-object (car (entsel "\nPick object"))) 3)