From: Christian Murray
Subject: New Lisp user (Help!)
Date: Wed, 10 Jan 1996 00:00:00 +0000
Message-ID: <30F45323.6844@ix.netcom.com>

Help! I need the following to take (setq nt) and assign this to all
 without prompting "New text" again.  Can anyone help me.

    ((= ans "Universal")
      (while (> sslen 0)
	(setq ent (entget(ssname sset (setq sslen (1- sslen)))))
        (redraw (cdr(assoc -1 ent)) 3)
	(setq nt (getstring  T "\nNew text: ")) 
	(redraw (cdr(assoc -1 ent)) 1)
        (if (> (strlen nt) 0)
            (entmod (subst (cons 1 nt) (assoc 1 ent) ent))
          )
      )
)

Christian Murray
Colorado