連続コピー文字編集 Ver.2015 [2015.8.31追加]
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),offset;;^X注釈オブジェクトを選択^X\;select;non;@;non;@;;move;p;;\non;@;setenv;to;1,;p1;$(getvar,lastpoint);move;p;;non;@;---Option(Enter)---^X\setenv;p2;$M="""$(getvar,lastpoint)""";;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;id;non;@;ray;^X---Rotate(L-Click)/Select(R-Click)---^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;4,id;)""",,)$(nth,$(getenv,to),,,,,rotate;p;;non;$(getenv,p2);\setenv;to;1,move;p;;non;@;$(getenv,p1);copy;p;;non;@;$(getenv,p2);textedit;L;select;L;;setenv;to;1)^M |
LT2013 R2015 動作確認済
連続コピー文字編集(オプション付) [2008.11.3修正]
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),offset;;^X注釈オブジェクトを選択^X\;select;non;@;non;@;;move;p;;\non;@;setenv;to;1,;p1;$(getvar,lastpoint);move;p;;non;@;---Option(Enter)---^X\setenv;p2;$M="""$(getvar,lastpoint)""";;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;;non;@;\setenv;to;1,)$(nth,$(getenv,to),,,,,,move;p;;non;@;$(getenv,p1);copy;p;;non;@;$(getenv,p2);ddedit;L;;select;L;;setenv;to;1)^M |
LT2004/LT2006 R2005/R2006 動作確認済
●使い方
１．文字オブジェクト選択
２．基点を指定
３．コピーする位置を指定
４．文字編集 →３へ
又は、右クリックで編集モードへ →６へ
６．編集モード
・左クリックで回転
１）回転角度を指定 →１へ
・右クリックでオブジェクト選択し直し →１へ
または、もぉ１度右クリックで、UNDO（編集した文字を削除してるだけ） →１へ
▲注意
１．指定した基点位置と同じ場所にコピーすると、正常に動作しません。
２．マクロが長い為、カスタマイズダイアログに貼り付け出来ない場合は
メニューファイルに直接貼り付けて下さい。
■コメント
本掲示板にて、2006で不具合が有るとの報告があり修正しました。
copyコマンドの仕様変更が原因でした。
オプション"連続(M)"が、バージョン2005から無くなっていたのは知っていたのですが
2005ではマクロ上問題が無く、気にしていなかったです(^^;
2006では変な場所にコピーされてしまうので、moveコマンドにて
対応＆修正しました。
by totthi
14コマンドでスラスラ書けるAutoCADLT (エクスナレッジムック いちばんやさしいCAD.../阿部 秀之
￥2,520
Amazon.co.jp
↓前バージョン↓
連続コピー文字編集(オプション付) [2006.1.17修正]
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),offset;;^X注釈ｵﾌﾞｼﾞｪｸﾄを選択^X\;select;@;;$M="""$(if,$(getvar,cmdactive),@;L;;setenv;to;0,copy;p;;m;\;setenv;to;1)""",;p1;$(getvar,lastpoint);move;p;;non;@;---Option(Enter)---^X\setenv;p2;$M="""$(getvar,lastpoint)""";;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;;non;@;\setenv;to;1,)$(nth,$(getenv,to),,,,,,move;p;;non;@;$(getenv,p1);copy;p;;non;@;$(getenv,p2);ddedit;L;;select;L;;setenv;to;1)^M |
LT2000 動作確認済
●使い方
１．文字オブジェクト選択（ミスピック対応）
２．基点を指定
３．コピーする位置を指定
４．文字編集 →３へ
又は、右クリックで編集モードへ →６へ
６．編集モード
・左クリックで回転
１）回転角度を指定 →１へ
・右クリックでオブジェクト選択し直し →１へ
または、もぉ１度右クリックで、UNDO（編集した文字を削除してるだけ） →１へ
▲注意
１．指定した基点位置と同じ場所にコピーすると、正常に動作しません。
２．マクロが長い為、メニューファイルに直接コピペして下さい。
■コメント
前バージョンに、UNDO機能追加!!
実際は、削除してるだけだが･･･(--;
by totthi
14コマンドでスラスラ書けるAutoCADLT (エクスナレッジムック いちばんやさしいCAD.../阿部 秀之
￥2,520
Amazon.co.jp
↓旧バージョン↓
連続コピー文字編集(オプション付)
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),offset;;^X注釈ｵﾌﾞｼﾞｪｸﾄを選択^X\;select;@;;$M="""$(if,$(getvar,cmdactive),@;L;;setenv;to;0,copy;p;;m;\;setenv;to;1)""",;p1;$(getvar,lastpoint);move;p;;non;@;---Option(Enter)---^X\setenv;p2;$M="""$(getvar,lastpoint)""";;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;;non;@;\setenv;to;1,)$(nth,$(getenv,to),,,,,,move;p;;non;@;$(getenv,p1);copy;p;;non;@;$(getenv,p2);ddedit;L;;select;L;;setenv;to;1)^M |
LT2000 動作確認済
●使い方
１．文字オブジェクト選択（ミスピック対応）
２．基点を指定
３．コピーする位置を指定
４．文字編集
５．コピーする位置を指定
（又は右クリックOption）
・左クリックで回転
・右クリックでオブジェクト選択し直し
---５．を繰返し---
▲注意
指定した基点位置と同じ場所にコピーすると、正常に動作しません。
■コメント
マクロ作ってみたら、以外と使用頻度が高いマクロです。
結構便利♪
by totthi
14コマンドでスラスラ書けるAutoCADLT (エクスナレッジムック いちばんやさしいCAD.../阿部 秀之
￥2,520
Amazon.co.jp