AutoCADマクロ屋本舗 掲示板

はじめまして。
ACAD2017を使っています。

作業上、文字を打つことが多いのですが、
毎度毎度その尺度に合わせた
文字高に直すのがめんどくさいです。
そこで、文字高を切替で変えれる
マクロはありませんでしょうか？

使用尺度は1：10、1：20、1：30、1：40、1：50で、
基本文字高は3.5です。
（尺度1：10なら10ｘ3.5で文字高35です)

いまはフィルターを使用するか、
プロパティで直しています。

宜しくお願いします。

文字記入時のみの話でしょうか？

基本はdimscale（全体の尺度）にtextsize（文字高さ）を掛け算するだけの
単純な内容ですが、もう少し詳しく説明願います。
※実作業の手順等

とってぃ様
出張中にもかかわらず
ご対応していただき、ありがとうございます。

文字記入時のみです。
作業上、モデル空間内に
1：10、1：20、1：30、1：40、1：50の図面があり
それの尺度に合わせた文字高で文字記入します。
(印刷時はレイアウト空間にて設定し、行います)

画像を添付致しましたので
ご確認いただけたら幸いです。

画像では簡易的ですが、
これが普段の仕事だと
箇条書きの文字だけで100文字は超えます。。。
1：10のままかいて
フィルター等で文字高を一括に変換しても
文字同士の間隔がおかしくなるので。。。(画像黄色の部分)

お力を貸していただければと思います。
宜しくお願いします。

画像です

こんな感じでしょうか？

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;sw0;0;;to;1,;sw1;$(nth,$(getenv,sw0),10,20,30,40,50);;to;2,,)$(nth,$(getenv,to),,,;to;0;ray;切替(L-Click)<尺度：$(getenv,sw1)","高さ：$(*,3.5,$(getenv,sw1))>決定(R-Click):^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;3,textsize;$(*,3.5,$(getenv,sw1));setenv;to;0;^Cid;)""",)$(nth,$(getenv,to),,,,;sw0;$(if,$(=,$(getenv,SW0),4),0,$(+,$(getenv,SW0),1));;to;1)^M

マクロを起動して切替の場合は(L-Click)して尺度と高さを確認して決定(R-Click)で終了
その後、通常の文字記入のコマンドを実行してください。

文字高循環マクロ（文字高35mmで1/10～1/50限定）
^C^Csetenv;ssyaku;$M=$(+,$(if,$(=,175,$(getenv,ssyaku)),-140,35),$(getenv,ssyaku));_textsize;$(getenv,ssyaku);

最初にコマンドラインから下記の操作をして下さい
コマンド: SETENV
変数名を入力: ssyaku
値: 35

その後に上記のマクロを起動すると
文字高が　35→70→105→140→175→35
と言う具合に循環します。

chibi-tom様
Den様

ありがとうございます！
お二方の方法、どちらも社内で展開します。
毎日の作業に億劫になっていたところだったので
大変感謝いたします。

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

何度もすみません。

chibi-tom様のマクロを
もし仮に尺度を追加する場合は
どこを触ったらいいのでしょうか？

宜しくお願い致します。

こんな感じです。

sw1;$(nth,$(getenv,sw0),10,20,30,40,50);
の部分の数字を,で区切り『最大で８個まで』
例として
sw1;$(nth,$(getenv,sw0),10,20,30,40,50,100,200);
と変えて
;sw0;$(if,$(=,$(getenv,SW0),4)←この数字を最大数-1の数字に変えると
(例で言うと6に変える)とできます。

chibi-tom様

早急なご対応ありがとうございます。
さっそく
試してみようと思います！