数値連番配列複写 [2009/7/2 UP]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),;ar;複写回数^X\;ft;初期値^X\;co;1;;co;ｶｳﾝﾄ数^X\;sw;0;;to;1,offset;;^X^X単一の文字ｵﾌﾞｼﾞｪｸﾄを選択^X\;setenv;to;1;select;non;@;non;@;;move;p;;\non;@;setenv;to;2,,,,)$(nth,$(getenv,to),,,copy;p;;non;@;\erase;p;;setenv;p1;$M="""$(getvar,lastpoint)""";;to;3;move;l;;non;@;non;$(getvar,lastpoint),line;non;@;non;$(getenv,p1);;ucs;ob;l;lengthen;l;;erase;l;;setenv;to;4,,)$(nth,$(getenv,to),,,,,zoom;e;-array;l;;R;1;2;$(getvar,perimeter);zoom;e;change;l;;;;;;;$(+,$(-,$(getenv,ft),1),$(getenv,co));setenv;to;5,)$(nth,$(getenv,to),,,,,,$(if,$(=,$(getenv,ar),$(+,$(getenv,sw),1)),ucs;p,;sw;$(+,$(getenv,sw),1);;co;$(+,$(getenv,co),1);;to;4))^M |
LT2004 R2005/R2006 動作確認済
●使い方
１．複写回数を記入 [半角数字]
２．初期値を記入 [半角数字]
※複写時の最初の数値
３．カウント数を記入 [半角数字]
４．単一の文字オブジェクトを選択
５．基点を指定
６．複写位置を指定
▲注意
１．マクロが長い為、カスタマイズダイアログに貼付け出来ない場合は
メニューファイルに直接貼り付けて下さい。
２．連番コピー終了後は、ZOOM[ｵﾌﾞｼﾞｪｸﾄ範囲]のまま終了します。
３．マルチテキストには対応していません。
■コメント
数値を連番で配列複写するマクロです。
文字付加は対応していません。
なんとなく作ってみたマクロです(^^;
描きたい操作がすぐわかる!AutoCAD LT操作ハンドブック―2002/2004/2005/.../ソーテック社
￥2,310
Amazon.co.jp