AutoCADマクロ屋本舗 掲示板

はじめまして。
いつも便利に使わせていただいてます。
現在AutoCAD LT 2018使用中です。

寸法値はそのままストレッチするとその分だけ数字が動いてしまうと思いますがそれを防ぐために現在手打ちで打ち直してます。
寸法値を自動の<>から現在の文字列に変換できるマクロは作成可能でしょうか？選択した寸法線の寸法値が全て一気に変換出来るようになると大変助かります。

よろしくお願い致します。

複数一度にはできないですが

選択と同時に文字列にはできます

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),copy;寸法選択:^X\non;@;;non;@;non;@;erase;p;;setenv;to;1,,)$(nth,$(getenv,to),,undo;be;dimoverride;dimsah;1;dimblk1;_none;dimblk2;_none;dimsoxd;1;dimtmove;2;;l;;explode;l;erase;l;;lengthen;dy;;;l;;;undo;e;u;setenv;to;2,)$(nth,$(getenv,to),,,_cmddia;0;dim1;new;$(rtos,$(getvar,perimeter),2);l;;cmddia;1;setenv;to;0)^M

lt2017で動作確認です

注、長さ寸法のみです。

SFCに変換すると寸法値は文字列になるので、

DWG→SFC→DWGとすれば良いのでは？

chibi-tomさん
ありがとうございます！
業務が数倍捗ります！

参考としての一括方式

*^C^C$M=setenv;to;0;$(if,$(=,$(getenv,to),0),undo;be;select;\copybase;non;0<0;p;;erase;p;;-layout;d;tmplo;;n;tmplo;;s;tmplo;point;0<0;erase;all;;pasteclip;non;0<0;zoom;e;cmddia;0;setenv;cd;$(getvar,cmddia);;to;1)$(if,$(=,$(getenv,to),1),;to;4;select;l;;undo;m;dimoverride;dimtad;2;dimash;0;dimblk;_none;;l;;setenv;to;2)$(if,$(=,$(getenv,to),2),explode;l;erase;l;;lengthen;dy;;;l;;;$M=undo;b;dim1;new;"""$(rtos,$(getvar,perimeter),2)"""^SX<>;l;;setenv;to;3)$(if,$(=,$(getenv,to),3),copybase;non;0<0;l;;erase;p;;-layout;s;model;pasteclip;non;0<0;-layout;s;tmplo;setenv;to;1)$(if,$(=,$(getenv,to),4),-layout;s;model;;d;tmplo;cmddia;$(getenv,cd);^Cundo;e)^M

zukki-さん
ありがとうございます。
使用してみましたがしばらく固まった後、画像のような状態になります。
当方AUTOCAD LT2018ですがバージョンの問題でしょうか？

すみません、画像が添付出来てなかったみたいです。

>使用してみましたがしばらく固まった後
レイアウトを利用しての処理中だと思われます。
^SX<>部分で寸法値を合わせて表示させているので
画像のようになるのは正しい動作だと思います。

下段の寸法値が必要なければ
^SX<>の部分を削除すれば出なくなります。

上が動かない寸法、下が動く寸法<>です。比較のため趣味でつくりました。

chibi-tomさんの投稿とかぶりましたね。
解説のとおりです。寸法値を打ち変える理由が分からなかったもので余計なものをつけましま。適当に削除して下さい。

chibi-tomさん、zukki-さん
出来ました!とても助かります。

中間を省略した詳細図を書く時にワイドが4000mmの製品を1:1でA2の図枠に書いたりするんですが中間が複雑な構造になっているとビューポートで切り貼りするのが時間の手間になってしまうので絵をストレッチして寸法を打ち直したりする事があるんです。余談で失礼しました。
ありがとうございました。

実寸と違う場合の判断方法として
文字色の変更やアンダーバー表示することがあるんで
個人的に気になっただけなので関係なければスルーしてください。

文字色変更(赤色)Ver
*^C^C$M=setenv;to;0;$(if,$(=,$(getenv,to),0),undo;be;select;\copybase;non;0<0;p;;erase;p;;-layout;d;tmplo;;n;tmplo;;s;tmplo;point;0<0;erase;all;;pasteclip;non;0<0;zoom;e;cmddia;0;setenv;cd;$(getvar,cmddia);;to;1)$(if,$(=,$(getenv,to),1),;to;4;select;l;;undo;m;dimoverride;dimtad;2;dimash;0;dimblk;_none;;l;;setenv;to;2)$(if,$(=,$(getenv,to),2),explode;l;erase;l;;lengthen;dy;;;l;;;$M=undo;b;dim1;new;"""$(rtos,$(getvar,perimeter),2)""";l;;dimoverride;dimclrt;1;;l;;setenv;to;3)$(if,$(=,$(getenv,to),3),copybase;non;0<0;l;;erase;p;;-layout;s;model;pasteclip;non;0<0;-layout;s;tmplo;setenv;to;1)$(if,$(=,$(getenv,to),4),-layout;s;model;;d;tmplo;cmddia;$(getenv,cd);^Cundo;e)^M

