(defun c:attrimedit (nil)
(setvar 'cmdecho 0)
(c:gatte)
(foreach x '(("_.BLOCK" "Ren Drawing Title" "DATE" " NOVEMBER 2019" "YES")
("_.BLOCK" "Ren Drawing Title" "REV_NO1" "A" "YES")
("_.BLOCK" "Ren Tittleblock Revision" "REV_NO" "A" "YES")
("_.BLOCK" "Ren Tittleblock Revision" "REV_DESC" " ISSUED FOR CONSTRUCTION" "YES")
("_.BLOCK" "Ren Tittleblock Revision" "DATE" "NOV' 2019" "YES")
)
(eval (cons 'command-s x))
)
(setvar 'cmdecho 1)
(princ)
)