CODE12：座標値文字列アト付け測点名追加登録

2023年05月14日

2023年05月17日


;座標値文字列アト付け測点名 追加登録;+++++++++++++
(defun C:CODE12 (/ 測点名 Ent);
;+++++++++++++
    (setq 測点名 nil)
    (setq 測点名 (getstring "\n測点名："))
    (if (> (strlen 測点名) 0);
        (progn
            (setq Ent (entget (car (entsel "座標文字列を選択:")))) ;EntにDXF図形情報のリストを代入
            (if (= (cdr (assoc 0 ent)) "MTEXT") ;選択図形がマルチテキストかどうかチェック
                (progn ;図形がマルチテキストの時の処理
                    (Setq  Orgtxt (Cdr(Assoc 1 Ent)))
                    (Setq  Newtxt (Strcat 測点名 "\\P" Orgtxt))
                    (setq Ent ;書き直したDXF図形情報のリストをEntに入れ直し
                        (subst ;入れ替える
                            (cons 1 Newtxt) ; 新しい値
                            (assoc 1 Ent) ; 古い値
                            Ent) ;Entに入っているDXF図形情報のリストを
                    );setq
                    (entmod Ent) ;DXF図形情報を図形に反映
                );progn
                (alert "選択エラー：座標文字列を選択して下さい。") ;図形がマルチテキスト以外の時、メッセージボックスを表示;Else
            );if
        );progn
    );if
    (princ)
)