１. AutoCADのバージョン → AutoCAD 2022
２. 以前、作成して頂いた下記4種類のﾏｸﾛをAutoCAD 2022でも動作するように修正お願いいたします。
（以前は、AutoCAD LT2019を使用していました。）
①「ｶｳﾝﾄｱｯﾌﾟ文字記入（文字有無選択）」
②「ｶｳﾝﾄｱｯﾌﾟ文字編集（文字有無選択）」
③「ｶｳﾝﾄｱｯﾌﾟ文字記入()付」
④「ｶｳﾝﾄｱｯﾌﾟ文字編集()付」
※以前のバージョンできちんと動作していたマクロを載せておきます。
①「ｶｳﾝﾄｱｯﾌﾟ文字記入（文字有無選択）」
*^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;^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;初期値;;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
④「ｶｳﾝﾄｱｯﾌﾟ文字編集()付」
*^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
ｶｳﾝﾄｱｯﾌﾟﾏｸﾛ4種類：ﾊﾞｰｼﾞｮﾝｱｯﾌﾟによる修正のお願い
- ひらめ
- 2022/07/28 (Thu) 19:57:18