文字枠作成 [属性値判別付] 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 |
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 |
2013 動作確認済
●使い方
１．文字オブジェクトを選択すると、文字の周りを四角形で囲みます
▲注意
１．文字以外を選択しないで下さい
※ブロック文字はＯＫ!! ただし、属性は選択しても編集できません!!
■更新履歴
・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 |
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 |
R2002,R2006/LT2000/LT2013 動作確認済
●使い方
１．文字オブジェクトを選択すると、文字の周りを四角形で囲みます
▲注意
１．文字以外を選択しないで下さい
※ブロック文字はＯＫ!! ただし、属性は選択しても編集できません!!
２．マクロが長い為、メニューファイルに直接コピペして下さい
■コメント
某掲示板にて･･･
テリー大先生作「文字消し線付加」マクロを参考に作りました(^^;
その後
R2002に対応させる為に作ったマクロです。
徹底解説AutoCAD LT 2012 (エクスナレッジムック)/鈴木裕二
￥3,990
Amazon.co.jp