とりあえず作ってみました。実用性無いと思うけど。
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;cv;$(getenv,CreateViewports);select;\undo;be;zoom;o;p;;copybase;non;0<0;p;;zoom;p;setenv;to;1,,,)$(nth,$(getenv,to),,;to;2;;CreateViewports;0;-layout;n;LO_PL;;s;LO_PL;pasteclip;non;0<0;zoom;e;-layer;n;LY_PL;f;LY_PL;;ucs;e;l;id;non;0<0;ucs;p,,)$(nth,$(getenv,to),,,;to;3;select;l;;ucs;e;l;line;non;@;non;0<0;;ucs;p;chprop;l;;la;LY_PL;;erase;l;;setenv;to;2,)$(nth,$(getenv,to),,,,-layer;t;LY_PL;;pedit;m;all;;j;;;copybase;non;0<0;l;;erase;l;;-layout;s;Model;;d;LO_PL;setenv;CreateViewports;$(getenv,cv);pasteclip;non;0<0;chprop;l;;la;$(getvar,clayer);;^Cundo;e)^M
使い方
①マクロ実行
②円を2個以上選択
但し、円の順番はCAD任せ。
(どんな順番で線をつないで良いのか判らないので。)
例えば、「X座標の小さい順」とかなら出来なくはないかもしれないが、(私が出来るとは言わない)
任意の順番であるなら、その順番はあなたしか判らない。
つなぐ順番を1個づつ円をクリックして指示するのなら、マクロなんて必要ない。
オブジェクトスナップの「中心」だけを有効にしておけば出来ますから。
- lon
- 2018/12/11 (Tue) 17:51:17