;文字に接頭辞をつける
;+++++++++++++
(defun C:CODE22 ()
;+++++++++++++
    (setq 接頭辞 nil)
    (setq 接頭辞 (getstring "\n接頭辞："))
    (if (> (strlen 接頭辞) 0);
        (progn
            (princ "\n文字列を選択：")
            (setq Obj (ssget (list (cons -4 "<OR")
		              (cons 0 "TEXT")
		              (cons 0 "MTEXT")
		              (cons -4 "OR>")
            )));list-ssget-setq
            (if (not(= Obj nil));文字列（TEXT/MTEXT）が選択されたら・・・
                (progn
                    (setq cnt 0)
                    (setq num (sslength Obj))
                    (while (< cnt num)
                       (setq MyEnt (ssname Obj cnt))
                       (setq Ent (entget MyEnt))
                       (setq Orgtxt (cdr(assoc 1 Ent)))
                       (setq Newtxt (strcat 接頭辞 Orgtxt ))
                       (setq Ent (subst (cons 1 Newtxt) (assoc 1 Ent) Ent)) 
                       (entmod Ent) 
                       (setq cnt (1+ cnt))
                    );while
                );progn
                ;文字列（TEXT/MTEXT）が選択されなかったら・・・
                (alert "選択エラー：文字列（TEXT/MTEXT）が選択されていません") 
            );if
        );progn
    );if
    (princ)
)