;PROGRAM TO EDIT ATTRIBUTE VALUES GLOBALLY.
(defun C:gaedit (/ old new P1 S1)
    (setvar "cmdecho" 1)
    (setq old (getstring T "\nEnter string to change:  "))
    (setq new (getstring T "\nEnter replacement string:  " ))
    (setq P1 (entsel "\nPick attribute to edit: "))
    (setq S1 (cadr P1))
    (command ".DIM" "EXIT" ".ATTEDIT" "n" "" "" "" "" S1 "" old new)
    (while P1
        (setq P1 (entsel "\nPick next attribute to edit: "))
        (setq S1 (cadr P1))
        (if (= (type p1) 'list)
            (command ".DIM" "EXIT" ".ATTEDIT" "n" "" "" "" "" S1 "" old new)
            (setq p1 nil)
        )
    )
    (prompt "\nDone\n")
    (princ)
)
(prompt "\nC:GAEDIT  Written for Release 12 & 14")(princ)