ピッチ指定２点間配列複写 2015 [2015.5.12追加]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),;pc1;配列ピッチ^X\select;\copybase;non;0<0;p;;setenv;to;1,,,)$(nth,$(getenv,to),,line;\\;erase;p;;lengthen;L;;;;select;l;;pasteblock;non;0<0;copy;p;;non;@;non;@;erase;p;;ucs;ob;l;erase;l;;explode;L;setenv;to;2,,)$(nth,$(getenv,to),,,;to;$(if,$(>,$(getenv,pc1),$(getvar,perimeter)),0;ucs;p,3),)$(nth,$(getenv,to),,,,-array;p;;r;1;$(+,$(fix,$(/,$(getvar,perimeter),$(getenv,pc1))),1);$(getenv,pc1);ucs;p)^M |
LT2015 動作確認済
ピッチ指定２点間配列複写
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),;pc1;配列ピッチ^X\select;\copybase;non;0<0;p;;setenv;to;1,line;\\;erase;p;;lengthen;L;;select;l;;pasteblock;non;0<0;copy;p;;non;@;non;@;erase;p;;ucs;ob;l;erase;l;;explode;L;setenv;to;2,,)$(nth,$(getenv,to),,,;to;$(if,$(>,$(getenv,pc1),$(getvar,perimeter)),0;ucs;p,3),-array;p;;r;1;$(+,$(fix,$(/,$(getvar,perimeter),$(getenv,pc1))),1);$(getenv,pc1);ucs;p)^M |
LT2000 動作確認済
●使い方
１．配列ピッチを記入
２．オブジェクト選択
３．１点目を指定
４．２点目を指定
▲注意
１．２点間の距離 ＜ 配列ピッチ の場合、作図されません。
■コメント
某掲示板で作成依頼を受けたマクロ♪
２点間内で、配列ピッチの数値で配列複写するマクロです。
AutoCAD 2012/AutoCAD LT 2012 公式トレーニングガイド/オートデスク株式会社
￥3,990
Amazon.co.jp