(defun C:edit_text_add_text (/ obj-list ssnabor entget-list text_string)
  (setq text_string (getstring T "Что добавить после выбранных текстов?: "))
  (setq ssnabor (ssget '((0 . "TEXT"))))
  (setq obj-list (convert_ss_to_list ssnabor))
  (foreach x obj-list
    (setq entget-list (entget x))
    (entmod (subst (cons 1 (strcat (cdr(assoc 1 entget-list))text_string))(assoc 1 entget-list)entget-list))
    (entupd x)
    )
  (princ)
  )