オフセット構築線 Ver.2019 [2019/09/05 追加]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),offsetdist;^X\$M="""$(if,$(getvar,cmdactive),\,)"""setenv;so;$(getvar,sortents);;to;1,,,)$(nth,$(getenv,to),,;to;0;offset;;\;setenv;to;1;select;non;@;non;@;;copy;p;;non;@;non;@;erase;p;;setenv;p0;$M="""$(getvar,lastpoint)""";id;^x^xオフセットする側を指定:^x\setenv;to;2,,)$(nth,$(getenv,to),,,;to;3;undo;be;explode;l;$M="""$(if,$(getvar,cmdactive),;,)"""xline;o;$(getvar,offsetdist);non;$(getenv,p0);$(getvar,lastpoint);;-layer;n;XLine;P;N;XLine;;Change;l;;p;LA;XLine;C;5;,)$(nth,$(getenv,to),,,,copybase;non;0<0;l;;undo;e;u;pasteclip;non;0<0)^M |
2019 動作確認済
オフセット構築線
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),offsetdist;^X\$M="""$(if,$(getvar,cmdactive),\,)"""setenv;to;1,snapmode;0;offset;;\;snapmode;$(getvar,snapmode);select;non;@;;$M="""$(if,$(getvar,cmdactive),non;@;L;;setenv;to;1,setenv;to;2)""",,)$(nth,$(getenv,to),,,move;p;;non;ｵﾌｾｯﾄする側を指定：^X\non;@;$m=id;non;$(getvar,lastpoint);setenv;p2;"""$(getvar,lastpoint)""";;to;3,)$(nth,$(getenv,to),,,,-layer;n;XLine;P;N;XLine;;ucs;3;non;@;per;@;;Xline;V;nea;@;;Change;L;;p;LA;XLine;C;5;;ucs;p;offset;;@;non;$(getenv,p2);;erase;p;)^M |
2000 動作確認済
●使い方
１．オフセット間隔を点で指定 ⇒ 又は数値記入
２．オフセットするオブジェクトを選択
３．オフセットする方向を指定
▲注意
１．画層XLine（印刷不可）を自動で作成
２．構築線の色を青にしています
３．途中、スナップを解除してます
４．オフセットするオブジェクト選択時、まれにマクロが正常に
動作しないコトがあります。キャンセル後、やり直して下さい。
(システム変数には影響しません)
■更新履歴
・2019.09.05 Ver.2019追加
by totthi
はじめて学ぶAutoCAD LT 2011 作図・操作ガイド/鈴木 孝子
￥2,499
Amazon.co.jp