AutoCADマクロ屋本舗 掲示板

AutoCAD2011で動いていた下記マクロについて、2017でうまく動かなくなりました。
よろしければ修正点をご教示いただけませんでしょうか？

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;pc1;配列数(鉄筋本数-1)^X\select;\copybase;non;0<0;p;;setenv;to;1,line;\\;erase;p;;lengthen;L;;select;l;;pasteblock;non;0<0;copy;p;;non;@;non;@;erase;p;;ucs;ob;l;erase;l;;explode;L;setenv;to;2,,)$(nth,$(getenv,to),,,-array;p;;r;1;$(+,$(getenv,pc1),1);$(/,$(getvar,perimeter),$(getenv,pc1));ucs;p)^M

動作しない詳細が書かれてないので分からないですが
たぶんこれかと。

●AutoCAD R/LT 2015以降の注意点
https://ameblo.jp/totthi-macro/entry-12220279344.html

こちら↑参照願います。


*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;pc1;配列数(鉄筋本数-1)^X\select;\copybase;non;0<0;p;;setenv;to;1,line;\\;erase;p;;lengthen;dy;;;l;;select;l;;pasteblock;non;0<0;copy;p;;non;@;non;@;erase;p;;ucs;ob;l;erase;l;;explode;L;setenv;to;2,,)$(nth,$(getenv,to),,,-array;p;;r;1;$(+,$(getenv,pc1),1);$(/,$(getvar,perimeter),$(getenv,pc1));ucs;p)^M

返信ありがとうございました。
変更してみたのですが、やはりうまくいかないです。選択した元のオブジェクトが消えてしまいました。

コマンドラインをお送りします。
コマンド: setenv
変数名を入力: to
値 <1>: 0
コマンド: line
1 点目を指定:
次の点を指定 または [元に戻す(U)]:
次の点を指定 または [元に戻す(U)]:
コマンド: erase
オブジェクトを選択: p
認識された数: 1
オブジェクトを選択:
コマンド: lengthen
計測するオブジェクトを選択 または [増減(DE)/比率(P)/全体(T)/ダイナミック(DY)] <ダイナミック(DY)>: dy
変更するオブジェクトを選択 または [元に戻す(U)]:
コマンド:
LENGTHEN
計測するオブジェクトを選択 または [増減(DE)/比率(P)/全体(T)/ダイナミック(DY)] <ダイナミック(DY)>: l
現在の長さ: 6260.0000
計測するオブジェクトを選択 または [増減(DE)/比率(P)/全体(T)/ダイナミック(DY)] <ダイナミック(DY)>:
変更するオブジェクトを選択 または [元に戻す(U)]: select
*選択無効*
点を指定 または フェンス(F)/元に戻す(U)]:

●AutoCAD R/LT 2015以降の注意点
https://ameblo.jp/totthi-macro/entry-12220279344.html

↑こちらにも記載しておりますが
「lengthen;dy;;;l;;」で動作しない場合は
「lengthen;dy;;;l;;;」にしてみて下さい。


*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;pc1;配列数(鉄筋本数-1)^X\select;\copybase;non;0<0;p;;setenv;to;1,line;\\;erase;p;;lengthen;dy;;;l;;;select;l;;pasteblock;non;0<0;copy;p;;non;@;non;@;erase;p;;ucs;ob;l;erase;l;;explode;L;setenv;to;2,,)$(nth,$(getenv,to),,,-array;p;;r;1;$(+,$(getenv,pc1),1);$(/,$(getvar,perimeter),$(getenv,pc1));ucs;p)^M

エンターを１つ追加しました。

返信ありがとうございました。

うまく作動いたしました。