AutoCADマクロ屋本舗 掲示板

お世話になります。
AUTOCAD LT2019を使用しています。
「130.寸法値修正（切上・切下・元寸法）がうまく作動しません。
何か不足があるのでしょうか。
AcadRemconは入れていません。必要ですか？

マクロの流れを記入します。
よろしくお願いします。

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


コマンド: offset

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

オフセットするオブジェクトを選択 または [終了(E)/元に戻す(U)] <終了>: *削除*
*削除*
寸法線(寸法値下)選択：【切上】--変更(Rc)--*削除*
寸法線(寸法値下)選択：【切上】--変更(Rc)--*キャンセル*

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


コマンド:
SETENV
変数名を入力: kt
値 <10>: 切上単位記入(10/5/1/0.1等)*削除*
切上単位記入(10/5/1/0.1等)10


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


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


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


コマンド: offset

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

オフセットするオブジェクトを選択 または [終了(E)/元に戻す(U)] <終了>: *削除*
*削除*
寸法線(寸法値下)選択：【切上】--変更(Rc)--*削除*
寸法線(寸法値下)選択：【切上】--変更(Rc)--
このオブジェクトはオフセットできません。
このオブジェクトはオフセットできません。
このオブジェクトはオフセットできません。
このオブジェクトはオフセットできません。
オフセットするオブジェクトを選択 または [終了(E)/元に戻す(U)] <終了>:

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


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


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


コマンド: select

オブジェクトを選択: non
@
認識された数: 1

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

オブジェクトを選択:

コマンド: copy

オブジェクトを選択: p
認識された数: 1

オブジェクトを選択:

基点を指定 または [移動距離(D)/複数(M)] <移動距離>: non
@

2 点目を指定 または [配列(A)] <1 点目を基点に使用>: non
@

寸法の自動調整が失われました。
コマンド: erase

オブジェクトを選択: p
認識された数: 1

オブジェクトを選択:

コマンド: undo
現在の設定: 自動 = オン, コントロール = すべて, 合成 = はい, 画層 = はい
取り消す操作の数を入力 または [自動(A)/コントロール(C)/開始(BE)/終了(E)/マーク(M)/後退(B)] <1>: be

コマンド: dimoverride

優先する寸法記入変数名を入力 または [優先設定をクリア(C)]: dimblk
寸法記入変数の新しい値を入力 <塗り潰し矢印>: _none

優先する寸法記入変数名を入力:

オブジェクトを選択: l
認識された数: 1

オブジェクトを選択:

コマンド: explode

オブジェクトを選択: l

コマンド: lengthen

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


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

全体の長さを入力 または [角度(A)] <1.0000>: undo

距離を数値で入力してください, 2 点を指定 または オプションのキーワードを入力してください。

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

上記を参考にすればわかると思いますが
lengthenコマンドの仕様変更がありましたので

lengthen;nea;@;;をlengthen;dy;;;nea;@;;;に変えるとできると思います。

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

ありがとうございました。
lengthen;dy;;;nea;@;;;　に変更して動きました。

お手数を掛けました。