AutoCADマクロ屋本舗 掲示板

お世話になっております。
autocad 2015Ｒ使用です。

立方体などを製作する際に
30°もしくは45°等の角度をつけて
作図するのですが、
その際にその角度に沿って綺麗に寸法があげれるような
マクロの作成をしていただけないでしょうか。
いまはスライド寸法で対応しています。

宜しくお願い致します。

平行寸法：DIMALIGNED　ではダメなのですか？

とってぃ様

お返事ありがとうございます！
平行寸法でOKな図面と
そうでない場合がありまして...
客先&上司のこだわりといいますか....

＞その際にその角度に沿って綺麗に寸法があげれるような
＞マクロの作成をしていただけないでしょうか。

どの様な状況なのか詳しく説明願います。

こちらと作業環境や作業内容が違いますので
最終的な寸法図をプリントスクリーン等で画像にし、
こちらに添付画像として表示して頂けると分かりやすいです。

とってぃ様

画像添付致します。
宜しくお願い致します。

当方現在Ｒ版が無い為確認出来ませんが
３Ｄ時のＵＣＳ座標を決めれば可能なのではないでしょうか。

参考
https://faq.mypage.otsuka-shokai.co.jp/app/answers/detail_view/a_cd/E48360E10D

マクロではなく、基本的な部分で可能かと。

先に平行寸法が引いてある前提ですが

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;sw;0;setenv;to;1,;dag1;$(nth,$(getenv,sw),30,-30,45,-45);;to;2,,,,)$(nth,$(getenv,to),,,join;変更したい平行寸法を選択:^X\;select;non;@;non;@;;dimedit;o;p;;$(getenv,dag1);setenv;to;3,,,)$(nth,$(getenv,to),,,,;to;0;join;変更したい平行寸法を選択(切替はR-CliCK):^X\$M="""$(if,$(getvar,cmdactive),;select;non;@;non;@;;dimedit;o;p;;$(getenv,dag1);setenv;to;3,setenv;to;4)""",,)$(nth,$(getenv,to),,,,,;sw;$(if,$(=,$(getenv,SW),3),0,$(+,$(getenv,SW),1));;dag1;$M="""$(nth,$(getenv,sw),30,-30,45,-45)""";;to;5,)$(nth,$(getenv,to),,,,,,dimedit;o;p;;$(getenv,dag1);setenv;to;3)^M

これで少し手間が省けますか？
lt2017で動作確認です

１.平行寸法を選択
２.次の平行寸法の選択または右クリックで希望のスライド角度に切替
ＥＳＣボタンで終了です

平行寸法を記入する方法でも考えました

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;sw;0;setenv;to;1,;dag1;$(nth,$(getenv,sw),30,-30,45,-45);;to;2,,,,)$(nth,$(getenv,to),,,dimaligned;\\\dimedit;o;l;;$(getenv,dag1);setenv;to;3,,,)$(nth,$(getenv,to),,,,;to;0;ray;1本目の寸法補助線の起点を指定(切替はR-CliCK):^X\$M="""$(if,$(getvar,cmdactive),;dimaligned;@;\\dimedit;o;l;;$(getenv,dag1);setenv;to;3,setenv;to;4)""",,)$(nth,$(getenv,to),,,,,;sw;$(if,$(=,$(getenv,SW),3),0,$(+,$(getenv,SW),1));;dag1;$M="""$(nth,$(getenv,sw),30,-30,45,-45)""";;to;5,)$(nth,$(getenv,to),,,,,,dimedit;o;l;;$(getenv,dag1);setenv;to;3)^M

１.平行寸法を記入
２.次の起点を指定または右クリックで希望のスライド角度に切替
ＥＳＣボタンで終了です

chibi-tom様

ありがとうございます！
しかも、お二つも...！
お二つとも確認させていただきましたが、
スムーズに動きました！
とっても快適です。
ありがとうございました。