;;;Butler Plumbing Company
;;;236A W. East Ave.
;;;Chico, CA 95926
;;;CIS ID 70632,3401

(defun c:rge (/ num indx ents entlist entname)
(princ)
(prompt "\n Pick entity<s> to regenerate...")
      (setq ents (ssget)
          num    (sslength ents)
          indx   0
      );Get entities
      (repeat num     
          (entmod (setq entlist (entget (ssname ents indx))))
          (setq entname (assoc -1 entlist))
          (command "redraw" entname)
          (setq indx (1+ indx))
      )
(prompt "\n Done...")
(princ)
)