fc2ブログ

CODE22:既存文字列(TEXT/MTEXT)に接頭辞を追記

2023年05月16日
AutoLISP サンプルコード公開Gallery

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


 AutoLispサンプルコードプログラム 一覧(インデックス)

 AutoLispサンプルコードプログラム 【概説】

AutoLispサンプルコードプログラム
関連記事
スポンサーサイト



Gallery担当:山野 ロザリア平久郎
Posted by Gallery担当:山野 ロザリア平久郎