fc2ブログ

CODE09:座標文字列(MTEXT)の文字位置を「右基点」に変更する

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

;座標文字列(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)
)


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

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

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



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