Attribute replacing

[Lee Mac]

Perhaps?

(defun c:bump ( / a g ) ;; Lee Mac 2011
  (cond
    ( (setq a (ssget "_+.:S:E:L" '((0 . "INSERT") (66 . 1))))
      (setq a (vlax-invoke (vlax-ename->vla-object (ssname a 0)) 'getattributes))
      (princ "\nPress [+/-] to Bump Attributes Up & Down. <Done>")
      (while (member (setq g (grread nil 10)) '((2 45) (2 95) (2 43) (2 61)))
        (mapcar 'vla-put-textstring a
          (mapcar 'vla-get-textstring
            (if (member g '((2 45) (2 95))) (cons (last a) a) (append (cdr a) (list (car a))))
          )
        )
      )
    )
  )
  (princ)
)
(vl-load-com) (princ)

Bump.gif