複写数指定 配列複写 [2010.12.24修正]
*^C^C$m=setenv;to;0;$(nth,$(getenv,to),select;$M="""$(if,$(getvar,cmdactive),\,)"""setenv;co;複写数^X\move;p;;^X基点を指定^X\non;@;undo;be;setenv;to;1,,,,)$(nth,$(getenv,to),,;p1;$(getvar,lastpoint);move;p;;non;@;^X$m=複写方向を指定:または 間隔を記入^X\setenv;to;2,,,)$(nth,$(getenv,to),,,;p2;$(getvar,lastpoint);;to;3;copybase;non;@;p;;line;non;$(getenv,p1);non;$(getvar,lastpoint);;lengthen;l;,,)$(nth,$(getenv,to),,,,;pe;$(getvar,perimeter);;to;4;undo;e;u;pasteblock;non;$(getenv,p2);line;non;$(getenv,p1);non;$(getenv,p2);;ucs;ob;l;erase;l;,explode;l;-array;p;;r;1;$(getenv,co);$(getenv,pe);ucs;p)^M |
R2005/R2006/R2010 動作確認済
●使い方
1.オブジェクト選択
2.複写の回数を記入
3・基点を指定
4.コピーする方向を指定
▲注意
特になし
■コメント
2010に対応させてみました。
注意点は特にありませんが
クリップボードへのコピー/貼り付けを使っています。
たぶん、2005以前のバージョンでも動作すると思います。
2005以前のバージョンで動作しない場合は
↓以下の旧バージョンのマクロをご利用下さい。
by totthi
AutoCAD LT 実践テクニック ~現場の「困った」にこたえる解決レポート~/大田 正子
¥3,024
Amazon.co.jp
↓↓↓前バージョン↓↓↓
複写数指定 配列複写
*^C^C$m=setenv;to;0;$(nth,$(getenv,to),select;$M="""$(if,$(getvar,cmdactive),\,)"""setenv;複写数;\setenv;to;1,,)$(nth,$(getenv,to),,move;p;;^X基点を指定^X\^X$m=複写方向を指定:または 間隔を記入^X\dist;non;@;non;"""$(getvar,lastpoint);setenv;p1;$(getvar,lastpoint)""";;to;2,)$(nth,$(getenv,to),,,move;p;;non;@;non;$(getenv,p1);ucs;3;non;$(getenv,p1);non;$(getvar,lastpoint);;-array;p;;r;1;$(+,$(getenv,複写数),1);$(getvar,distance);ucs;p)^M |
LT2000 動作確認済
●使い方
1.オブジェクト選択
2.複写の回数選択
3・基点を指定
4.コピーする方向を指定
▲注意
う~ん・・・無いです。
■コメント
マクロ初心者の頃に、某掲示板にて
かずぼ~大先生に頼んで作ってもらった作品です。
かなり便利♪感謝です♪
こ~ゆ~マクロが、標準で付いてて欲しいものです・・・
by totthi
AutoCAD LT 実践テクニック ~現場の「困った」にこたえる解決レポート~/大田 正子
¥3,024
Amazon.co.jp