;下線付き文字に編集（ダイナミック文字）
;+++++++++++++
(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)
)



