AutoCADマクロ屋本舗 掲示板

以前、AcadModifyでお世話になったものです。その節はありがとうございます
この度、ＣＡＤのﾊﾞｰｼﾞｮﾝがautocadlt　2019になりました。
そこで、下記のマクロが動作不良を起こしてしまい、お手数ですが正常な動作にならないでしょうか？
よろしくお願いします。

autocadﾊﾞｰｼﾞｮﾝ：autocadlt 2019
質問内容：二点間中間オフセットがうまく動きません。
マクロ動作：下記記載

コマンド:
コマンド:
コマンド: setenv
変数名を入力: to
値 <0>: 0


コマンド: offset

現在の設定: 元のオブジェクトを消去=いいえ 画層=元のオブジェクト OFFSETGAPTYPE=0
オフセット距離を指定 または [通過点(T)/消去(E)/画層(L)] <通過点>:

オフセットするオブジェクトを選択 または [終了(E)/元に戻す(U)] <終了>: *削除*
ｵﾌﾞｼﾞｪｸﾄ選択*削除*
ｵﾌﾞｼﾞｪｸﾄ選択
通過点を指定 または [終了(E)/一括(M)/元に戻す(U)] <終了>:

コマンド: select

オブジェクトを選択: nea
どこに @
認識された数: 1

オブジェクトを選択: nea
どこに @
認識された数: 1 (重複している数: 1), 総数 1

オブジェクトを選択:

コマンド: setenv
変数名を入力: p1
値 <889.79780552,119.78951435>: 889.79780552,115.84613857


コマンド:
SETENV
変数名を入力: to
値 <0>: 1


コマンド:
コマンド:
コマンド: setenv
変数名を入力: to
値 <1>: 0


コマンド: offset

現在の設定: 元のオブジェクトを消去=いいえ 画層=元のオブジェクト OFFSETGAPTYPE=0
オフセット距離を指定 または [通過点(T)/消去(E)/画層(L)] <通過点>:

オフセットするオブジェクトを選択 または [終了(E)/元に戻す(U)] <終了>: *削除*
2つ目のｵﾌﾞｼﾞｪｸﾄ選択*削除*
2つ目のｵﾌﾞｼﾞｪｸﾄ選択
通過点を指定 または [終了(E)/一括(M)/元に戻す(U)] <終了>:

コマンド: setenv
変数名を入力: to
値 <0>: 1


コマンド: select

オブジェクトを選択: nea
どこに @
認識された数: 1

オブジェクトを選択: nea
どこに @
認識された数: 1 (重複している数: 1), 総数 1

オブジェクトを選択:

コマンド: setenv
変数名を入力: p2
値 <987.83331936,119.91840707>: 987.83331936,105.79230415


コマンド: zoom

窓のコーナーを指定、表示倍率を入力(nX または nXP) または
[図面全体(A)/中心点(C)/ダイナミック(D)/オブジェクト範囲(E)/前画面(P)/倍率(S)/窓(W)/選択オブジェクト(O)] <リアル タイム>: e

コマンド: dimradius

円弧または円を選択: nea
どこに @

選択されたオブジェクトは円または円弧ではありません。

円弧または円を選択: nea
どこに 889.79780552,115.84613857

選択されたオブジェクトは円または円弧ではありません。

円弧または円を選択:

コマンド: setenv
変数名を入力: to
値 <1>: 2


コマンド:
コマンド:
コマンド: setenv
変数名を入力: to
値 <2>: 0


コマンド: dimangular

円弧、円、線分を選択 または <頂点を指定(S)>: nea
どこに 889.79780552,115.84613857

2 本目の線分を選択: nea
どこに 987.83331936,105.79230415

選択された線分は平行です。
コマンド: setenv
変数名を入力: to
値 <0>: 3


コマンド:
コマンド:
コマンド: setenv
変数名を入力: to
値 <3>: 0


コマンド: line

1 点目を指定: nea
どこに 889.79780552,115.84613857

次の点を指定 または [元に戻す(U)]: per
どこに 987.83331936,105.79230415

次の点を指定 または [元に戻す(U)]:

コマンド: lengthen

計測するオブジェクトを選択 または [増減(DE)/比率(P)/全体(T)/ダイナミック(DY)] <ダイナミック(DY)>: l


現在の長さ: 98.03551384
計測するオブジェクトを選択 または [増減(DE)/比率(P)/全体(T)/ダイナミック(DY)] <ダイナミック(DY)>:

変更するオブジェクトを選択 または [元に戻す(U)]:

コマンド:
LENGTHEN

計測するオブジェクトを選択 または [増減(DE)/比率(P)/全体(T)/ダイナミック(DY)] <ダイナミック(DY)>: erase


*選択無効*
点を指定 または 最後(L)/フェンス(F)/増減(DE)/比率(P)/全体(T)

計測するオブジェクトを選択 または [増減(DE)/比率(P)/全体(T)/ダイナミック(DY)] <ダイナミック(DY)>:

ここで止まります。

動くようにならないでしょうか？
よろしくお願いします。

二点間中点オフセット Ver2016
https://ameblo.jp/totthi-macro/entry-11508711703.html
のマクロ下に注意文が書いてあります。

lengthenコマンドのオプションによって
エンターの数が変わるようなので
下記のように、いずれかにすると間違いないかと思います
lengthen;dy;;;l;;;
lengthen;DE;;;;l;;;;
lengthen;P;;;;l;;;;
lengthen;T;;;;l;;;;

ありがとうございます。
さっそく試した結果、正常に動くことができました。
助かりました。