 ; Us: pick one item from a selection set.
 ; Copyright 1992  Rocket Software
 ; People keep telling me that they know of a program that can do this.
 ; Am I impressed or what?
 (DEFUN NUG (shk)
  (if entity (command "select" entity ""))
  (setq *error* prev)
  (write-line "Entity selected")
 (princ))
 (DEFUN C:US (/ ss num len entity)
  (setvar "cmdecho" 0)
  (setq prev *error*)
  (setq *error* nug)
  (setq ss (ssget))
  (setq num 0)
  (setq len (sslength ss))
  (setq entity (ssname ss num))
  (redraw entity 3)
  (setq num (1+ num))
  (while (= "" (getstring "<Enter> for next, anything else to accept: "))
         (if entity (redraw entity 4))
         (setq entity (ssname ss num))
         (redraw entity 3)
         (setq num (1+ num))
         (if (> num (1- len)) (setq num 0)))
  (command "select" entity "")
  (setq *error* prev)
  (write-line "Entity selected")
 (princ))