CODE23：既存文字列(TEXT/MTEXT)に接尾辞を追記

2023年05月16日

2023年05月17日


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