文字二重線付加 Ver.2017 [2017/11/30 UP]
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),offset;;\;select;non;@;non;@;;copy;p;;non;@;non;@;erase;p;;undo;be;setenv;to;1;-attedit;y;;;;non;@;non;@;;$M="""$(if,$(getvar,cmdactive),;setenv;to;0,)""",,,,,)$(nth,$(getenv,to),,;to;2;explode;l;"""$m=$(if,$(getvar,cmdactive),;)"""explode;l;"""""""$m=$(if,$(getvar,cmdactive),;)"""""""select;l;,,,,)$(nth,$(getenv,to),,,;to;3;ucs;e;l;sortents;127;line;non;@;non;@0.05<0;;extend;p;;f;non;@-0.02",0.1;non;@0,-0.2;;f;non;@-0.02,0.1;non;@0,"-0.2;;,,,)$(nth,$(getenv,to),,,,;to;4;line;non;@;non;@0.05<90;;extend;p;;f;non;@0.1",-0.02;non;@-0.2,0;;f;non;@0.1,-0.02;non;@-0.2,"0;;;lengthen;dy;;;l;;;ucs;e;l;erase;l;,,)$(nth,$(getenv,to),,,,,chprop;l;;c;1;;move;p;;non;@-0.05<0;non;$(*,$(getvar,perimeter),0.37)<0;copy;p;;non;@;non;$(*,$(getvar,perimeter),0.63)<0;ucs;p;;p;copybase;0<0;p;l;;undo;e;u;pasteclip;non;0<0)^M |
2017 動作確認済
文字二重線付加 [2008/2/12 UP]
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),offset;;\;select;non;@;non;@;;copy;p;;non;@;non;@;erase;p;;undo;be;setenv;to;1;-attedit;y;;;;non;@;non;@;;$M="""$(if,$(getvar,cmdactive),;setenv;to;0,)""",,,,,)$(nth,$(getenv,to),,;to;2;explode;l;"""$m=$(if,$(getvar,cmdactive),;)"""explode;l;"""""""$m=$(if,$(getvar,cmdactive),;)"""""""select;l;,,,,)$(nth,$(getenv,to),,,;to;3;ucs;e;l;sortents;127;line;non;@;non;@0.05<0;;extend;p;;f;non;@-0.02",0.1;non;@0,-0.2;;f;non;@-0.02,0.1;non;@0,"-0.2;;,,,)$(nth,$(getenv,to),,,,;to;4;line;non;@;non;@0.05<90;;extend;p;;f;non;@0.1",-0.02;non;@-0.2,0;;f;non;@0.1,-0.02;non;@-0.2,"0;;;lengthen;l;;ucs;e;l;erase;l;,,)$(nth,$(getenv,to),,,,,chprop;l;;c;1;;move;p;;non;@-0.05<0;non;$(*,$(getvar,perimeter),0.37)<0;copy;p;;non;@;non;$(*,$(getvar,perimeter),0.63)<0;ucs;p;;p;copybase;0<0;p;l;;undo;e;u;pasteclip;non;0<0)^M |
[動作確認済]
LT2000/LT2004/LT2007/LT2008
R2004/R2005/R2006/R2007/R2008
●使い方
１．文字を選択
| ※ただし、ブロック化された文字を選択しても、二重線は引けます。 尚、属性文字に関しては、誤って選択しても、二重線が引けないように 対応しています。 |
▲注意
１．文字以外を選択しないで下さい。
２．マクロが長い為、カスタマイズダイアログに直接貼付け出来ない場合は
メニューファイルに直接貼り付けて下さい。
■更新履歴
・2017/11/30
ﾊﾞｰｼﾞｮﾝ2017対応マクロ追加
・2008/2/12
以前、某掲示板にて、[ 文字に消し線(二重線)を引く ]マクロを
テリー大先生が作成されていました。
また、Ver.2007用に修正して欲しいとの要望がありましたので
試行錯誤しながらですが、どうにか修正出来ました。
上記のマクロは、2000i以前のバージョンでは使用出来ませんので
今回、修正して、2000i以前のバージョンでも使える様に修正しました。
その代わり、文字・属性以外のオブジェクトを選択すると
マクロが途中で止まりますので注意して下さい。
で、その後更に･･･
"属性を誤って選択した場合、分解されたまま止まってしまう"部分を修正しています。
お試し下さい。
AutoCAD入門―よくわかる2次元&3次元CADシステム/日刊工業新聞社
￥3,360
Amazon.co.jp