AutoCADマクロ屋本舗 掲示板

お世話様です。
いつも大変便利に使用させて頂いております。

143.線分両端延長マクロの改変のお願い出来ないでしょうか。
使用Ver.は2016R版です。
lengthenコマンドはlengthen;dy;;;l;;に変更しております。
下記変更後のマクロです。
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;l1;延長値記入^X\;to;1,offset;;^Xオブジェクト選択：延長値<$(getenv,l1)>【延長値変更(Rc)】^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;1;select;non;@;non;@;;setenv;to;2,id;)""",,)$(nth,$(getenv,to),,,;to;3;;so;$(getvar,sortents);sortents;127;copy;p;;non;@;non;@;erase;p;;ucs;ob;l;lengthen;dy;;;l;;;to;1;lengthen;de;$(getenv,l1);non;0.01<0;non;$(-,$(getvar,perimeter),0.01)<0;;ucs;p;sortents;;$(getenv,so))^M

お手数お掛け致しますが、宜しくお願い致します。

下記現状のマクロの動きです。
コマンド: setenv
変数名を入力: to
値 <0>: 0
コマンド:
コマンド:
SETENV
変数名を入力: l1
値 <100>: 延長値記入*削除*
延長値記入
コマンド:
コマンド:
SETENV
変数名を入力: to
値 <0>: 1
コマンド:
コマンド:
コマンド:
コマンド: setenv
変数名を入力: to
値 <1>: 0
コマンド:
コマンド: offset
現在の設定: 元のオブジェクトを消去=いいえ 画層=元のオブジェクト OFFSETGAPTYPE=0
オフセット距離を指定 または [通過点(T)/消去(E)/画層(L)] <通過点>:
オフセットするオブジェクトを選択 または [終了(E)/元に戻す(U)] <終了>: *削除*
オブジェクト選択：延長値<100>【延長値変更(Rc)】*削除*
オブジェクト選択：延長値<100>【延長値変更(Rc)】
通過点を指定 または [終了(E)/一括(M)/元に戻す(U)] <終了>:
コマンド: setenv
変数名を入力: to
値 <0>: 1
コマンド:
コマンド: select
オブジェクトを選択: non
@
認識された数: 1
オブジェクトを選択: non
@
認識された数: 1 (重複している数: 1), 総数 1
オブジェクトを選択:
コマンド: setenv
変数名を入力: to
値 <1>: 2
コマンド:
コマンド:
コマンド:
コマンド: setenv
変数名を入力: to
値 <2>: 0
コマンド:
コマンド:
SETENV
変数名を入力: to
値 <0>: 3
コマンド:
コマンド:
SETENV
変数名を入力: so
値 <127>: 127
コマンド:
コマンド: sortents
SORTENTS の新しい値を入力 <127>: 127
コマンド: copy
オブジェクトを選択: p
認識された数: 1
オブジェクトを選択:
基点を指定 または [移動距離(D)/複数(M)] <移動距離>: non
@
2 点目を指定 または [配列(A)] <1 点目を基点に使用>: non
@
コマンド: erase
オブジェクトを選択: p
認識された数: 1
オブジェクトを選択:
コマンド: ucs
現在の UCS 名: *ワールド*
UCS 原点を指定 または [面(F)/名前の付いた UCS(NA)/オブジェクト(OB)/直前(P)/ビュー(V)/ワールド(W)/X/Y/Z/Z 軸(ZA)] <ワールド>: ob
UCS を位置合わせするオブジェクトを選択: l
コマンド: lengthen
計測するオブジェクトを選択 または [増減(DE)/比率(P)/全体(T)/ダイナミック(DY)] <ダイナミック(DY)>: dy
変更するオブジェクトを選択 または [元に戻す(U)]:
コマンド:
LENGTHEN
計測するオブジェクトを選択 または [増減(DE)/比率(P)/全体(T)/ダイナミック(DY)] <ダイナミック(DY)>: l
現在の長さ: 720.0000
計測するオブジェクトを選択 または [増減(DE)/比率(P)/全体(T)/ダイナミック(DY)] <ダイナミック(DY)>:
変更するオブジェクトを選択 または [元に戻す(U)]:
コマンド: to
TOOLBAR ツールバー名を入力 または [すべて(ALL)]: 1
ツールバーが見つかりません。
ツールバー名を入力 または [すべて(ALL)] <1>: lengthen
ツールバーが見つかりません。
ツールバー名を入力 または [すべて(ALL)] <lengthen>: de
ツールバーが見つかりません。
ツールバー名を入力 または [すべて(ALL)] <de>: 100
ツールバーが見つかりません。
ツールバー名を入力 または [すべて(ALL)] <100>: non
ツールバーが見つかりません。
ツールバー名を入力 または [すべて(ALL)] <non>: 0.01<0
ツールバーが見つかりません。
ツールバー名を入力 または [すべて(ALL)] <0.01<0>: non
ツールバーが見つかりません。
ツールバー名を入力 または [すべて(ALL)] <non>: 719.99<0
ツールバーが見つかりません。
ツールバー名を入力 または [すべて(ALL)] <719.99<0>:
コマンド: ucs
現在の UCS 名: *名前なし*
UCS 原点を指定 または [面(F)/名前の付いた UCS(NA)/オブジェクト(OB)/直前(P)/ビュー(V)/ワールド(W)/X/Y/Z/Z 軸(ZA)] <ワールド>: p
コマンド: sortents
SORTENTS の新しい値を入力 <127>:
コマンド: 127
そのようなコマンド "127" はありません。ヘルプを表示するには F1 キーを押してください。
コマンド:
コマンド:
コマンド: setenv
変数名を入力: to
値 <3>: 0
コマンド:
コマンド: SETENV
変数名を入力:
コマンド:
コマンド:
コマンド:
コマンド: setenv
変数名を入力: to
値 <0>: 0
コマンド:
コマンド:
SETENV
変数名を入力: l1
値 <100>: 延長値記入*削除*
延長値記入*キャンセル*
; エラー: 関数は取り消されました
コマンド:

lengthen;dy;;;l;;;to;1;
lengthen;dy;;;l;;,;to;1;

,が消えてしまってますね

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;l1;延長値記入^X\;to;1,offset;;^Xオブジェクト選択：延長値<$(getenv,l1)>【延長値変更(Rc)】^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;1;select;non;@;non;@;;setenv;to;2,id;)""",,)$(nth,$(getenv,to),,,;to;3;;so;$(getvar,sortents);sortents;127;copy;p;;non;@;non;@;erase;p;;ucs;ob;l;lengthen;dy;;;l;;,;to;1;lengthen;de;$(getenv,l1);non;0.01<0;non;$(-,$(getvar,perimeter),0.01)<0;;ucs;p;sortents;$(getenv,so))^M

ついでに最後のsortents;の後の;がもともと多かったみたいなので削除しました。

lt2017で動作確認しました

chibi-tom様

お世話になります。
修正頂いたマクロバッチリ動作致しました。
ありがとうございました！