AutoCADマクロ屋本舗 掲示板

　はじめまして、いつも有用な情報をありがとうございます。

今回教えて頂きたいのは属性文字の消去についてです。

使用しているCADのバージョンは2009です。

コマンド操作内容は次です。


*^C^Cundo;m;-attedit;y;*;*;*;削除する属性値を選択^X\;v;r;;n


Autocad 2009 の場合(F2)内容は ・・・・・上手く動作しないので属性文字が消去できません。


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

コマンド: -attedit

属性を 1 つずつ編集しますか? [はい(Y)/いいえ(N)] <Y>: y

ブロック名の選別基準を入力 <*>: *

属性の名称 の選別基準を入力 <*>: *

属性値 の選別基準を入力 <*>: *
編集する属性を選択: 削除する属性値を選択*削除*

1 個見つかりました
編集する属性を選択:

1 個の属性が選択されました。.
オプションを入力 [値(V)/位置(P)/高さ(H)/角度(A)/文字スタイル(S)/画層(L)/色(C)/次(N)] <N>:

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　******* ここでマクロ動作止まります　*******　　　　　　　　　　　

ここから手入力で　V　enter r enter enter では　属性文字が消去できます

一方

Autocad 2014 の場合(F2)内容は ・・・・・上手く動作して属性文字が消去できます。


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

コマンド: -attedit

属性を 1 つずつ編集しますか? [はい(Y)/いいえ(N)] <Y>: y

ブロック名の選別基準を入力 <*>: *

属性の名称 の選別基準を入力 <*>: *

属性値 の選別基準を入力 <*>: *
編集する属性を選択: 削除する属性値を選択*削除*
削除する属性値を選択
1 個見つかりました
編集する属性を選択:

1 個の属性が選択されました。.
オプションを入力 [値(V)/位置(P)/高さ(H)/角度(A)/文字スタイル(S)/画層(L)/色(C)/次(N)] <N>: v
属性値の編集タイプを入力 [一部変更(C)/置き換え(R)] <R>: r
新しい属性値を入力:

オプションを入力 [値(V)/位置(P)/高さ(H)/角度(A)/文字スタイル(S)/画層(L)/色(C)/次(N)] <N>: n
コマンド:
コマンド:
コマンド: undo
現在の設定: 自動 = オフ, コントロール = すべて, 合成 = はい, 画層 = はい
取り消す操作の数を入力 または [自動(A)/コントロール(C)/開始(BE)/終了(E)/マーク(M)/後退(B)] <1>: m

コマンド: -attedit

属性を 1 つずつ編集しますか? [はい(Y)/いいえ(N)] <Y>: y

ブロック名の選別基準を入力 <*>: *

属性の名称 の選別基準を入力 <*>: *

属性値 の選別基準を入力 <*>: *
編集する属性を選択: 削除する属性値を選択*削除*
削除する属性値を選択*キャンセル*　　


バ－ジョンにの違いにより2009では正常に動作しないのでご教授頂けないでしょうか。

私が以前から使っているマクロがありました。
少し修正しましたので、お試しください。

*^C^Coffset;;^X削除する属性値を選択^X\;select;non;@;non;@;;undo;m;-attedit;y;;;;@;;v;r;;^M

　お世話になります。
早速にご対応ありがとうございます。
修正頂いたマクロで試してみましたが、やはり同じ所で止まります。

他に手立てあれば教えて頂けないでしょうか。

お手数ですがよろしくお願いします。

2009は、下記の不具合があります。

【AutoCAD R/LT 2007,2009 の不具合】
http://ameblo.jp/totthi-macro/entry-10895229555.html


サービスパックを適用されていての不具合でしたら

*^C^Cundo;m;^R-attedit;y;*;*;*;削除する属性値を選択^X\;v;r;;n;

これで動くかお試しください。

　お世話になります。
早速にご対応ありがとうございます。

サ－ビスパックが未適用でした。（ダウンロ－ドして適用しました）

適用後は正常に動作します。以前から長らくは大変不便でしたので助かりました。

このたびは本当にありがとうございました。