テーマ:
[72]
文字枠作成 [属性値判別付] Ver.setenv [2017.8.4修正]
*^C^C$m=setenv;to;0;$(nth,$(getenv,to),offset;;^x単一文字オブジェクト選択^x\;select;@;@;;undo;be;setenv;to;1;-attedit;y;*;*;*;non;@;;$M="""$(if,$(getvar,cmdactive),;setenv;to;0,)""",,,,,)$(nth,$(getenv,to),,explode;@;"""$m=$(if,$(getvar,cmdactive),;)"""explode;@;"""""""$m=$(if,$(getvar,cmdactive),;)"""""""select;non;@;non;@;;setenv;to;2,,,,)$(nth,$(getenv,to),,,ucs;e;@;sortents;127;line;non;@;non;@0.01<0;;extend;p;;@;@;;lengthen;l;;sortents;$(getvar,sortents);setenv;to;3,,,)$(nth,$(getenv,to),,,,userr1;$(getvar,perimeter);sortents;127;line;mid;@;non;@0","0.01;;extend;p;;@;@;;lengthen;l;;sortents;$(getvar,sortents);ucs;e;l;erase;l;;;l;;setenv;to;4,,)$(nth,$(getenv,to),,,,,ucs;o;$( ,$(getvar,perimeter),2)","0;rectang;non;-$(="" ,$(getvar,perimeter),2)","-$(="" ,$(getvar,userr1),2);non;$(="" ,$(getvar,perimeter),2)","$(="" ,$(getvar,userr1),2);ucs;p;;p;;p;copybase;0<0;l;;undo;e;u;pasteclip;non;0<0)^m<="" td="">

2013 動作確認済


文字枠作成 Ver.setenv [2017.8.4修正]
*^C^C$m=setenv;to;0;$(nth,$(getenv,to),offset;;^x単一文字オブジェクト選択^x\;select;@;@;;setenv;to;1,,,,)$(nth,$(getenv,to),,copybase;non;0","0;p;;id;$(getvar,lastpoint);undo;be;explode;@;"""$m=$(if,$(getvar,cmdactive),;)"""explode;@;"""""""$m=$(if,$(getvar,cmdactive),;)"""""""select;non;@;non;@;;setenv;to;2,,,)$(nth,$(getenv,to),,,ucs;e;@;sortents;127;line;non;@;non;@0.01<0;;extend;p;;@;@;;lengthen;l;;sortents;$(getvar,sortents);setenv;to;3,,)$(nth,$(getenv,to),,,,userr1;$(getvar,perimeter);sortents;127;line;mid;@;non;@0","0.01;;extend;p;;@;@;;lengthen;l;;sortents;$(getvar,sortents);ucs;e;l;erase;p;l;;;l;;setenv;to;4,)$(nth,$(getenv,to),,,,,ucs;o;$( ,$(getvar,perimeter),2)","0;rectang;non;-$(="" ,$(getvar,perimeter),2)","-$(="" ,$(getvar,userr1),2);non;$(="" ,$(getvar,perimeter),2)","$(="" ,$(getvar,userr1),2);ucs;p;;p;;p;pasteclip;non;0<0)^m<="" td="">

2013 動作確認済


●使い方
1.文字オブジェクトを選択すると、文字の周りを四角形で囲みます

▲注意
1.文字以外を選択しないで下さい
  ※ブロック文字はOK!! ただし、属性は選択しても編集できません!!


■更新履歴
・2017.8.4 Ver.2013追加


徹底解説AutoCAD LT 2012 (エクスナレッジムック)/鈴木裕二

¥3,990
Amazon.co.jp





↓↓↓旧バージョン↓↓↓




