AutoCADマクロ屋本舗 掲示板

お世話になります。以前こちらで下記のマクロを作成して頂き大変重宝しております。
このマクロを実行すると寸法値の下に"(カット寸法 )"というのがでます。
この部分だけをみどり色にしたいです。宜しく御願い致します。

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),pickadd;1;setenv;cut1;マイナス値:^X\move;寸法選択:^X\non;@;;non;@;non;@;setenv;to;1,,,,,)$(nth,$(getenv,to),,setenv;p1;$(getvar,lastpoint);;cv;$(getenv,CreateViewports);copybase;non;0<0;p;;setenv;CreateViewports;0;-layout;n;cut;;s;cut;pasteclip;non;0<0;zoom;e;setenv;to;2,,,,)$(nth,$(getenv,to),,,_cmddia;0;dim1;new;<>;l;;cmddia;1;dimoverride;dimsah;1;dimblk1;_none;dimblk2;_none;dimsoxd;1;dimtmove;2;;l;;explode;l;erase;l;;lengthen;l;DY;;erase;all;;setenv;to;3,,,)$(nth,$(getenv,to),,,,setenv;RL1;$M=$(rtos,$(-,$(getvar,perimeter),$(getenv,cut1)));setenv;to;4,,)$(nth,$(getenv,to),,,,,-layout;s;cut;pasteclip;non;0<0;zoom;e;setenv;to;5,)$(nth,$(getenv,to),,,,,,-layout;s;Model;_cmddia;0;dim1;new;<>^SX(カット寸法 $(rtos,$(getenv,RL1)));nea;$(getenv,p1);;cmddia;1;-layout;d;cut;setenv;CreateViewports;$(getenv,cv);setenv;to;0)^M

^SC3を追記すればできるのではないでしょうか？

<>^SX^SC3(カット寸法 $(rtos,$(getenv,RL1)));に変更してみてください

お返事有難う御座います。
"^SC3"追加してみました。
無事できました。有難う御座います。