change color when selected

Is it possible to have a program or lisp that will change the color of an object as it is selected? Then maybe change the color back after whatever action is done? The types of dwgs we do can get somewhat busy and it can be very easy to miss something. Can anyone tell me if this is possible or not?

Thanks,

Nobull

You can have them highlight with dashed lines and thickened when selected, plus the grips that show. That should take care of your needs. See options, selection, Visual Effect Settings.... for the first two.

(defun ayEntSSHighLight        (SSorEntName / oldGrips)
 (setq oldGrips (getvar "Grips"))
 (setvar "Grips" 0)
 (cond        ((= (type SSorEntName) 'PICKSET)                              
        (sssetfirst nil SSorEntName)
       )                                                             
       ((= (type SSorEntName) 'ENAME)                                     
        (sssetfirst nil (ssadd SSorEntName (ssadd)))
       )                                                              
 )                                                                      
 (setvar "Grips" oldGrips)
)

(defun HH:ayEntSSHighLight (SSorEntName / oldGrips)
 (defun EntHighLight (e / PTS)
   (setq pts (HH:Ent4pt e T))
   (grvecs (list 1
                 (car pts)
                 (cadr pts)
                 1
                 (cadr pts)
                 (caddr pts)
                 1
                 (caddr pts)
                 (cadddr pts)
                 1
                 (cadddr pts)
                 (car pts)
           )
   )
 )
 (cond        ((= (type SSorEntName) 'PICKSET)
        (repeat (setq n (sslength SSorEntName))
          (EntHighLight (ssname SSorEntName (setq n (1- n))))
        )
       )
       ((= (type SSorEntName) 'ENAME)
        (EntHighLight SSorEntName)
       )
 )
)

Thank you rkent for the response. I currently use these settings but it can still be very easy to miss something on these dwgs.

luihaixin88, I loaded these into my startup suite but I do not see any change. Anything I'm missing with these? I'm assuming these lisps are meant to highlight a selection differently than CAD defaults?

Thanks again,

Nobull