AutoCADマクロ屋本舗 掲示板

autocad2016にグレードアップすると、文字枠内中心移動/コピーが作動しません。
*^C^C$M=setenv;t;0;$(nth,$(getenv,t),;cm;0;;t;1,offset;;^X文字選択--$(if,$(getenv,cm),Copy,Move)--^X\$m="""$(if,$(getvar,cmdactive),;setenv;t;1;select;non;@;non;@;;copy;p;;non;@;non;@;erase;p;;setenv;t;2,setenv;cm;$(if,$(getenv,cm),0,1);;t;1)""",,,,,)$(nth,$(getenv,t),,,;t;3;undo;be;snap;of;osmode;0;select;l;;ucs;e;l;sortents;127;line;@;@0.01<0;;extend;p;;f;@0.01<S;@0.02<N;;f;@0.01<S;@0.02<N;;,,,,)$(nth,$(getenv,t),,,,;t;4;;p;0;line;mid;@;@0","0.01;;extend;p;;f;@0.01<E;@0.02<W;;f;@0.01<E;@0.02<W;;;lengthen;l;;ucs;e;l;erase;l;;;l;,,,)$(nth,$(getenv,t),,,,,ucs;o;non;$(/,$(getvar,perimeter),2)<0;id;non;0<0;ucs;p;;p;;p;copybase;non;@;l;;undo;e;u;$(if,$(getenv,cm),,erase;l;;)pasteclip;non;\erase;l;;setenv;t;5,,)$(nth,$(getenv,t),,,,,,;t;6;undo;be;line;non;@;non;@0.01<$(getenv,p);;edgemode;0;select;c;non;$(getvar,vsmin);non;$(getvar,vsmax);,)$(nth,$(getenv,t),,,,,,,extend;p;;@;@;;id;mid;@;undo;e;u;$(if,$(getenv,p),pasteclip;non;@;setenv;t;1,setenv;p;90;;t;5))^M

何かよいアドバイスがありましたら、よろしくお願いいたします。

lengthenコマンドで止まってますか？

ちょっと修正してみましたので、お試しください。


♪文字枠内中心移動/コピー 2016　試作
*^C^C$M=setenv;t;0;$(nth,$(getenv,t),;cm;0;;t;1,offset;;^X文字選択--$(if,$(getenv,cm),Copy,Move)--^X\$m="""$(if,$(getvar,cmdactive),;setenv;t;1;select;non;@;non;@;;copy;p;;non;@;non;@;erase;p;;setenv;t;2,setenv;cm;$(if,$(getenv,cm),0,1);;t;1)""",,,,,)$(nth,$(getenv,t),,,;t;3;undo;be;snap;of;osmode;0;select;l;;ucs;e;l;sortents;127;line;@;@0.01<0;;extend;p;;f;@0.01<S;@0.02<N;;f;@0.01<S;@0.02<N;;,,,,)$(nth,$(getenv,t),,,,;t;4;;p;0;line;mid;@;@0","0.01;;extend;p;;f;@0.01<E;@0.02<W;;f;@0.01<E;@0.02<W;;;lengthen;dy;;;l;;;ucs;e;l;erase;l;;;l;,,,)$(nth,$(getenv,t),,,,,ucs;o;non;$(/,$(getvar,perimeter),2)<0;id;non;0<0;ucs;p;;p;;p;copybase;non;@;l;;undo;e;u;$(if,$(getenv,cm),,erase;l;;)pasteclip;non;\erase;l;;setenv;t;5,,)$(nth,$(getenv,t),,,,,,;t;6;undo;be;line;non;@;non;@0.01<$(getenv,p);;edgemode;0;select;c;non;$(getvar,vsmin);non;$(getvar,vsmax);,)$(nth,$(getenv,t),,,,,,,extend;p;;@;@;;id;mid;@;undo;e;u;$(if,$(getenv,p),pasteclip;non;@;setenv;t;1,setenv;p;90;;t;5))^M