;PROGRAM TO EDIT AN ATTRIBUTE
(defun C:Arep (/ P1 S1 NEW)
    (setvar "cmdecho" 0)
    (setq NEW (getstring T "\nEnter new data: " ))
;    (while null p1 (setq P1 (entsel "\nPick attribute to edit: ")));;This line doesn't work.
     (setq P1 (entsel "\nPick attribute to edit: "))
    (setq S1 (cadr P1))
    (command ".DIM" "EXIT" ".ATTEDIT" "Y" "" "" "" S1 "" "V" "R" NEW "n")
    (while P1
        (setq P1 (entsel "\nPick next attribute to edit: "))
        (setq S1 (cadr P1))
        (if (= (type p1) 'list)
            (command ".DIM" "EXIT" ".ATTEDIT" "Y" "" "" "" S1 "" "V" "R" NEW "n")
            (setq p1 nil)
        )
    )
    (prompt "\nDone\n")
    (princ)
)
(prompt "\nC:AREP  Written for Release 14")(princ)