整列ストレッチ
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),;sw;0;;to;1,,)$(nth,$(getenv,to),,xline;$(if,$(getenv,sw),H,V);\$m="""$(if,$(getvar,cmdactive),;erase;l;;setenv;p1;$(getvar,lastpoint);;to;2,setenv;sw;$(if,$(getenv,sw),0,1);;to;1)""",)$(nth,$(getenv,to),,,stretch;c;\\;\$(if,$(getenv,sw),.y,.x);$(getenv,p1);$(if,$(getenv,sw),.x,.y);$M="""$(getvar,lastpoint)""";0;setenv;to;2)^M |
LT2000 動作確認済
●使い方
１．基準線を指定
（右クリックで水平/垂直方向切替）
２．ストレッチするオブジェクトを選択
３．基点を指定 → 繰返し２へ
▲注意
特に無し
■コメント
OSAさんからの御要望で、ちゃっぴぃさんが作成したマクロです。
ある任意点位置にオブジェクトを揃えます。
感謝♪
by totthi
超入門AutoCAD LT 2008から2009まで (エクスナレッジムック―CAD&CG M.../鳥谷部真
￥3,360
Amazon.co.jp
旧バージョン↓
整列ストレッチ
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),dist;^x方向選択【X側(L-Click)/Y側(R-Click)】^x\$M="""$(if,$(getvar,cmdactive),;setenv;in;0;;to;1,setenv;in;1;;to;1)""",id;延長位置を指定^x\setenv;xy1;$M="""$(index,$(if,$(eq,$(getenv,in),0),0,1),$(getvar,lastpoint))""";;to;2,,,)$(nth,$(getenv,to),,,id;基点を指定^x\setenv;xy2;$M="""$(index,$(if,$(eq,$(getenv,in),0),0,1),$(getvar,lastpoint))""";;to;$(if,$(eq,$(getenv,in),0),3,4),,)$(nth,$(getenv,to),,,,stretch;c;\\;$(getvar,lastpoint);@$(-,$(getenv,xy1),$(getenv,xy2))","0;setenv;to;2,)$(nth,$(getenv,to),,,,,stretch;c;\\;$(getvar,lastpoint);@0","$(-,$(getenv,xy1),$(getenv,xy2));setenv;to;2)^M |
LT2000 動作確認済
●使い方
１．ストレッチする方向を指定
左クリック→座標Ｘ側
右クリック→座標Ｙ側
２．ストレッチの延長位置を指定
３．選択するオブジェクトの基点を指定
４．オブジェクトを２点(交差)で指定 → 繰返し３へ
▲注意
１．マクロ長の為メニューファイルに直接コピペして下さい。
■コメント
OSAさんからの御要望で、自分が作成したマクロです･･･
意気揚揚と作成したのだが･･･長い上に勝手悪い･･･
by totthi
超入門AutoCAD LT 2008から2009まで (エクスナレッジムック―CAD&CG M.../鳥谷部真
￥3,360
Amazon.co.jp