連続文字編集 Ver.2017 [2017.2.10追加]
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),ucs;d;9???;offset;;\;select;non;@;non;@;;copy;p;;non;@;non;@;erase;p;;select;l;;ucs;s;9000;;p;setenv;p1;9000;;to;2,,,,,)$(nth,$(getenv,to),,erase;p;\$m="""$(if,$(getvar,cmdactive),non;@;;oops;setenv;to;1;select;p;non;@;non;@;;setenv;to;2,oops;ucs;r;9000;setenv;to;3)""",,,,)$(nth,$(getenv,to),,,;p1;$(+,1,$(getenv,p1));;to;1;ucs;w;;n;non;$(getvar,lastpoint);;s;$(+,1,$(getenv,p1));;p;;p;;p;id;non;@,;to;$(if,$(=,$(getenv,p1),$(getvar,ucsname)),5,4;ucs;r;$(+,1,$(getvar,ucsname))),,)$(nth,$(getenv,to),,,,,zoom;c;0",-$(/,$(getvar,viewsize),4);;setvar;ucsicon;3;textedit;m;s;0,"0;setvar;ucsicon;$(getvar,ucsicon);setenv;to;$m="""$(if,$(getvar,diastat),3,5)""",ucs;r;9000;;d;9???)^M |
LT2017 動作確認済
連続文字編集 Ver.2013 [2015.2.10追加]
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),ucs;d;9???;offset;;\;select;non;@;non;@;;copy;p;;non;@;non;@;erase;p;;select;l;;ucs;s;9000;;p;setenv;p1;9000;;to;2,,,,,)$(nth,$(getenv,to),,erase;p;\$m="""$(if,$(getvar,cmdactive),non;@;;oops;setenv;to;1;select;p;non;@;non;@;;setenv;to;2,oops;ucs;r;9000;setenv;to;3)""",,,,)$(nth,$(getenv,to),,,;p1;$(+,1,$(getenv,p1));;to;1;ucs;w;;n;non;$(getvar,lastpoint);;s;$(+,1,$(getenv,p1));;p;;p;;p;id;non;@,;to;$(if,$(=,$(getenv,p1),$(getvar,ucsname)),5,4;ucs;r;$(+,1,$(getvar,ucsname))),,)$(nth,$(getenv,to),,,,,zoom;c;0",-$(/,$(getvar,viewsize),4);;setvar;ucsicon;3;ddedit;0,"0;;setvar;ucsicon;$(getvar,ucsicon);setenv;to;$m="""$(if,$(getvar,diastat),3,5)""",ucs;r;9000;;d;9???)^M |
LT2013 動作確認済
連続文字編集 Ver.2006 [2005.12.27修正]
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),ucs;d;9???;^Pcopy^P;\non;@;;non;@;non;@;erase;p;;select;non;@;;ucs;s;9000;;p;setenv;p1;9000;;to;2,extend;p;\@;;$m="""$(if,$(getvar,cmdactive),;setenv;to;2,ucs;r;9000;setenv;to;3)""",,,,)$(nth,$(getenv,to),,,;p1;$(+,1,$(getenv,p1));;to;1;ucs;w;;n;non;@;;s;$(+,1,$(getenv,p1));;p;;p;;p,;to;$(if,$(=,$(getenv,p1),$(getvar,ucsname)),5,4;ucs;r;$(+,1,$(getvar,ucsname))),,)$(nth,$(getenv,to),,,,,zoom;c;0",-$(/,$(getvar,viewsize),4);;setvar;ucsicon;3;ddedit;0,"0;;setvar;ucsicon;$(getvar,ucsicon);setenv;to;$m="""$(if,$(getvar,diastat),3,5)""",0;ucs;r;9000;;d;9???)^M |
R2006/LT2006/LT2000 動作確認済
●使い方
１．編集したい文字を次々(複数)と選択
後は編集していくだけ
▲注意
選択文字数は、UCSの登録限界となっています
他は特に無し
■更新履歴
・2017.2.10 ﾊﾞｰｼﾞｮﾝ2017に対応
掲示板にて、Lonさんに修正及び検証して頂きました。
・2015.2.1 ﾊﾞｰｼﾞｮﾝ2013に対応
・2005.12.27 ﾊﾞｰｼﾞｮﾝ2006に対応
2006ではストレッチコマンドの仕様変更有り。
ダミーコマンドに、ストレッチコマンド(stretch)を使っていましたが
今回のマクロでは、コピーコマンド(copy)をダミーとして使用。
^Pcopy^P;\non;@;;non;@;non;@;erase;p;;
又、トリムコマンド(Trim)で直前選択させている為
select;non;@;; を追加。
by totthi
基礎から学ぶAutoCAD 2005 実践編 (ヒューマンアカデミーProfessional養.../ヒューマンアカデミー
￥3,675
Amazon.co.jp
↓旧バージョン↓
連続文字編集
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),ucs;d;9???;^Pstretch^P;\@;;ucs;s;9000;;p;setenv;p1;9000;;to;2,trim;p;\@;;$m="""$(if,$(getvar,cmdactive),;setenv;to;2,ucs;r;9000;setenv;to;3)""",,,,)$(nth,$(getenv,to),,,;p1;$(+,1,$(getenv,p1));;to;1;ucs;w;;n;non;@;;s;$(+,1,$(getenv,p1));;p;;p;;p,;to;$(if,$(=,$(getenv,p1),$(getvar,ucsname)),5,4;ucs;r;$(+,1,$(getvar,ucsname))),,)$(nth,$(getenv,to),,,,,zoom;c;0",-$(/,$(getvar,viewsize),4);;setvar;ucsicon;3;ddedit;0,"0;;setvar;ucsicon;$(getvar,ucsicon);setenv;to;$m="""$(if,$(getvar,diastat),3,5)""",0;ucs;r;9000;;d;9???)^M |
LT2000 動作確認済
●使い方
１．編集したい文字を次々(複数)と選択
後は編集していくだけ
▲注意
選択文字数は、UCSの登録限界となっています
他は特に無し
■コメント
衝撃的なマクロの１つ!!
本当に凄いし便利です。
このマクロを作られた先生方に感謝します。
by totthi
基礎から学ぶAutoCAD 2005 実践編 (ヒューマンアカデミーProfessional養.../ヒューマンアカデミー
￥3,675
Amazon.co.jp