AutoCADマクロ屋本舗 掲示板

いつもお世話になっております。
ＡＣＡＤ2015Rを使用しております。

画像のようにテキストを囲って
名称を付けていく仕事があるのですが
囲った矩形ぴったりに
背景マスクをかけることは可能でしょうか？
いまは単純にテキストに背景マスクをかけて、
はみ出てしまった所は
つまんで囲い内に入れる...という手順でしております。

よろしくお願い致します。

ひらがなのとみさんが同じような質問されてますね
すごい偶然ですね？

http://totthi.bbs.fc2.com/?act=reply&tid=16373832

動作は確認していないので違っていたらスルーしてください

ありがとうございます。

使用してみたところ、
背景色の黒の色番がわからなかったです。。
0で良いのでしょうか。。。

黒の色番は7ですね

ありがとうございます。

7番にしてみましたが
背景が黒なので白で反映されてしまうみたいです。
背景と同色は不可能なんですかね。。。

すいません自分にはわからないです。

背景色を黒に近い色番250に設定して色番250でハッチングは可能だと思いますが

ちなみに自分も考えてみました

*^C^Cselect;\ucs;w;isolateobjects;p;;zoom;e;$M=rectang;non;$(rtos,$(-,$(index,0,$(getvar,extmin)),$(*,$(getvar,dimscale),1.5)),2,0),$(rtos,$(-,$(index,1,$(getvar,extmin)),$(*,$(getvar,dimscale),1.5)),2,0);non;$(rtos,$(+,$(index,0,$(getvar,extmax)),$(*,$(getvar,dimscale),1.5)),2,0),$(rtos,$(+,$(index,1,$(getvar,extmax)),$(*,$(getvar,dimscale),1.5)),2,0);chprop;l;;c;250;;draworder;l;;b;-hatch;p;s;s;l;;;chprop;l;;c;250;;draworder;l;;b;unisolateobjects;zoom;p;ucs;p^M

１.マクロ起動
２.文字選択

以上です。
色番250色の参考にお試しください。

※、囲みのない文字を選択すると四角で囲んでハッチングするマクロです。

データがAutoCADだけで完結するなら、囲っている矩形を利用してWipeoutではだめなんでしょうか。

chibi-tom様
ありがとうございます。
やはり250が限界ですよね。。。

LUNE様
ありがとうございます。
WIPEOUTも試してはいるのですが
手間がかかってしまうので困っております。

WIPEOUTほとんど使わないので
間違ってるかもしれませんが
こんな感じでどうでしょうか？

*^C^Cselect;\ucs;w;isolateobjects;p;;zoom;e;$M=rectang;non;$(rtos,$(-,$(index,0,$(getvar,extmin)),$(*,$(getvar,dimscale),1.5)),2,0),$(rtos,$(-,$(index,1,$(getvar,extmin)),$(*,$(getvar,dimscale),1.5)),2,0);non;$(rtos,$(+,$(index,0,$(getvar,extmax)),$(*,$(getvar,dimscale),1.5)),2,0),$(rtos,$(+,$(index,1,$(getvar,extmax)),$(*,$(getvar,dimscale),1.5)),2,0);erase;p;;wipeout;f;on;;p;l;Y;oops;draworder;p;;a;l;;unisolateobjects;zoom;p;ucs;p^M

１.マクロ起動
２.文字選択

以上です。

※、囲みのない文字を選択すると四角でWIPEOUTするマクロです。

ありがとうございます！

まさにこのようなイメージでした！
ありがとうございます

WIPEOUTの不具合が話題になっていたのでハッチングでRGBの0,0,0色(黒色専用)←知らなかったけどできるらしい
で修正しました。

*^C^Cselect;\ucs;w;undo;be;erase;all;r;p;;zoom;e;$M=rectang;non;$(rtos,$(-,$(index,0,$(getvar,extmin)),$(*,$(getvar,dimscale),1.5)),2,0),$(rtos,$(-,$(index,1,$(getvar,extmin)),$(*,$(getvar,dimscale),1.5)),2,0);non;$(rtos,$(+,$(index,0,$(getvar,extmax)),$(*,$(getvar,dimscale),1.5)),2,0),$(rtos,$(+,$(index,1,$(getvar,extmax)),$(*,$(getvar,dimscale),1.5)),2,0);copybase;non;0<0;l;;undo;e;u;pasteblock;non;0<0;xplode;l;;e;chprop;l;;c;t;0,0,0;;draworder;l;;b;-hatch;p;s;s;l;;;chprop;l;;c;t;0,0,0;;draworder;l;;b;ucs;p^M

あんまり関係ないけど、isolateobjectsもビューポートがあるとエラーするのでUNDO使用で全削除で対応しました。