アンダーバー表示Ver
*^C^C$M=setenv;to;0;$(if,$(=,$(getenv,to),0),undo;be;select;\copybase;non;0<0;p;;erase;p;;-layout;d;tmplo;;n;tmplo;;s;tmplo;point;0<0;erase;all;;pasteclip;non;0<0;zoom;e;cmddia;0;setenv;cd;$(getvar,cmddia);;to;1)$(if,$(=,$(getenv,to),1),;to;4;select;l;;undo;m;dimoverride;dimtad;2;dimash;0;dimblk;_none;;l;;setenv;to;2)$(if,$(=,$(getenv,to),2),explode;l;erase;l;;lengthen;dy;;;l;;;$M=undo;b;dim1;new;%%u"""$(rtos,$(getvar,perimeter),2)""";l;;setenv;to;3)$(if,$(=,$(getenv,to),3),copybase;non;0<0;l;;erase;p;;-layout;s;model;pasteclip;non;0<0;-layout;s;tmplo;setenv;to;1)$(if,$(=,$(getenv,to),4),-layout;s;model;;d;tmplo;cmddia;$(getenv,cd);^Cundo;e)^M

zukki-様のマクロ勝手にいじってしまいました。

まったくをもってオーケーです。
chibi-tomさんのも参考にしています。

chibi-tomさん、zukki-さん
実際使用してみて寸法値の色が変わったほうが分かりやすいなと感じました。
何から何までお気遣いありがとうございます。

投稿主様
横入りすみません。

弊社も同じように手打ちでアンダーバーを使うことがあるのですが、
アンダーバーマクロに
手打ち寸法も記入できるようにしていただくことは
可能でしょうか？
マクロを使用させていただいたところ、
予め手打ちの寸法値にアンダーバーが引かれるようなので。。。

やりたいことがいまひとつはっきりしないでみかんさんのように図示してくれるとレスがつきやすいです。

図示の例
http://bbs2.fc2.com//bbs/img/_816400/816339/full/816339_1531213195.png

こんな感じでしょうか？

*^C^C$M=setenv;to;0;$(if,$(=,$(getenv,to),0),ray;手打ち寸法記入(左)／実測値記入(右)：^X\$M="""$(if,$(getvar,cmdactive),;setenv;UPN1;手打ち寸法:^X\;sw;1,setenv;sw;0)""";;to;1)$(if,$(=,$(getenv,to),1),undo;be;select;\copybase;non;0<0;p;;erase;p;;-layout;d;tmplo;;n;tmplo;;s;tmplo;point;0<0;erase;all;;pasteclip;non;0<0;zoom;e;cmddia;0;setenv;cd;$(getvar,cmddia);;to;2)$(if,$(=,$(getenv,to),2),;to;5;select;l;;undo;m;dimoverride;dimtad;2;dimash;0;dimblk;_none;;l;;setenv;to;3)$(if,$(=,$(getenv,to),3),explode;l;erase;l;;lengthen;dy;;;l;;;$M=undo;b;dim1;new;$(if,$(getenv,sw),%%u$(getenv,UPN1),%%u$(rtos,$(getvar,perimeter),2));l;;setenv;to;4)$(if,$(=,$(getenv,to),4),copybase;non;0<0;l;;erase;p;;-layout;s;model;pasteclip;non;0<0;-layout;s;tmplo;setenv;to;2)$(if,$(=,$(getenv,to),5),-layout;s;model;;d;tmplo;cmddia;$(getenv,cd);^Cundo;e)^M

１.マクロ起動
２.手打ち寸法記入の場合は左クリック：３へ／実測値を記入する場合は右クリック：４へ
３.手打ち寸法記入
４.寸法選択

以上です

提案しておいてなんですが、手打ちの寸法にアンダーバーを引くだけなら選択してＵ＿ボタンを
ポチッとするだけなので、このマクロでもあまり手間が変わらない気がします。

同じ文字がいくつも有って一度にアンダーバーが引きたいなら有効かもしれませんが
手打ちするってことは同じ文字がいくつもというのは考えにくいですけど

もし間違っていたらスルーでお願いします。

zukki-様
すみません。
以後気を付けます。
ご指摘ありがとうございます。

chibi-tom様
ありがとうございます！
まさにこれを求めていました！
仕事内容によるのですが、
複数の場合や単体とさまざまなので
とっても助かります！

chibi-tom　様
zukki　様

素晴らしいマクロありがとうございます。
autocad2016LTでは赤色とアンダーバーのマクロは正常に動きました。
ただ仕事の精度上0.00までの表示でCADをしているのですが
このマクロを使用すると0.0000まで表示されてしまうのが…
0.00までの表示は出来ないものなのでしょうか？

UNITS：単位管理の設定が0.0000になっているのではないでしょうか？

単位管理の設定で表示する設定になっています。

もし単位管理を変えたくなければ
$(rtos,$(getvar,perimeter),2)を
$(rtos,$(getvar,perimeter),2,2)に変えればよいと思います。

chibi-tom　様

早急なお返事ありがとうございます。
ありがとうございました!!!!!!