文字回転移動[ｵﾌﾞｼﾞｪｸﾄ角度]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),;sw;0;;to;1,offset;;^X単一文字選択【$(if,$(getenv,sw),COPY,MOVE)】［切替(R-Click)］^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;2,setenv;sw;$(if,$(getenv,sw),0,1);;to;1)""",,,,)$(nth,$(getenv,to),,,;to;1;select;non;@;non;@;;explode;@;$M="""$(if,$(getvar,cmdactive),;,)"""ucs;ob;@;copybase;non;@;@;;ucs;p;setenv;p1;$(getvar,lastpoint);;to;3,,,)$(nth,$(getenv,to),,,,offset;;^X角度合せｵﾌﾞｼﾞｪｸﾄ指定^X\;setenv;to;3;select;non;@;non;@;;setenv;to;4,,)$(nth,$(getenv,to),,,,,$(if,$(getenv,sw),,erase;$(getenv,p1);;)ucs;ob;non;$(getvar,lastpoint);ucs;z;$m="""$(if,$(>,0.001,$(index,1,$(getvar,ucsydir))),180,0)""";setenv;to;5,)$(nth,$(getenv,to),,,,,,pasteclip;non;$(getvar,viewctr);ucs;p;;p;ucs;ob;@;id;non;0","0;ucs;p;copybase;non;@;L;;erase;p;;pasteclip;\setenv;to;1)^M |
LT2000 動作確認済
●使い方
１．文字オブジェクトを選択
右クリックで、COPY⇔MOVE 切替
２．角度を合わせるオブジェクトを選択
３．移動位置を指定
▲注意
１．マクロが長い為貼付け出来ない場合は
メニューファイルに直接コピペして下さい
■コメント
文字の角度を、選択したオブジェクトの角度に合わせ
コピーまたは移動させるマクロです。
デザインの学校 これからはじめるAutoCADの本 AutoCAD/AutoCAD LT 2.../稲葉 幸行
￥2,499
Amazon.co.jp