||||앞쪽에 글자 추가하는것과 뒤쪽에 글자 추가하는걸로 수정해봤습니다.
원본과 비교해보시면 다른데가 많지 않으니 내용 확인하실수 있을겁니다.

앞쪽에 글자추가

(defun c:PP(/ os ss sslen ass1 otxt atxt ntxt elist k)
   (setvar "cmdecho" 0)
   (setq os (getvar "osmode"))
   (setvar "osmode" 0)
   (prompt "\n앞쪽에 내용추가할 문자선택-> ")
   (setq ss (ssget))
   (setq atxt (getstring "추가할 글자 : "))
   (prin1)

   (setq sslen (sslength ss) k 0)
   (while (< k sslen)
       (setq elist (entget (ssname ss k)) )
       (setq ass1 (assoc 1 elist) otxt (cdr ass1) )
       (if (= otxt "") (setq otxt "<>"))
           (progn
              (setq ntxt  (strcat atxt otxt)  elist (subst (cons 1 ntxt) ass1 elist))
              (entmod elist)
           )
       (setq k (+ K 1))
   )
   (setvar "osmode" os)
   (prin1)        
)


뒤쪽에 글자추가

(defun c:PPE(/ os ss sslen ass1 otxt atxt ntxt elist k)
   (setvar "cmdecho" 0)
   (setq os (getvar "osmode"))
   (setvar "osmode" 0)
   (prompt "\n뒤쪽에 내용추가할 문자선택-> ")
   (setq ss (ssget))
   (setq sst (getstring "추가할 글자 : "))
   (prin1)

   (setq sslen (sslength ss) k 0)
   (while (< k sslen)
       (setq elist (entget (ssname ss k)) )
       (setq ass1 (assoc 1 elist) otxt (cdr ass1) )

       (if (= otxt "") (setq otxt "<>"))
           (progn
              (setq ntxt  (strcat otxt atxt)  elist (subst (cons 1 ntxt) ass1 elist))
              (entmod elist)
           )
       (setq k (+ K 1))
   )
   (setvar "osmode" os)
   (prin1)        
)