Just thought I post an alternate method to giving visual feedback to the user. What it does is make the entity the user selected "blink" or "twitch", just enough to not be annoying, yet give a solid signal to the user that the entity selected is accepted.
If you want to try it, paste the snip below into the command line. First argument is an ename, second is number of times to blink, third is delay time. Adjust delay argument to suit your PC's speed. This snip works good for me using a 3.0 GHz PC.
(blink (car (entsel)) 2 0.1))
;; Function: Blink
;;
;; Makes an entity blink on and off
;;
;; Requires function Wait and three arguments:
;;
;; ename is an entity name
;; count is the number of times to blink (integer)
;; delay is amount of time between blinks (real number)
;;
;; Suggested argument values:
;; count = [0,1,2,3] = the number of time to blink
;; delay = [0.05 0.2] = seconds to hide/show
;; note that as procesor speeds increase,
;; you'll need to adjust the delay time
;; to achieve the same effect
;;
(defun Blink (ename count delay)
(repeat count
(redraw ename 2) ;_ hide
(wait delay)
(redraw ename 1) ;_show
(wait delay)
)
)
;
;;
;; Function: Wait
;;
;; Thanks to Tony Tanzillo
;;
(defun wait (seconds / stop)
(setq stop (+ (getvar "DATE") (/ seconds 86400.0)))
(while (> stop (getvar "DATE")) (princ))
)
