AutoCADマクロ屋本舗 掲示板

AutoCAD　LT2021の下記マクロ、2点位置合わせで移動ですが
2点位置合わせで複写はできないでしょうか。

ALIGN

ご検討のほどお願い致します。

AutoCAD　LT2021の下記マクロ、2点位置合わせで移動ですが
2点位置合わせで複写はできないでしょうか。

ALIGN

ご検討のほどお願い致します。

藤　村 MAIL 2020/07/04 (Sat) 20:53:23 New

ALIGNコマンドの前にコピーをすればよいと思います


^C^C_select;$M=$(if,$(getvar,CMDACTIVE),\,)copy;p;;non;0<0;non;@;align;p;;

１．マクロ起動
２．オブジェクト選択
３．AlIGNコマンドのオブジェクト選択以降の工程

※、ALIGNコマンドの前にSELECTコマンドとCOPYコマンドで同じ位置にオブジェクトを複写しているだけです



自分はこちらのマクロを自作しています

^C^C_select;$M=$(if,$(getvar,CMDACTIVE),\,)copy;p;;non;0<0;non;@;rotate;p;;\r;@;\p;\'setenv;p1;$M="$(getvar,lastpoint)";\move;p;;@;$M="""$(getenv,p1)""";^Z

１．マクロ起動
２．オブジェクトの選択
３．移動するオブジェクトの回転基点を指定
４．移動するオブジェクトの２点目を指定
５．移動先の基点を指定
６．移動先の２点目を指定

尺度の変更には対応していませんが自分はこちらの方が使いやすいので参考までに

※、どちらも途中でEscキーでキャンセルするとコピーしたオブジェクトが残ってしまいますのでご注意ください

コピーしたオブジェクトが残ってしまいますが気になったので

マクロ修正しました

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),select;\copybase;第１のソース点を指定^X\'setenv;p1;$M="""$(getvar,lastpoint)""";p;;setenv;to;1,,)$(nth,$(getenv,to),,align;p;;$(getenv,p1);\\\;\pasteblock;non;$(getenv,p1);explode;l;setenv;to;2,)$(nth,$(getenv,to),,,-purge;b;*$(substr,$(getvar,insname),4);n;^Csetenv;to;0)^M

自作マクロ

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),select;\undo;be;rotate;p;;\'setenv;p1;$M="""$(getvar,lastpoint)""";r;non;@;\p;\'setenv;p2;$M="""""""$(getvar,lastpoint)""""""";\setenv;to;1,,)$(nth,$(getenv,to),,copybase;non;$(getenv,p1);p;;undo;e;u;pasteblock;non;$(getenv,p2);explode;l;setenv;to;2,)$(nth,$(getenv,to),,,-purge;b;*$(substr,$(getvar,insname),4);n;^Csetenv;to;0)^M

操作方法は変わっていません