CODE09：座標文字列（MTEXT）の文字位置を「右基点」に変更する

2023年05月14日

2023年05月17日


;座標文字列（MTEXT）の文字位置を「右基点」に変更する;+++++++++++++
(defun C:CODE09 ( / Obj Ent TextObj )
;+++++++++++++
    (princ "\n座標文字列（MTEXT）を選択：")
    (setq Obj (ssget (list (cons 0 "MTEXT"))))
    (if (not(= Obj nil));;座標文字列（MTEXT）が選択されていたら・・・
        (progn
            (setq cnt 0)
            (setq num (sslength Obj))
            (alert  (strcat "\n選択数："  (rtos num) "\n")) 
            (while (< cnt num)
                (setq Ent (ssname Obj cnt))
                (setq TextObj  (entget Ent))
                (setq TextObj  (subst (cons 71 6) (assoc 71 TextObj ) TextObj )) 
                (entmod TextObj) 
                (setq cnt (1+ cnt))
            ) 
        );progn
        ;座標文字列（MTEXT）が選択されなかったら・・・
        (alert "選択エラー：座標文字列（MTEXT）が選択されていません") 
    );if
    (princ)
)