AutoCADマクロ屋本舗 掲示板

こんにちは、寸法値のコピーがマクロでできるか教えてください。
同じ図面内に実寸とノットスケールの図面があり、実寸を仕上げた後、ノットスケール図面に寸法を書き換える
作業がありますが、枚数があると、なかなか煩わしいですよね。
そういったマクロって組めるのかな、また欲をかいて貼り付けまでを出来ないかなと。

（1.コピーする寸法値を選択、コピー値を貼り付けたい寸法線を選択、で完了みたいな）

またそれが出来ない場合、皆さんどうされてますかね？
そんな図面ばかり描いていて、CADの良いところ活かせてないよなと思い、マクロとか頑張ろうかなと思いました。
根本的に描き方変えるべき課題だとは分かっていますが、それでやってきた先輩方がいるので、図面構成的なものを
変更するのが難しいですよね。

よろしくお願いします。

使用CADは2008LTです。
すみません。

こんにちは。

雑談っぽい回答で申し訳ないですが、土曜日なので許してね。

「マクロとか頑張ろうかな」と思うのでしたら、マクロで何が出来るのかを知っておきましょう。
Excelとかのマクロと同じように考えているとガッカリします。

AutoCADのマクロで出来る事は、「キーボード入力の自動化」です。

やりたい作図・編集作業をアイコンやショートカットを使わずに、コマンドラインへのキー入力だけで行う事ができれば、
それはマクロ化出来るという事です。（マウスによる位置指定や物の選択はマクロ化できます）

簡単な作業をマクロ化してみましょう。

線を描く
^C^CLINE;
物を移動する
^C^CMOVE;
線を描いてそれを移動する
^C^CLINE;\\;MOVE;L;;
線を描いてそれを移動し、そこで回転する
^C^CLINE;\\;MOVE;L;;\\ROTATE;P;;NON;@;

ちなみに
「^C」はESCキー、「;」はEnterキー「\」はマウスでクリックの意味です。
キーボードでそのまま入力してみると、マクロと同じ事ができます。

つまり、マクロを作るには、実際にキーボードとマウス操作だけでその作業が出来るのかを確認することが、
大前提となるのです。
（魔法の様な事や、新しいコマンドを作る様な事は出来ないのです。）

では、ご希望の「寸法値を取得して、別の寸法に上書きする。」ですが、

「寸法値を取得」はキーボード操作だけで出来るでしょうか？
普通にやるなら、
　オブジェクトプロパティ管理に表示されている物をコピーするか、
　マルチテキストエディタで寸法値を表示させてコピーするか、
　目視で覚えるか。
でしょう。

これは、一般向きで、めちゃくちゃ高度な技を使えば、ご希望の事が実現できるのかもしれません。
正式な回答は管理人のとってぃさんから頂いて下さい。



【追記】1/23
上の文章で、一部 不適切な内容がありましたので、
削除いたしました。

申し訳ありません。

Lonさん、レス有難うございます。
マクロについて分かりやすく説明して頂きありがとうございます。

寸法値コピーしたい寸法は
長さ寸法のみですか？

条件次第ですが
できなくはないです。

とりあえず作ってみました。

♪寸法値を他寸法値にコピー
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;so;$(getvar,sortents);offset;;^xコピーする寸法値の寸法線を選択^x\;select;non;@;non;@;;sortents;127;copy;p;;non;@;non;@;explode;l;erase;p;r;non;@;;lengthen;dy;;;l;;erase;l;;setenv;to;1,,,)$(nth,$(getenv,to),,;to;2;;diml1;$(+,$(*,$(getvar,dimasz),2);sortents;$(getenv,so),$(getvar,perimeter)),,)$(nth,$(getenv,to),,,;to;0;offset;;^x寸法値を変更する寸法選択【コピー元変更(Rc)】^x\$M="""$(if,$(getvar,cmdactive),;setenv;to;2;select;non;@;non;@;;setenv;to;3,setenv;to;0)""",)$(nth,$(getenv,to),,,,;to;2;copy;p;;non;@;non;@;erase;p;;cmddia;0;dim1;newtext;$(rtos,$(+,$(*,$(getvar,dimasz),2),$(getvar,perimeter)),2,3);l;;dimoverride;dimclrt;1;;l;;cmddia;1)^M


●使い方
１．コピーする寸法値の寸法線を選択
２．寸法値を変更する寸法選択　⇒繰り返し２へ
　　※右クリックで１へ

▲注意
１．コピーする寸法値選択時は、寸法値下部の寸法線を選択して下さい。
　　※注意例は下記マクロの使い方参照
　　130.寸法値修正(切上･切下･元寸法)
　　http://ameblo.jp/totthi-macro/entry-11492846737.html

２．寸法の形状によっては動作しない可能性があります。

2013にて動作確認