AutoCADマクロ屋本舗 掲示板

こんにちは。

文字の取り消し線のマクロについてですが、

*^C^C$m=setenv;to;0;$(nth,$(getenv,to),offset;;\;select;@;@;;undo;be;explode;@;"""$m=$(if,$(getvar,cmdactive),;)"""explode;@;"""""""$m=$(if,$(getvar,cmdactive),;)"""""""select;@;@;;setenv;to;1,,,,)$(nth,$(getenv,to),,scaletext;@;@;;$m="""$(if,$(getvar,cmdactive),,undo;e;u;list;;)"""e;s;1;ucs;e;@;sortents;127;line;non;@;non;@0.01<0;;extend;p;;@;@;;lengthen;dy;;;l;;;sortents;$(getvar,sortents);setenv;to;2,,,)$(nth,$(getenv,to),,,userr1;$(getvar,perimeter);sortents;127;line;mid;@;non;@0","0.01;;extend;p;;@;@;;lengthen;dy;;;l;;;sortents;$(getvar,sortents);ucs;e;l;erase;l;;;l;;setenv;to;3,,)$(nth,$(getenv,to),,,,line;non;"$(*,$(getvar,perimeter),0.37),$(/,$(getvar,userr1),2)";non;"@0,-$(getvar,userr1)";;select;l;;setenv;to;4,)$(nth,$(getenv,to),,,,,line;non;"$(*,$(getvar,perimeter),0.63),$(/,$(getvar,userr1),2)";non;"@0,-$(getvar,userr1)";;ucs;p;;p;copybase;0<0;p;l;;undo;e;u;pasteclip;non;0<0);

現在こちらを使用しております。
こちらですと、二重線なのですが
これを一本線の取り消し線にするには
どうしたらいいのでしょうか？？

CADは2015レギュラーです。

こうでしょうかねぇ
LT2019で確認です

*^C^C$m=setenv;to;0;$(nth,$(getenv,to),offset;;\;select;@;@;;undo;be;explode;@;"""$m=$(if,$(getvar,cmdactive),;)"""explode;@;"""""""$m=$(if,$(getvar,cmdactive),;)"""""""select;@;@;;setenv;to;1,,,)$(nth,$(getenv,to),,scaletext;@;@;;$m="""$(if,$(getvar,cmdactive),,undo;e;u;list;;)"""e;s;1;ucs;e;@;sortents;127;line;non;@;non;@0.01<0;;extend;p;;@;@;;lengthen;dy;;;l;;;sortents;$(getvar,sortents);setenv;to;2,,)$(nth,$(getenv,to),,,userr1;$(getvar,perimeter);sortents;127;line;mid;@;non;@0","0.01;;extend;p;;@;@;;lengthen;dy;;;l;;;sortents;$(getvar,sortents);ucs;e;l;erase;l;;;l;;setenv;to;3,)$(nth,$(getenv,to),,,,line;non;"$(*,$(getvar,perimeter),0.5),$(/,$(getvar,userr1),2)";non;"@0,-$(getvar,userr1)";;ucs;p;;p;copybase;non;0<0;l;;undo;e;u;pasteclip;non;0<0);

chibi-tom様
ありがとうございます！
できました！「