AutoCADマクロ屋本舗 掲示板

１. AutoCADのバージョン　→　AutoCAD LT 2015

２. 「カウントアップマクロ」「文字記入しながらカウントアップマクロ（前回作成して頂きました）」の応用で…
　　　付加文字を前方にも後方にも付けたいのですが、可能でしょうか？
　　　カッコ付きの数値をカウントアップしたいのです。（1）→（2）→（3）…
　　　ご検討よろしくお願い致します。　

※現在、使用させて頂いているマクロを載せておきます。

「カウントアップマクロ」
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;c0;初期値;ray;^X文字付加［無(L)/付(R)］^X\$M="""$(if,$(getvar,cmdactive),;setenv;tt;0;;to;2,setenv;tt;1;;to;1)""",,,,,,)$(nth,$(getenv,to),,ray;^X文字付加［前方(L)/後方(R)］^X\$M="""$(if,$(getvar,cmdactive),;setenv;iti;0,setenv;iti;1)""";;TEXT;\;to;2,,,,,)$(nth,$(getenv,to),,,;c1;$(getenv,c0)^x\;Count;\;cu;$M="""$(getenv,c1)""";;to;3,offset;;^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;4,id;)""",,,)$(nth,$(getenv,to),,,,,;to;3;select;non;@;non;@;;setenv;to;5,,)$(nth,$(getenv,to),,,,,,;text2;$(if,$(getenv,iti),$(getenv,cu)$(getenv,TEXT),$(getenv,TEXT)$(getenv,cu));change;p;;;;;;;$M="""$(if,$(getenv,tt),$(getenv,text2),$(getenv,cu))""";setenv;to;6,;cu;$(+,$(getenv,cu),$(getenv,Count));;to;3)^M

「文字記入しながらカウントアップマクロ（前回作成して頂きました）」
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;c0;初期値;ray;^X文字付加［無(L)/付(R)］^X\$M="""$(if,$(getvar,cmdactive),;setenv;tt;0;;to;2,setenv;tt;1;;to;1)""",,,,,)$(nth,$(getenv,to),,ray;^X文字付加［前方(L)/後方(R)］^X\$M="""$(if,$(getvar,cmdactive),;setenv;iti;0,setenv;iti;1)""";;TEXT;\;to;2,,,,)$(nth,$(getenv,to),,,;c1;$(getenv,c0)^x\;Count;\;cu;$M="""$(getenv,c1)""";;to;3,,,)$(nth,$(getenv,to),,,,;text2;$(if,$(getenv,iti),$(getenv,cu)$(getenv,TEXT),$(getenv,TEXT)$(getenv,cu));setenv;to;4,,)$(nth,$(getenv,to),,,,,ray;文字列の始点を指定:^X\$M="""$(if,$(getvar,cmdactive),;-text;@;;;$M="""""""""$(if,$(getenv,tt),$(getenv,text2),$(getenv,cu))""""""""";setenv;to;5,setenv;to;0)""",)$(nth,$(getenv,to),,,,,,;cu;$(+,$(getenv,cu),$(getenv,Count));;to;3)^M

文章から判断して
かっこの有無だけで良いのかなと思ったので
簡略化しました。

「カウントアップマクロ」
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;c0;初期値;ray;かっこ［無(L)/付(R)］^X\$M="""$(if,$(getvar,cmdactive),;setenv;sw0;0,setenv;sw0;1)""";;to;1,,,,)$(nth,$(getenv,to),,;c1;$(getenv,c0)^X\;Count;\;cu;$M="""$(getenv,c1)""";;to;2,,,)$(nth,$(getenv,to),,,offset;;文字を選択^X\$M="""$(if,$(getvar,cmdactive),;select;non;@;non;@;;setenv;to;3,setenv;to;0)""",,)$(nth,$(getenv,to),,,,change;p;;;;;;;$M="""$(if,$(getenv,sw0),($(getenv,cu)),$(getenv,cu))""";setenv;to;4,;cu;$(+,$(getenv,cu),$(getenv,Count));;to;2)^M

「文字記入しながらカウントアップマクロ」
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;c0;初期値;ray;かっこ［無(L)/付(R)］^X\$M="""$(if,$(getvar,cmdactive),;setenv;sw0;0,setenv;sw0;1)""";;to;1,,,)$(nth,$(getenv,to),,;c1;$(getenv,c0)^X\;Count;\;cu;$M="""$(getenv,c1)""";;to;2,,)$(nth,$(getenv,to),,,ray;文字列の始点を指定:^X\$M="""$(if,$(getvar,cmdactive),;-text;@;;;$M="""""""""$(if,$(getenv,sw0),($(getenv,cu)),$(getenv,cu))""""""""";setenv;to;3,setenv;to;0)""",)$(nth,$(getenv,to),,,,;cu;$(+,$(getenv,cu),$(getenv,Count));;to;2)^M

これで、どうでしょうか？

chibi-tom 様

早速の作成、ありがとうございます☆
バッチリです！
取り急ぎ、これで作業が随分助かります。
ありがとうございます。

が、欲を出して。。。
今、半角カッコにして頂いているのですが、全角カッコにする事は可能ですか?
また、いろんなカッコに応用可能ですか？
マクロのどの部分を変更すれば応用可能とかありますか？

お時間良き時に対応よろしくお願い致します。

「カウントアップマクロ」
change;p;;;;;;;$M="""$(if,$(getenv,sw0),($(getenv,cu)),$(getenv,cu))""";

「文字記入しながらカウントアップマクロ」
-text;@;;;$M="""""""""$(if,$(getenv,sw0),($(getenv,cu)),$(getenv,cu))""""""""";

とりあえず、上記のこれ→($(getenv,cu))←これを変えればかっこが変わります

カッコ指定Ver

「カウントアップマクロ」
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;c0;初期値;;brc;();ray;カッコ［無(L)/付(R)］^X\$M="""$(if,$(getvar,cmdactive),;setenv;sw0;0,setenv;sw0;1)""";;to;1,,,,)$(nth,$(getenv,to),,;c1;$(getenv,c0)^X\;Count;\;cu;$M="""$(getenv,c1)""";$M="""$(if,$(getenv,sw0),;brc;カッコ指定<$(getenv,brc)>^X\,)""";to;2,,,)$(nth,$(getenv,to),,,offset;;文字を選択^X\$M="""$(if,$(getvar,cmdactive),;select;non;@;non;@;;setenv;to;3,setenv;to;0)""",,)$(nth,$(getenv,to),,,,change;p;;;;;;;$M="""$(if,$(getenv,sw0),$(substr,$(getenv,brc),1,1)$(getenv,cu)$(substr,$(getenv,brc),2),$(getenv,cu))""";setenv;to;4,;cu;$(+,$(getenv,cu),$(getenv,Count));;to;2)^M

「文字記入しながらカウントアップマクロ」
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;c0;初期値;;brc;();ray;カッコ［無(L)/付(R)］^X\$M="""$(if,$(getvar,cmdactive),;setenv;sw0;0,setenv;sw0;1)""";;to;1,,,)$(nth,$(getenv,to),,;c1;$(getenv,c0)^X\;Count;\;cu;$M="""$(getenv,c1)""";$M="""$(if,$(getenv,sw0),;brc;カッコ指定<$(getenv,brc)>^X\,)""";to;2,,)$(nth,$(getenv,to),,,ray;文字列の始点を指定:^X\$M="""$(if,$(getvar,cmdactive),;-text;@;;;$M="""""""""$(if,$(getenv,sw0),$(substr,$(getenv,brc),1,1)$(getenv,cu)$(substr,$(getenv,brc),2),$(getenv,cu))""""""""";setenv;to;3,setenv;to;0)""",)$(nth,$(getenv,to),,,,;cu;$(+,$(getenv,cu),$(getenv,Count));;to;2)^M

カッコの指定は初期値は半角カッコになっています。
記入時は(),（）,「」等、前後とも記入してください。

chibi-tom 様

更に早急に対応して頂き、ありがとうございます☆
バッチリです☆最高です☆
いろんな種類のカッコに出来るんですね！とても助かります。感動しております☆

※マクロの変更場所を教えて頂いたのですが。。。私がマクロをわからな過ぎて無理でした。
丁寧に教えて頂いたのに、大変申し訳ありません。

また、色々とお願いすると思いますが、よろしくお願い致します。
本当にありがとうございました☆

横からなのですが、
常に接頭辞と接尾辞を入れるようにして、特定の文字の場合(今回は「.」)は
書かないようすればいいと思います。
.1.などとしたい場合はhoge1hogeとして置換します。

*^C^C$M=setenv;to;0;$(if,$(=,$(getenv,to),0),;px;接頭語<$(getenv,px)>:^X\;sx;接尾語<$(getenv,sx)>:^X\;cnt;初期値<$(getenv,cnt)>:^X\;to;1)$(if,$(=,$(getenv,to),1),ray;\$M="""$(if,$(getvar,cmdactive),;setenv;to;2,^Cid;)""")$(if,$(=,$(getenv,to),2),-text;@;;;$(if,$(eq,.,$(getenv,px)),,$(getenv,px))$(getenv,cnt)$(if,$(eq,.,$(getenv,sx)),,$(getenv,sx));setenv;cnt;$(+,$(getenv,cnt),1);;to;1)^M