AutoCADマクロ屋本舗 掲示板

初心者で知識不足で申し訳ないのですがAutoCad2020の使用ですが複写をしたものを回転移動できるやり方を教えてくださいませ。

マクロ集の115.コピー/移動（回転付）でできると思います

ただしバージョン違いの為、distコマンドをrayコマンド等に変更しないと使えないかも

https://ameblo.jp/totthi-macro/entry-11419723121.html

単純に複写して同じ基点で回転なら
こんな感じでできるかなと思います

^C^C_select;$M=$(if,$(getvar,cmdactive),\,)copybase;\p;;pasteblock;non;@;move;l;;non;@;\explode;l;rotate;p;;non;@;\^Z

オブジェクト選択後マクロ起動でもマクロ起動後オブジェクト選択でもＯＫです

繰り返したい場合は、先頭に『*』を追加し最後の『^Z』を削除してください
繰り返しにした場合はEscキーで終了になります

追記　複写移動中にEscキー等でキャンセルすると元の位置にブロックにしたものがダブってしまうので注意してください

マクロ115やってみましたが画面にツールバーが沢山出現してしまいました。
操作は下記の流れでした。
又、提案のdistをrayとするやり方が申し訳ないのですが勉強不足のため分かりません。
お忙しいところ恐縮ですがよろしくお願いします。


～～～～～～～～～～～～～～～～～～～～～～～～～～～～～
TOOLBAR
ツールバー名を入力 または [すべて(ALL)]: ALL
オプションを入力 [表示(S)/非表示(H)]: S
コマンド:
コマンド:
コマンド: setenv
そのようなコマンド "SETENV" はありません。ヘルプを表示するには F1 キーを押してください。
コマンド: to
TOOLBAR ツールバー名を入力 または [すべて(ALL)]: 0
ツールバーが見つかりません。
ツールバー名を入力 または [すべて(ALL)] <0>:

ごめんなさい！
基点そのままで複写かと勘違いしていました。
教えて頂いた2つめの方で複写回転移動できました。

ずっと困っていたのでホントに助かりました！
ありがとうございました。

途中キャンセルしてもダブらないように修正しました
ついでに自己満足で挿入したブロックの名前も削除するようにしました

*^C^C_select;$M=$(if,$(getvar,cmdactive),\,)copybase;\p;;pasteblock;\explode;l;-purge;b;*$M="$(substr,$(getvar,insname),4)";n;rotate;p;;non;@;\

Escキーで終了になります

※、16:03に修正しています

ありがとうございます。
さらにお願いなのですがすみません、、
教えて頂いたマクロに&#10035;等を追加するとオブジェクト選択からの操作が連続して行えるようになりましたが、同一オブジェクトを連続して複写回転をする事はできますか&#10067;

文字化けなのか、すみません。
訂正させて頂きます。

～教えて頂いたマクロに”＊（アスタリスク）”等を追加～

です。
よろしくお願いします。

R版のようなので
トップページの
AutoCADのマクロ に関する質問の前に 【 マクロ使用前の注意事項 】 を、必ずお読みください。
https://ameblo.jp/totthi-macro/entry-10895232361.html

上記ページ参照して、Lispで"SETENV/GETENV"を使用できる環境にした上で、マクロを御利用下さい。
対応させておけば今後、こちらのいろいろなマクロ集が使用できるようになりますよ

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),select;\copybase;\p;;setenv;to;1,pasteblock;\explode;l;-purge;b;*$M="""$(substr,$(getvar,insname),4)""";n;rotate;p;;non;@;\setenv;to;1)^M

Escキーで終了になります

※、15:57に修正しました

色々ありがとうございました。