88.ストレッチ(C/CP) | AutoCADマクロ屋本舗
[88]
ストレッチ[交差(C)/ポリゴン交差切替(CP)&ダイレクトストレッチ付]
*^C^C$m=setenv;to;0;$(nth,$(getenv,to),;sw;0;;to;1,,,stretch;$(nth,$(getenv,sw),C,CP);non;@;\r)$(nth,$(getenv,to),,^P$(if,$(getenv,sw),ray,lengthen)^P;^XStretch:$(nth,$(getenv,sw),C/Direct[CP(R-Click)],CP[C/Direct(R-Click)])^X\$m="""$(if,$(getvar,cmdactive),;setenv;to;2,setenv;sw;$(nth,$(getenv,sw),1,0);;to;1)""",,)$(nth,$(getenv,to),,,;to;3;$(if,$(=,1,$(getenv,sw)),list;;,)select;@;non;@;;setenv;to;0;id;end;@;stretch;c;non;@;non;@;r;all;a;p;;non;@;\setenv;to;1,)^M

※2007.7.11 ストレッチマクロ修正の為、別ファイルとして分離

LT2000/LT2004 R2005 動作確認済
※2006以降はダイレクトストレッチ不動作の為
 2006以降のバージョンをお使いの方は「120.ダイレクトストレッチ(2006以降版)」を参照願います。


●使い方
1.最初のコーナーを指定
 1)通常"Crossing"(交差)選択です。
AutoCADマクロ屋本舗-stretch1

 2)右クリック切替で"CPolygon"(ポリゴン交差)選択にもなります。 
AutoCADマクロ屋本舗-stretch2

 3)又、オブジェクトに直接触れた場合、
AutoCADマクロ屋本舗-stretch3

  そのオブジェクトの端点を取り、ダイレクトストレッチとなります。 → 5へ

2.もう一方のコーナーを指定
3.除外するオブジェクトを選択 (※無ければエンター/右クリック)
4.基点 または 移動距離を指定
5.目的点を指定

▲注意
1.R/LT2006ではストレッチコマンドの仕様変更がなされた為、対応していません。
  ダイレクトストレッチを使用したい場合は、「120.ダイレクトストレッチ(2006以降版)」を参照ください。

■コメント
多種多様なストレッチの使い方が、これ1つで行なえます!!
※「60.ストレッチ」と合わせて参照ください。



AutoCAD機械製図100題トレーニング/斎藤 美佳

¥3,360
Amazon.co.jp