(defun c:test ( / ss)
(if (entget (setq ss (ssget "x" '((0 . "HATCH") (2 . "_SOLID") (62 . "140<169")))))
(command "._chprop" ss "" "c" "170" "")) (princ))
Command:
Command: q2
Select objects: all
362 found
===========
Select objects:
AcDbHatch.h=[256...256]Range
AcDbMatchProperties.h=(256)
Get MininColor=(nil.256)=1
Get MaximColor=(nil.256)=100
Select objects:
Lzh=1 ...bzh=100
Fns=nil SSLengthQ=Do yo
Select solid hatch objects color range from 140 to 169 & change all of them to color 170
Look at Lee-mac you need the AND as well > 139 <170