尺度変更
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),select;$M="""$(if,$(getvar,CMDACTIVE),\,)"""setenv;to;1,dist;$(if,$(eq,$(getvar,distance),0),1,$(getvar,distance));setenv;to;2,,,,,)$(nth,$(getenv,to),,,scale;p;;\1;dist;^X尺度を指定<$(getvar,distance)>：または［参照(左ｸﾘｯｸ)］^X\$M="""$(if,$(getvar,cmdactive),;scale;p;;@;r;@;\\setenv;ss;0;;to;4,setenv;to;3)""",scale;p;;@;$(getvar,distance);setenv;ss;1;;to;4,,,)$(nth,$(getenv,to),,,,,offset;;^Xｵﾌﾞｼﾞｪｸﾄを選択：［元に戻す(右ｸﾘｯｸ)］^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;5,setenv;to;6)""",select;@;\setenv;to;1,undo;$(nth,$(getenv,ss),4,5))^M |
LT2000 動作確認済
●使い方
１．オブジェクトを選択
２．基点を指定
３．尺度を数値指定 →１へ
又は、左クリックで、[参照] →４へ
４．参照の２点目を指定
５．新しい長さを指定 →１へ
▲注意
１．マクロが長い為、メニューファイルに直接コピペして下さい
■コメント
通常の数値記入尺度変更と、参照尺度変更を簡単にしました。
通常用に御利用下さい。
速攻解決AutoCAD LT逆引きリファレンス―2012/2011/2010/2009/200.../ソシム
￥3,570
Amazon.co.jp