AutoCADマクロ屋本舗 掲示板

おはようございます。
さっそくなのですが、
寸法値の下段に文字を記入する際、
パレットの「寸法値の優先」で入力をしているのですが
これをマクロでできないでしょうか。

>パレットの「寸法値の優先」で入力
何を入力しているのか
>寸法値の下段
寸法値のすぐ下なのか、寸法線を挟んだ下なのか

提示しないと答えようがないと思いますよ

chibi-tomさん
すみません。

<>￥X〇〇　（〇〇は入力したい文字です。）
例えば100の寸法をあげててその下に
(既設)と記載する際などに使います。

こんな感じでしょうか？

*^C^Csetenv;tx;記載文字記入<$M=$(getenv,tx)>：^X\cmddia;0;dim1;new;<>^SX$M="$(getenv,tx)";\cmddia;1^M

１.マクロ起動
２.記載文字記入
３.変更する寸法を選択

以上です。

すいません修正しました。

*^C^Csetenv;tx;記載文字記入<$M=$(getenv,tx)>：^X\cmddia;0;dim1;new;<>^SX$M="$(getenv,tx)";\;cmddia;1^M

chibi-tomさん
ありがとうございました。
作業がとても楽になります。

上記マクロの記載文字記入の項目を特定の文字にすることは可能でしょうか。

1.マクロを起動
2.記載文字記入
3.寸法選択

ではなく

1.マクロを起動
2.寸法選択

この時点で特定の文字(例えば「既設」という文字)を寸法線を挟んで下側に記入したいです。

ご確認宜しくお願い致します。

こんな感じです

*^C^C_select;$M=$(if,$(getvar,CMDACTIVE),\,)cmddia;0;dim1;new;<>^SX既設;p;;cmddia;1^M

複数まとめて選択してもＯＫ、選択後マクロ起動でもマクロ起動後選択でもＯＫです。

ついでに元のほうも修正しました。
*^C^C_select;$M=$(if,$(getvar,CMDACTIVE),\,)setenv;tx;記載文字記入<$M=$(getenv,tx)>：^X\cmddia;0;dim1;new;<>^SX$M="""$(getenv,tx)""";p;;cmddia;1^M

１.マクロ起動
２.変更する寸法を選択
３.記載文字記入

２.３の手順が変わっています。

chibi-tomさん

お忙しい中、早々に対応いただきありがとうございます。
希望通りの動作が出来ました。

ありがとうございました。

すみません。。。
なぜか最初に試しで記載した文字が
固定となってしまい、
新たに文字を打ち込んでも
反映されません。。

コマンド:
コマンド:
コマンド: setenv
そのようなコマンド "SETENV" はありません。ヘルプを表示するには F1 キーを押してください。
コマンド: tx
そのようなコマンド "TX" はありません。ヘルプを表示するには F1 キーを押してください。
コマンド: 記載文字記入<あいうえお>：*削除*
記載文字記入<あいうえお>：たたみ代
そのようなコマンド "たたみ代" はありません。ヘルプを表示するには F1 キーを押してください。
コマンド: cmddia
CMDDIA の新しい値を入力 <1>: 0
**** システム変数が変更されました ****
モニタされている 2 個のシステム変数が、推奨値から変更されました。変更内容を確認するには、SYSVARMONITOR コマンドを使用します。
コマンド: dim1
DIM(寸法記入): new
寸法値 <"<>"><>\Xあいうえお
オブジェクトを選択: 認識された数: 1
オブジェクトを選択:
コマンド: cmddia
CMDDIA の新しい値を入力 <0>: 1
**** システム変数が変更されました ****
モニタされている 1 個のシステム変数が、推奨値から変更されました。変更内容を確認するには、SYSVARMONITOR コマンドを使用します。
コマンド:
コマンド:
コマンド: setenv
そのようなコマンド "SETENV" はありません。ヘルプを表示するには F1 キーを押してください。
コマンド: tx
そのようなコマンド "TX" はありません。ヘルプを表示するには F1 キーを押してください。
コマンド: 記載文字記入<あいうえお>：*削除*

コマンドラインを見る限り、"SETENV" がないといわれているので、R版をお使いでしょうか。
それだと、こちらの【レギュラー版での使用に関する注意事項】https://ameblo.jp/totthi-macro/entry-10895232361.html　にあるように、「TdMacros.lsp」を事前にロードする必要があります。
「TdMacros.lsp」があるかどうか、そしてスタートアップに登録されていてAutoCAD起動とともに読み込まれているかどうかをご確認ください。

使用のCADが変わったとかでしょうか
以前のままでR2019で使えていた状況から考えると
何らかの原因でスタートアップに登録がなくなってしまったのではないでしょうか
LUNEさんのおっしゃるように
>「TdMacros.lsp」があるかどうか、そしてスタートアップに登録されていてAutoCAD起動とともに読み込まれているかどうか
確認されてみてはどうでしょうか？