文字内容コピーといっても、
完全に文字の内容だけをコピーするマクロでは有りません。
マクロの内容としては
最初に選択したオブジェクトをコピーし
後に選択したオブジェクトのプロパティをコピーしているだけなのです。
さらに、基点の設定は、「UCS」にて、文字の基点を指定しています。
この時、基点は必ず文字の「左下」が指定されます。
（ucs;ob; ←にて文字オブジェクトを選択してみてください）
よって、プロパティコピーでは
文字の位置までコピーできないのです。
文字を必ず「左下」指定で作図すればＯＫなのですが、
その他の文字の位置で作図されたものは、位置がズレてしまいます。
尚、この点につきましては
マクロでは、文字の内容の抽出が出来ないので、
限界だと思われます。
[22]
文字内容コピー Ver.2013 [2015.2.10追加]
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),offset;;^xｺﾋﾟｰ元文字を選択^x\;select;non;@;non;@;;copybase;non;@;p;;setenv;to;1,,)$(nth,$(getenv,to),,offset;;^x文字内容を変更する文字を選択【ｺﾋﾟｰ元変更(Rc)】^x\$m="""$(if,$(getvar,cmdactive),;setenv;p1;$(getvar,lastpoint),list;)""";pasteclip;$(getvar,viewctr);setenv;to;2,)$(nth,$(getenv,to),,,matchprop;$(getenv,p1);l;;ucs;ob;l;copybase;non;0","0;l;;ucs;p;erase;l;;select;$(getenv,p1);;ucs;ob;@;pasteclip;non;0","0;erase;p;;ucs;p;select;l;;setenv;to;1)^M |
LT2013 動作確認済
文字内容コピー
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),offset;;\$m="""$(if,$(getvar,cmdactive),,^Clist;)""";erase;@;@;;oops;explode;@;$m="""""""$(if,$(getvar,cmdactive),;)"""""""copybase;@;@;;setenv;to;1,,)$(nth,$(getenv,to),,extend;p;\@;;$m="""$(if,$(getvar,cmdactive),;setenv;p1;$(getvar,lastpoint),list;)""";erase;@;@;;oops;explode;@;$m="""""""$(if,$(getvar,cmdactive),;)pasteclip;$(getvar,viewctr)""""""";setenv;to;2,)$(nth,$(getenv,to),,,matchprop;$(getenv,p1);l;;ucs;ob;l;copybase;non;0","0;l;;ucs;p;erase;l;;select;$(getenv,p1);;ucs;ob;@;pasteclip;non;0","0;erase;p;;ucs;p;select;l;;setenv;to;1)^M |
LT2000 動作確認済
●使い方
１．文字の内容をコピーしたい文字オブジェクトを選択
２．文字内容を変更するオブジェクトを選択
---２．繰返し---
（ただし、右クリックで１．に戻る）
▲注意
１．ミスピックは対応してません。
使い方２．の時は注意して選択して下さい。
２．文字以外を選択しない様に注意して下さい。
■コメント
このマクロも、かずぼ～大先生の作品です。
これも、かなりの衝撃を覚えたマクロの１つ。
お試し下さい♪
by totthi
AutoCAD & LT バイブル-2002/2004/2005/2006/2007/2008.../伊部 明美
￥3,360
Amazon.co.jp