119.矩形 自動対角線作図 | AutoCADマクロ屋本舗
[119]
矩形 自動対角線作図 [複数選択可/ポリラインのみ対応] [2007/7/4 UP]
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),select;\copybase;non;0<0;p;;setenv;gm;$(getvar,gridmode);;to;1,;to;2;gridmode;0;erase;p;;pasteblock;non;0<0;explode;l;erase;p;r;l;,,,)$(nth,$(getenv,to),,,ucs;ob;l;id;non;0<0;explode;l;erase;l;;ucs;ob;l;erase;l;;;l;;;l;;line;non;@;non;0<0;;ucs;ob;l;lengthen;l;;setenv;to;3,,)$(nth,$(getenv,to),,,,;to;4;id;non;$(/,$(getvar,perimeter),2)<0;ucs;p;;p;;p;ucs;o;non;@;mirror;l;;non;10<0;non;-10<0;n;ucs;p;pasteblock;non;0<0;explode;l;copybase;non;@;p;r;l;;setenv;to;1,gridmode;$(getenv,gm))^M


LT2000/LT2004 R2005 動作確認済

●使い方
1.ポリライン四角形を選択 (※複数選択可)
 ※処理が終わるまで、他の操作をしないで下さい。

▲注意
1.ポリライン四角形以外を選択すると、マクロが途中で止まる可能性が有ります。
2.この自動マクロは、クリップボードへの"コピー/張り付け"を利用したマクロです。

■コメント
某掲示板で素晴らしい自動マクロを作成されていました。
この発想は素晴らしい!2007年の革命的なマクロです!!

ただし、上記スレのマクロには、多少不具合が有りましたので
参考にさせて頂きつつ、今回のマクロを私なりに一から作り直しました。

結構前に作り直してたんですが、なかなか発表するタイミングがなく・・・
お試し下さい(^^;


デザインの学校 これからはじめるAutoCADの本  AutoCAD/AutoCAD LT 2.../稲葉 幸行

¥2,499
Amazon.co.jp