;TIP560.LSP   View Selected QText   (c)1990, Brian Sallade
(Defun C:VQTEXT (/ SS NUMB CNTR GLIST)
  (setq SS (ssget))
  (If SS (progn
  (setq NUMB (sslength SS))
  (setq CNTR 0)
  (setvar "QTEXTMODE" 0)
  (while (< CNTR NUMB)
    (setq GLIST
      (entget (ssname SS CNTR))
    )
    (entupd (cdr (assoc -1 GLIST)))
    (setq CNTR (1+ CNTR))
  )
  ))
  (Setvar "QTEXTMODE" 1)
(princ)
)