移動(ｵﾌﾟｼｮﾝ付 UNDO記憶ﾊﾞｰｼﾞｮﾝ) [2007.3.26修正]
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),select;$M="""$(if,$(getvar,CMDACTIVE),\,)"""move;p;;\non;@;undo;be;;m;setenv;to;1,;p1;$(getvar,lastpoint);move;p;;@;-Option(Rc)-^X\setenv;to;2,,,,,,)$(nth,$(getenv,to),,,;to;$(if,$(eq,$(getenv,p1),$(getvar,lastpoint)),3,5),ucs;n;non;@;move;p;;non;$(getvar,lastpoint);non;0<0;ucs;p;dist;^XEdit(L)/Select(R)^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;4,id;)""",,,,)$(nth,$(getenv,to),,,,,undo;m;dist;^XRotate(L)/Mirror(R)^X\$M="""$(if,$(getvar,cmdactive),;rotate;p;;non;@;\setenv;to;5,setenv;to;7)""",,,)$(nth,$(getenv,to),,,,,,offset;;^Xｵﾌﾞｼﾞｪｸﾄを選択-Option(Rc)-^X\$M="""$(if,$(getvar,cmdactive),;select;@;\move;p;;\@;undo;m;setenv;to;1,setenv;to;6)""",,)$(nth,$(getenv,to),,,,,,,dist;^XEdit(L)/UNDO(R)^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;4,undo;b;setenv;to;5)""",mirror;p;;non;@;\'dist;^XERASE?-Yes(L)/No(R)-^X\$M="""$(if,$(getvar,cmdactive),;y,n)""";setenv;to;5)^M |
LT2000/LT2004 動作確認済
●使い方
１．オブジェクト選択
２．基点を指定
３．移動位置指定 ※繰返し１へ
（ここまでは通常の移動！終了はESC！）
※移動中に右クリックで、オプションへ!!
～オプション～
・左クリックで編集モードへ
・右クリックでUNDO
※右クリックする度に、開始時点まで順番に元に戻します
【編集モード】
・左クリックで回転
１）回転角度を指定
・右クリックでミラー
１）対称軸の２点目を指定
２）左クリックで、元のオブジェクトを削除（Yes選択）
右クリックで、元のオブジェクトを削除しない（No選択）
※編集モード終了後は、移動(使い方１へ)となります
▲注意
１．移動基点と、移動位置が同じ場合、正常な動作になりません。
必ず別の位置へ移動してください。
２．途中キャンセルでも、システム変数に影響はありません。
３．マクロが長い為、カスタマイズダイアログに張り付け出来ない場合は
メニューファイルに直接貼り付けて下さい。
■コメント
連続コピー(オプション付)をUNDO記憶バージョンにしたので
ついでに移動マクロも修正!!
by totthi
AutoCAD機械製図100題トレーニング/斎藤 美佳
￥3,360
Amazon.co.jp
↓旧バージョン↓
移動(ｵﾌﾟｼｮﾝ付 簡易UNDOﾊﾞｰｼﾞｮﾝ) [2005.10.14修正]
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),select;$M="""$(if,$(getvar,CMDACTIVE),\,)"""move;p;;\@;setenv;to;1,;p1;$(getvar,lastpoint);move;p;;@;-Option(Enter)-^X\setenv;to;2,,,,,,)$(nth,$(getenv,to),,,;to;$(if,$(eq,$(getenv,p1),$(getvar,lastpoint)),3,5),ucs;n;non;@;move;p;;non;$(getvar,lastpoint);non;0","0;ucs;p;dist;^XEdit(L)/Select(R)^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;4,id;)""",,,,)$(nth,$(getenv,to),,,,,dist;^XRotate(L)/Mirror(R)^X\$M="""$(if,$(getvar,cmdactive),;rotate;p;;non;@;\id;,setenv;to;7)""",,,)$(nth,$(getenv,to),,,,,,offset;;^Xｵﾌﾞｼﾞｪｸﾄを選択：-Option(Enter)-^X\$M="""$(if,$(getvar,cmdactive),;select;@;\move;p;;\@;setenv;to;1,setenv;to;6)""",,)$(nth,$(getenv,to),,,,,,,dist;^XEdit(L)/UNDO(R)^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;4,move;p;;@;$(getenv,p1))""",mirror;p;;non;@;\'dist;^XERASE?-Yes(L)/No(R)-^X\$M="""$(if,$(getvar,cmdactive),;y,n)""")^M |
LT2000 動作確認済
●使い方
１．オブジェクト選択
２．基点 または 移動距離を指定
３．目的点を指定 または <基点を移動距離として使用>:
---ここまでは普通のMOVE---
ここで右クリックするとオプションモードへ!!
４．オプションモード
・左クリックで編集モードへ!! → ５へ
・右クリックでオブジェクト選択し直し → １へ
５．編集モード
・左クリックで回転!!
１）回転角度を指定
・右クリックでミラー!!
１）対称軸の２点目を指定
２）左クリックで、元のオブジェクトを削除（Yes選択）
右クリックで、元のオブジェクトを削除しない（No選択）
※編集モード終了後及び移動完了は、使い方１へ戻ります
▲注意
１．移動基点と、移動位置が同じ場合、正常な動作になりません。
必ず別の位置へ移動してください。
２．途中キャンセルでも、システム変数に影響はありません。
３．マクロ長の為、メニューファイルに直接コピペして下さい。
■コメント
連続コピー(オプション付)をUNDO記憶バージョンにしたので
ついでに移動マクロも修正!!
by totthi
AutoCAD機械製図100題トレーニング/斎藤 美佳
￥3,360
Amazon.co.jp
↓旧バージョン↓
移動 回転/位置修正
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),select;$M="""$(if,$(getvar,CMDACTIVE),\,)"""move;p;;\@;setenv;to;1,;p1;$(getvar,lastpoint);move;p;;@;---Option(Enter)---^X\setenv;to;2,,,,,)$(nth,$(getenv,to),,,;to;$(if,$(eq,$(getenv,p1),$(getvar,lastpoint)),3,5),,,,)$(nth,$(getenv,to),,,,ucs;n;non;@;move;p;;non;$(getvar,lastpoint);non;0","0;ucs;p;dist;^X--Rotate(L-click)/Select(R-click)--^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;4,setenv;to;0)""",,,)$(nth,$(getenv,to),,,,,rotate;p;;@;\setenv;to;0,,)$(nth,$(getenv,to),,,,,,offset;;^Xｵﾌﾞｼﾞｪｸﾄを選択：--Option(Enter)--^X\$M="""$(if,$(getvar,cmdactive),;select;@;\move;p;;\@;setenv;to;1,setenv;to;6)""",)$(nth,$(getenv,to),,,,,,,dist;^X--Rotate(L-click)/UNDO(R-click)--^X\$M="""$(if,$(getvar,cmdactive),;rotate;P;;@;\setenv;to;0,move;p;;@;$(getenv,p1);setenv;to;0)""")^M |
LT2000 動作確認済
●使い方
１．オブジェクト選択
２．基点 または 移動距離を指定
３．目的点を指定 または <基点を移動距離として使用>:
<ここまでは普通のMOVE>
ここで右クリックすると、
左クリックで回転/右クリックでオブジェクト選択し直し→１．へ
又、移動完了後、
オブジェクト選択→１．へ
あるいは、右クリックすると、
左クリックで回転/右クリックで元の位置に戻す
～繰返し～
▲注意
１．移動基点と、移動位置が同じ場合、正常な動作になりません。
必ず別の位置へ移動してください。
２．途中キャンセルでも、システム変数に影響はありません。
３．マクロ長の為、メニューファイルに直接コピペして下さい。
■コメント
連続コピー(オプション付)を移動バージョンにしたマクロ！
かずぼ～先生のアイディアを、こちらでも使わせてもらいました。
これもお勧め♪
by totthi
AutoCAD機械製図100題トレーニング/斎藤 美佳
￥3,360
Amazon.co.jp