AutoCADマクロ屋本舗 掲示板

AutoCAD LT 2014
こんにちは。いつもこちらの便利なマクロに助けていただいています。
この場を借りてお礼申し上げます。
質問ですが、カウントアップ文字編集がうまくいきません。
文字付選択なども試しましたがどれも『オフセット』で止まってしまいます。
私の使い方が悪いのか、、お手数ですがご教示いただけますでしょうか。
コマンド:
コマンド:
コマンド: setenv
変数名を入力: to
値 <0>: 0


コマンド:
SETENV
変数名を入力: c1
値 <1>: 初期値*削除*
初期値1


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


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


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


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


コマンド: offset

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

オフセットするオブジェクトを選択 または [終了(E)/元に戻す(U)] <終了>: *削除*

このオブジェクトはオフセットできません。
オフセットするオブジェクトを選択 または [終了(E)/元に戻す(U)] <終了>:

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


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


コマンド: select

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

オブジェクトを選択:

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


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


コマンド: change

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

オブジェクトを選択:
変更位置を指定 または [プロパティ(P)]:

文字列の新しい挿入位置を指定 <変更しない>:

新しい文字スタイルを入力 <s1>:

新しい角度を指定 <0>:

新しい文字を入力 <1>:

コマンド: 1
そのようなコマンド "1" はありません。ヘルプを表示するには F1 キーを押してください。

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


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


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


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


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


コマンド: offset

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

オフセットするオブジェクトを選択 または [終了(E)/元に戻す(U)] <終了>: *削除*


コマンド: id
点を指定:

コマンド:
ID
点を指定: X = -46017.7187 Y = -31550.2537 Z = 0.0000

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

コマンド:
SETENV
変数名を入力: c1
値 <1>: 初期値*削除*

編集しようとしている文字に適用されているスタイルの設定を、文字スタイル管理で確認してみて下さい。
文字高さが0以外になってませんか？

文字編集系のマクロは、文字高さが0に設定されている時しか正常に動かない物が多くあります。
文字高さが0以外に設定されている場合は、「それを0にしろ」とは言えないケースが多いので、
マクロの記述を変更する事になります。

もしマクロ内に「change;p;;;;;;;」の様な記述が出てきたら、エンターを一つ消して下さい。
（「；」を一つ消して「change;p;;;;;;」とする）

文字高さが0でも、0以外でも、どちらも動く様にマクロを変更する事は可能です。ご要望が有れば、いつかどこかで ご説明いたします。

ありがとうございます！
確かに高さが３になっていました。
；を消すことで対応できました。とてもたすかりました。