;文字に接頭辞をつける
;+++++++++++++
(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)
)





;文字に接尾辞をつける
;+++++++++++++
(defun C:CODE23 ( / ja eset cnt h1 num en ed t1 t2 )
;+++++++++++++
    (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)
)



;下線付き文字に編集（ダイナミック文字）
;+++++++++++++
(defun C:CODE24 ( / ja eset cnt h1 num en ed t1 t2 )
;+++++++++++++
    

            (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）が選択されたら・・・
                (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 "%%U  " Orgtxt "  %%U"))
                       (setq Ent (subst (cons 1 Newtxt) (assoc 1 Ent) Ent)) 
                       (entmod Ent) 
                       (setq cnt (1+ cnt))
                    );while
                );progn
                ;ダイナミック文字列（TEXT）が選択されなかったら・・・
                (alert "選択エラー：ダイナミック文字列（TEXT）が選択されていません") 
            );if
    (princ)
)



;;マルチテキストの行間隔を変更する(0.25〜4.00)
;+++++++++++++
(defun C:CODE25()
;+++++++++++++
  (setq 行間隔尺度 1)
  (setq 行間隔尺度 (getstring "\n行間隔の尺度(0.25〜4.00)："))
    
  (princ "\nマルチテキストを選択")
  (setq Obj (ssget (list (cons 0 "MTEXT"))))
  (if (not(= Obj nil));マルチテキストが選択されていたら・・・
    (progn
      (setq cnt 0)
      (setq num (sslength Obj))

      (while (< cnt num)
        (setq Ent (ssname Obj cnt))
        (setq TextObj  (entget Ent))
        (setq TextObj  (subst (cons 44 (atof 行間隔尺度)) (assoc 44 TextObj ) TextObj ));行間隔の尺度
        (entmod TextObj) 
        (setq cnt (1+ cnt))
      );while
    );progn
    ;マルチテキスト（MTEXT）が選択されなかったら・・・
    (alert "選択エラー：マルチテキスト（MTEXT）が選択されていません") 
  );if
  (princ)
)























