| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),select;$M="""$(if,$(getvar,cmdactive),\,)"""setenv;sw;0;;to;1,,,)$(nth,$(getenv,to),,textalignmode;$(nth,$(getenv,sw),9,10,11);ray;^X現在設定＝$(nth,$(getenv,sw),左,中,右)【OK(左ｸﾘｯｸ)/NO(Enter)】^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;3,setenv;to;2)""",,)$(nth,$(getenv,to),,,;sw;$(nth,$(getenv,sw),1,2,0);;to;1,)$(nth,$(getenv,to),,,,TEXTALIGN;p;;p;non;@;\select;\setenv;to;1)^M |
2022 動作確認済
●使い方
１．文字の選択（複数可）
２．現在設定＝左【OK(左ｸﾘｯｸ)/NO(Enter)】
※左クリックで３へ
※右クリックで、左→中→右
３．位置合わせの位置を指定
４．位置合わせの方向を指定
※繰り返し１へ
▲注意
今のところなし
■更新履歴
・2022.5.20 UP
マクロ屋掲示板「右クリックで位置合わせ変更」にてLonさん作成
※「TEXTALIGN」コマンドの無い以前のバージョンは以下をご利用ください。
↓以前のマクロも2022動作確認済み
文字基点自動整列 [2009/2/11 UP]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),xline;$(if,$(getenv,sw),h,v);\$M="""$(if,$(getvar,cmdactive),;erase;l;;-layout;d;T-S;setenv;to;1,setenv;sw;$(if,$(getenv,sw),0,1))""",,,,,)$(nth,$(getenv,to),,;cv;$(getenv,CreateViewports);;to;2;;p0;$(getvar,lastpoint);select;\zoom;e;copybase;non;$(getvar,lastpoint);p;;erase;p;,;to;3;;CreateViewports;0;-layout;n;T-S;;s;T-S;pasteblock;non;0<0;zoom;a;explode;l,,,)$(nth,$(getenv,to),,,,;to;5;select;l;;ucs;ob;l;;o;ins;0<0;ucs;p;;p;id;ins;@;setenv;to;4,,)$(nth,$(getenv,to),,,,,;to;3;move;l;;non;@;non;$(if,$(getenv,sw),$(index,0,$(getvar,lastpoint)),0)","$(if,$(getenv,sw),0,$(index,1,$(getvar,lastpoint)));copybase;non;0<0;p;;erase;p;;-layout;s;Model;pasteclip;non;$(getenv,p0);-layout;s;T-S,)$(nth,$(getenv,to),,,,,,-layout;s;Model;;d;T-S;setenv;CreateViewports;$(getenv,cv))^M |
LT2004 R2005/R2006 動作確認済
LT2013 動作確認済み ※2015/2/10追記
LT2022 動作確認済み ※2022/5/20追記
●使い方
１．文字の整列方向指定 [初期値：垂直]
※右クリックで垂直/水平切替
２．文字を選択（複数可）
３．文字の位置合わせを基点に整列
※繰り返し１へ
▲注意
１．ズームコマンドの、オプション"O(ｵﾌﾞｼﾞｪｸﾄ)"が無いバージョンでは使用できません。
２．マルチテキストには対応していません。ご注意下さい。
３．マクロが長い為、カスタマイズダイアログに貼付け出来ない場合は
メニューファイルに直接貼り付けて下さい。
４．レイアウト名「T-S」をダミーで使用しています。
作業上、上記のレイアウトを使われる場合は、マクロ中の「T-S」を
変更して下さい。
５．マクロ実行中は、画面がチラつきますので、凝視しない様お願い致します。
６．選択した文字の数が多すぎると、まれに整列されない文字が出ます。
■コメント
自分の作業上、文字を整列させるコトがあり、
１コづつ並べるのが面倒なので作ってみた。
結構便利です♪
すぐわかるSUPER AutoCAD LT らくらく操作マスター 2012/2011対応/アスキー・メディアワークス
￥2,940
Amazon.co.jp