エンター連続コピー
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),select;\id;\setenv;p1;$M="""$(getvar,lastpoint)""";;to;1,move;p;;non;$(getenv,p1);\setenv;p2;$M="""$(getvar,lastpoint)""";userr5;non;@;non;$(getenv,p1);setenv;to;2,,,)$(nth,$(getenv,to),,,copy;p;;non;@;non;$(getenv,p1);setenv;to;3,,)$(nth,$(getenv,to),,,,offsetdist;^X変更(Lc)/コピー(Rc)^X\$m="""$(if,$(getvar,cmdactive),;setenv;p1;$(getenv,p2);;to;1;list;;,)"""setenv;to;4,)$(nth,$(getenv,to),,,,,ucs;3;non;$(getenv,p2);non;$(getenv,p1);;copy;p;;non;0<0;;move;p;;non;0",0;non;-$(getvar,userr5),0";ucs;p;id;non;@;setenv;p2;$M="""$(getvar,lastpoint)""";;to;3)^M |
2004/2013/2015 動作確認済
●使い方
１．オブジェクトを選択
２．基点を指定
３．移動距離を指定
４．右クリックまたはエンターで同方向の同距離にコピー ⇒繰り返し４へ
※左クリックで３へ
▲注意
１．マクロが長い為、2005以下のバージョンでは、
メニューファイルに直接貼り付けて下さい。
■更新履歴
・2017.4.27 UP
AutoCAD LTデータ徹底活用術―VBA・VB技術を使ってLTを便利にするヒント集2000.../近藤 美紀江
￥価格不明
Amazon.co.jp