Selecting Multiple objects/changing their colour.

Hi all,

I have some objects in the area of -10,-10,0 and 110,110,0

What I want to know, is, is there a bit of code that will select the

objects in that area and change their colour to red?

One of the ways:

(defun c:test(/ oSet)
 (if(setq oSet(ssget "_C" (list -10.0 -10.0)(list 110.0 110.0)))
   (command "_.change" oSet "" "_p" "_c" "Red" "")
   (princ "\nNothing found!")
   ); end if
 (princ)
 ); end of c:test

thanks m8,

Works a treat