数値連番複写
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),offset;;\;select;non;@;non;@;;move;p;;\non;@;setenv;p1;$M="""$(getvar,lastpoint)""";move;p;;non;@;\setenv;p2;$M="""""""$(getvar,lastpoint)""""""";;to;1,,,,)$(nth,$(getenv,to),,copy;p;;non;@;non;$(getenv,p1);erase;p;;setenv;t0;選択した数値記入^x\;co;カウント値^x\;cp;複写数^x\;to;2;;t1;$M="""$(getenv,t0)""",,,)$(nth,$(getenv,to),,,;to;3;;sw;1;line;non;@;non;$(getenv,p2);;lengthen;l;;ucs;ob;l;erase;l;;select;l;;setenv;l0;$M="""$(getvar,perimeter)""";id;non;0<0,,)$(nth,$(getenv,to),,,,;to;4;copy;p;;non;0<0;non;$(getenv,l0)<0;change;l;;;;;;;$(+,$(getenv,t1),1);setenv;sw;$(+,$(getenv,sw),1),)$(nth,$(getenv,to),,,,,;t1;$(+,$(getenv,t1),$(getenv,co));;to;$(if,$(=,$(getenv,sw),$(getenv,cp)),0;ucs;p,3))^M |
LT2013 動作確認済
●使い方
１．文字オブジェクトを選択
２．基点を指定
３．移動距離を指定
４．選択した数値を記入
５．カウント値を記入
６．複写数を記入 ⇒ 繰返し１へ
▲注意
１．使用前の注意事項を読んでご利用ください。
２．文字オブジェクト以外は選択しないでください。
■更新履歴
・2015/7/14 UP
はじめて学ぶ AutoCAD LT 2016 作図･操作ガイド/ソーテック社
￥2,570
Amazon.co.jp