;; PR.LSP PARTIAL REGENERATION
;; SELECT OBJECTS TO REGENERATE
;;
(defun c:pr (/ count entity set set_length)
   (prompt "\nSelect entities to regenerate: ")
   (setq set (ssget))
   (setq set_length (sslength set))
   (setq count 0)
   (while (< count set_length)
      (setq entity (ssname set count))
      (entupd entity)
      (setq count (1= count))
   )
(princ)
)