文字 下線/二重下線付加 Ver.2015 [2018/06/07 追加]
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),;sw;0;;to;1,;to;0;offset;;^x^x文字を選択【$(nth,$(getenv,sw),下線,二重下線)】--切替(Rc)--^x\$M="""$(if,$(getvar,cmdactive),;select;non;@;non;@;;copy;p;;non;@;non;@;erase;p;;undo;be;setenv;to;2,setenv;sw;$(nth,$(getenv,sw),1,0);;to;1)""",,,,)$(nth,$(getenv,to),,,;to;3;-attedit;y;;;;non;@;non;@;;$M="""$(if,$(getvar,cmdactive),;setenv;to;1,)""",,,)$(nth,$(getenv,to),,,,;to;4;explode;l;"""$m=$(if,$(getvar,cmdactive),;)"""explode;l;"""""""$m=$(if,$(getvar,cmdactive),;)"""""""select;l;,,)$(nth,$(getenv,to),,,,,;to;5;ucs;e;l;sortents;127;line;non;0<0;non;@0.05<0;;extend;p;;f;@-0.02",0.1;@0,-0.2;;f;@-0.02,0.1;@0,"-0.2;;,)$(nth,$(getenv,to),,,,,,;to;1;chprop;l;;c;8;;move;p;;non;0<0;non;$(*,$(getvar,dimscale),0.5)<270;$(nth,$(getenv,sw),,copy;p;;non;0<0;non;$(*,$(getvar,dimscale),0.5)<270;)ucs;p;copybase;0<0;p;l;;undo;e;u;pasteclip;non;0<0)^M |
2015 動作確認済
文字 下線/二重下線付加 [2018/06/06 UP]
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),;sw;0;;to;1,;to;0;offset;;^x^x文字を選択【$(nth,$(getenv,sw),下線,二重下線)】--切替(Rc)--^x\$M="""$(if,$(getvar,cmdactive),;select;non;@;non;@;;copy;p;;non;@;non;@;erase;p;;undo;be;setenv;to;2,setenv;sw;$(nth,$(getenv,sw),1,0);;to;1)""",,,,)$(nth,$(getenv,to),,,;to;3;-attedit;y;;;;non;@;non;@;;$M="""$(if,$(getvar,cmdactive),;setenv;to;1,)""",,,)$(nth,$(getenv,to),,,,;to;4;explode;l;"""$m=$(if,$(getvar,cmdactive),;)"""explode;l;"""""""$m=$(if,$(getvar,cmdactive),;)"""""""select;l;,,)$(nth,$(getenv,to),,,,,;to;5;ucs;e;l;sortents;127;line;non;0<0;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;1;chprop;l;;c;8;;move;p;;non;0<0;non;$(*,$(getvar,dimscale),0.5)<270;$(nth,$(getenv,sw),,copy;p;;non;0<0;non;$(*,$(getvar,dimscale),0.5)<270;)ucs;p;copybase;0<0;p;l;;undo;e;u;pasteclip;non;0<0)^M |
2013 動作確認済
●使い方
１．文字を指定 ⇒ 繰返し１へ
※右クリックで 下線/二重下線 切り替え
※線色は８で描かれます。
▲注意
１．文字以外のオブジェクトを選択しないで下さい。
※マルチテキストは可（属性は不可）
■更新履歴
・2018.06.06 UP