文字枠作成 [属性値判別付]
*^C^C$m=useri5;0;$(nth,$(getvar,useri5),offset;;^x単一文字オブジェクト選択^x\;select;@;@;;undo;be;useri5;1;-attedit;y;*;*;*;non;@;;$M="""$(if,$(getvar,cmdactive),;useri5;0,)""",,,,,)$(nth,$(getvar,useri5),,explode;@;"""$m=$(if,$(getvar,cmdactive),;)"""explode;@;"""""""$m=$(if,$(getvar,cmdactive),;)"""""""select;non;@;non;@;;useri5;2,,,,)$(nth,$(getvar,useri5),,,ucs;e;@;sortents;127;line;non;@;non;@0.01<0;;extend;p;;@;@;;lengthen;l;;sortents;$(getvar,sortents);useri5;3,,,)$(nth,$(getvar,useri5),,,,userr1;$(getvar,perimeter);sortents;127;line;mid;@;non;@0","0.01;;extend;p;;@;@;;lengthen;l;;sortents;$(getvar,sortents);ucs;e;l;erase;l;;;l;;useri5;4,,)$(nth,$(getvar,useri5),,,,,ucs;o;$( ,$(getvar,perimeter),2)","0;rectang;non;-$(="" ,$(getvar,perimeter),2)","-$(="" ,$(getvar,userr1),2);non;$(="" ,$(getvar,perimeter),2)","$(="" ,$(getvar,userr1),2);ucs;p;;p;;p;copybase;0<0;l;;undo;e;u;pasteclip;non;0<0)^m<="" td="">

LT2000/LT200i/LT2002/LT2013 動作確認済


文字枠作成 [2006.2.14修正]
*^C^C$m=useri5;0;$(nth,$(getvar,useri5),offset;;^x単一文字オブジェクト選択^x\;select;@;@;;useri5;1,,,,)$(nth,$(getvar,useri5),,copybase;non;0","0;p;;id;$(getvar,lastpoint);undo;be;explode;@;"""$m=$(if,$(getvar,cmdactive),;)"""explode;@;"""""""$m=$(if,$(getvar,cmdactive),;)"""""""select;@;@;;useri5;2,,,)$(nth,$(getvar,useri5),,,ucs;e;@;sortents;127;line;non;@;non;@0.01<0;;extend;p;;@;@;;lengthen;l;;sortents;$(getvar,sortents);useri5;3,,)$(nth,$(getvar,useri5),,,,userr1;$(getvar,perimeter);sortents;127;line;mid;@;non;@0","0.01;;extend;p;;@;@;;lengthen;l;;sortents;$(getvar,sortents);ucs;e;l;erase;p;l;;;l;;useri5;4,)$(nth,$(getvar,useri5),,,,,ucs;o;$( ,$(getvar,perimeter),2)","0;rectang;non;-$(="" ,$(getvar,perimeter),2)","-$(="" ,$(getvar,userr1),2);non;$(="" ,$(getvar,perimeter),2)","$(="" ,$(getvar,userr1),2);ucs;p;;p;;p;pasteclip;non;0","0;useri5;0)^m<="" td="">

R2002,R2006/LT2000/LT2013 動作確認済


●使い方
1.文字オブジェクトを選択すると、文字の周りを四角形で囲みます

▲注意
1.文字以外を選択しないで下さい
  ※ブロック文字はOK!! ただし、属性は選択しても編集できません!!
2.マクロが長い為、メニューファイルに直接コピペして下さい

■コメント
某掲示板にて・・・
テリー大先生作「文字消し線付加」マクロを参考に作りました(^^;

その後
R2002に対応させる為に作ったマクロです。


徹底解説AutoCAD LT 2012 (エクスナレッジムック)/鈴木裕二

¥3,990
Amazon.co.jp


とってぃさんの読者になろう

ブログの更新情報が受け取れて、アクセスが簡単になります

Ameba人気のブログ

Amebaトピックス

    ブログをはじめる

    たくさんの芸能人・有名人が
    書いているAmebaブログを
    無料で簡単にはじめることができます。

    公式トップブロガーへ応募

    多くの方にご紹介したいブログを
    執筆する方を「公式トップブロガー」
    として認定しております。

    芸能人・有名人ブログを開設

    Amebaブログでは、芸能人・有名人ブログを
    ご希望される著名人の方/事務所様を
    随時募集しております。