とり急ぎ作ってみました。
♪寸法値背景変更マクロ
*^c^c$M=setenv;to;0;$(nth,$(getenv,to),;sts;$(getvar,sortents);;dclr;$(getvar,DIMTFILLCLR);;dfil;$(getvar,DIMTFILL);;sw;0;;to;1,,,,)$(nth,$(getenv,to),,;to;0;offset;;^x^x寸法選択【$(nth,$(getenv,sw),色指定,なし,背景)】-変更(Rc)-^x\$M="""$(if,$(getvar,cmdactive),;setenv;to;1;select;non;@;non;@;;setenv;to;3,setenv;to;2)""",,,)$(nth,$(getenv,to),,,;sw;$(if,$(=,$(+,$(getenv,sw),1),3),0,$(+,$(getenv,sw),1));;to;1,,)$(nth,$(getenv,to),,,,;p0;$(getvar,lastpoint);$(nth,$(getenv,sw),;clr;色番号記入^x\DIMTFILL;2;DIMTFILLCLR;$M="""""""$(getenv,clr)""""""";,DIMTFILL;0;,DIMTFILL;1;)setenv;to;4,)$(nth,$(getenv,to),,,,,sortents;127;dimlinear;non;$(getvar,viewctr);non;@;non;@;painter;l;$(getenv,p0);;erase;l;;sortents;$(getenv,str);DIMTFILLCLR;$(getenv,dclr);DIMTFILL;$(getenv,dfil);setenv;to;1)^M
動作確認LT2013
●使い方
1.寸法選択
※右クリックするごとに
色指定⇒なし⇒背景 を選択
2.寸法値背景変更
※色指定の場合、色番号記入後変更
繰返し1へ
▲注意
1.寸法以外を選択しないで下さい。
お試しください。
- とってぃ
- 2015/05/01 (Fri) 17:00:28