四角形内均等配列複写 [2007/5/1 UP]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),;v1;縦^X\;v2;横^X\select;\copybase;\p;;id;\setenv;to;1,;p1;$(getvar,lastpoint);pasteblock;non;@;rectang;non;@;\ucs;ob;l;erase;p;l;r;p;;id;non;@;setenv;to;2,,,)$(nth,$(getenv,to),,,;x1;$(*,$(index,1,$(getvar,lastpoint)),$(if,$(>,$(index,1,$(getvar,lastpoint)),0),1,-1));;y1;$(*,$(index,0,$(getvar,lastpoint)),$(if,$(>,$(index,0,$(getvar,lastpoint)),0),1,-1));;to;3,,)$(nth,$(getenv,to),,,,;sw;$(if,$(>,$(index,1,$(getvar,lastpoint)),0),0,1;ucs;x;180);explode;L;move;p;;non;0<0;non;$(/,$(/,$(getenv,y1),$(getenv,v1)),2)","$(/,$(/,$(getenv,x1),$(getenv,v2)),2);setenv;to;4,)$(nth,$(getenv,to),,,,,-array;p;;r;$(getenv,v2);$(getenv,v1);$(/,$(getenv,x1),$(getenv,v2));$(/,$(getenv,y1),$(getenv,v1));ucs;p;$(if,$(getenv,sw),;p;,)id;)^M |
R2010
LT2000/LT2004/LT2013/LT2014/LT2016 動作確認済
●使い方
１．配列複写の「縦・横」の個数を記入
２．配列複写するオブジェクトを選択
３．コピーの基点を指定
４．四角形の端点を指定
５．四角形の対角となる点を指定
※操作参考動画
▲注意
１．マクロが長い為、カスタマイズダイアログに直接貼付け出来ない場合は
メニューファイルに直接貼り付けて下さい。
２．四角形の指定する２点を、画面上に表示させた状態で行なって下さい。
■コメント
マクロ屋掲示板にて、作成依頼が有り作りました。
上記マクロは、初歩的に作ったマクロです。
参考程度にお試し下さい。
使える! AutoCAD & LT カスタマイズブック 使えるカスタムプログラム100、使える.../ソフトバンククリエイティブ
￥3,360
Amazon.co.jp