(defun c:CV-PREFIX ( / ss pre i ent ed txt)
  (princ "\n--- CV-PREFIX: Bulk Text Prefix by CADVoid.com ---")
  (setq pre (getstring T "\nEnter Prefix to add: "))
  (if (setq ss (ssget '((0 . "TEXT,MTEXT"))))
    (progn
      (setq i 0)
      (while (< i (sslength ss))
        (setq ent (ssname ss i))
        (setq ed (entget ent))
        (setq txt (cdr (assoc 1 ed)))
        (setq ed (subst (cons 1 (strcat pre txt)) (assoc 1 ed) ed))
        (entmod ed)
        (setq i (1+ i))
      )
      (princ (strcat "\nPrefix '" pre "' added to selected text."))
    )
    (princ "\nNo text selected.")
  )
  (princ "\n--- Powered by CADVoid.com ---")
  (princ)
)
(princ "\nType CV-PREFIX to add a prefix to text. [CADVoid.com]")
(princ)