AutoCADマクロ屋本舗 掲示板

AutoCAD LT 2010を使っています。

もし通常にあるやつだったらすいません。
等間隔に複写をしたいのですが、

線や○を選択
↓
1点目(ここから) 2点目(ここまで) 距離を選択
↓
(その距離を何分割にしたいのか。)五分割なら[/5] 入力
↓
等間隔で、5つ同じものを配置


という感じのものってありますか？？

作ってみます。
しばらくお待ちください。

ありがとうございます！
よろしくお願いいたしますm(__)m

作ってみました。
お試しください。


♪分割数指定 配列複写
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),select;$M="""$(if,$(getvar,cmdactive),\,)"""ucs;w;copybase;\p;;setenv;to;1,,)$(nth,$(getenv,to),,;bk;分割数記入^x\id;\setenv;p1;$M="""$(getvar,lastpoint)""";line;non;@;\;lengthen;l;;ucs;ob;l;erase;l;;setenv;to;2,)$(nth,$(getenv,to),,,ucs;w;pasteblock;non;$(getenv,p1);explode;l;ucs;p;-array;p;;r;1;$(+,$(getenv,bk),1);$(/,$(getvar,perimeter),$(getenv,bk));ucs;p;;p)^M

●使い方
１．オブジェクト選択
２．基点を指定
３．分割数記入
４．配列複写の１点目を指定
５．配列複写の２点目を指定　⇒　繰返し１へ

２０１３にて動作確認

できました！！！！
ありがとうございます(^^)!!

さらに、できることならもう少しお願いしたいのですが。。。

1.オブジェクト選択 → 2.オブジェクトの基点 → 挿入基点を選択

にできますか？？


それか、今のまま使うと、複写されたオブジェクトと
基点にあるオブジェクトが重なってしまうので
5つに分割の場合4つだけ複写したいんですよね。
伝えるの下手くそすぎてすいません(*_*)

添付画像のように
配列複写する１点目に
常にオブジェクトがある状態なのでしょうか？


であれば

こんな感じでしょうか。

♪分割数指定 配列複写　改
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),select;$M="""$(if,$(getvar,cmdactive),\,)"""setenv;bk;分割数記入^x\ucs;w;copybase;\p;;setenv;to;1;ucs;p,,)$(nth,$(getenv,to),,;p1;$M="""$(getvar,lastpoint)""";line;non;@;\;lengthen;l;;ucs;ob;l;erase;l;;setenv;to;2,)$(nth,$(getenv,to),,,ucs;w;pasteblock;non;$(getenv,p1);explode;l;ucs;p;move;p;;non;@;non;@$(/,$(getvar,perimeter),$(getenv,bk))<0;-array;p;;r;1;$(getenv,bk);$(/,$(getvar,perimeter),$(getenv,bk));ucs;p;;p)^M


●使い方
１．オブジェクト選択
２．分割数記入
３．基点を指定
４．配列複写の２点目を指定　⇒　繰返し１へ

２０１３にて動作確認

できました！！！！！！！！！

説明が下手くそですいませんでした。

ありがとうございます＼(^o^)／!!!