Select solid hatch objects color range from 140 to 169 & change all of them to color 170
(defun c:test ( / ss)
(if (entget (setq ss (ssget "x" '((0 . "HATCH") (2 . "_SOLID") (62 . "140<169")))))
(command "._chprop" ss "" "c" "170" "")) (princ))
not selecting !!