35.エンター連続オフセット | AutoCADマクロ屋本舗
[35]
エンター連続オフセット
*^C^C$m=setenv;to;0;$(nth,$(getenv,to),setenv;OFFSET;\;c1;$M="""$(getenv,OFFSET)""";select;si;\setenv;to;1,;to;0;setenv;p1;$(getvar,lastpoint);id;non;^Xオフセットする側の点を指定^X\setenv;p2;"""$m=$(getvar,lastpoint)""";;to;2,,)$(nth,$(getenv,to),,,;to;0;sortents;0;move;p;;@;@;offset;$(getenv,c1);$(getenv,p1);$(getenv,p2);;sortents;$(getvar,sortents);setenv;OFFSET;\;c1;"""$m=$(+,$(getenv,c1),$(getenv,OFFSET))""";;to;2)^M


LT2000/LT2004 動作確認済

●使い方
1.OFFSET値記入
2.オフセットするオブジェクト選択
3.オフセットする方向指定
4.エンターまたは数値記入する度にオフセット
 ※常に、直前にオフセットされたオブジェクトからの、オフセットとなります。

▲注意
特に無し

■コメント
元ネタは自分じゃありませんが
修正して、LT2004確認済みです♪
(協力:ぱとれーぜさん)

by totthi


図面って、どない描くねん!―現場設計者が教えるはじめての機械製図/山田 学

¥2,310
Amazon.co.jp