; by Lee-Mac
; This will "bump attributes in the order that they were selected
; great for title block revisions...
(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)