AutoCADマクロ屋本舗 掲示板

すみません、誤って無題で投稿しました。
管理人様、申し訳ありません。
タイトルないとよくないので再投稿します。

下記の作業をマクロで組むことはできるでしょうか？

　1.ある任意のレイヤ（他のレイヤとは被らないもの）で描いた四角形Aがいくつか描かれているとする
　2.その四角形Aの左上の端点を選択
　3.窓選択開始　選択範囲は四角形Aの右下とする
　4.選択した範囲でズームアップ
　5.再作図
　6.Windowsメタファイルで出力
　7.上記の1〜6を四角形Aの分連続して実施する。

7番目の作業が無理であれば6
以上、宜しくお願いいたします。

※無題タイトルの方は削除致しました。

１のレイヤはマクロ上関係なさそうなので
２～７でマクロ作ってみました。

♪選択範囲連番メタファイル出力
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;no;保存番号を半角数値で記入^x\;to;1,;to;0;ray;non;^x1点目を指定：開始番号($(getenv,no))--変更(Rc)--^x\$M="""$(if,$(getvar,cmdactive),;setenv;to;2,id;)""",,)$(nth,$(getenv,to),,,;p1;$(getvar,lastpoint);rectang;non;@;non;\erase;l;;setenv;p2;$M="""$(getvar,lastpoint)""";;to;3,)$(nth,$(getenv,to),,,,zoom;w;$(getenv,p1);$(getenv,p2);regen;WMFOUT;$(getenv,no);non;$(getenv,p1);non;$(getenv,p2);;setenv;no;$(+,$(getenv,no),1);;to;1)^M

●使い方
１．保存番号を半角数値で記入　※以降連番で保存されます。
２．選択範囲の１点目を指定
　　※右クリックで１へ
３．選択範囲の２点目を指定
４．自動でメタファイル出力　→繰り返し２へ


お試しください。