円中心線自動作図
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),offset;;\;select;non;@;non;@;;line;nea;@;cen;@;;lengthen;l;;erase;l;;setenv;to;1,;l1;$(getvar,perimeter);;to;2;ucs;o;$(getvar,lastpoint),,)$(nth,$(getenv,to),,,;to;3;line;non;-$(*,$(getenv,l1),1.3)<0;non;$(*,$(getenv,l1),1.3)<0;;chprop;l;;LT;CENTER;C;1;,copy;l;;non;@;non;@;rotate;l;;non;0<0;90;ucs;p)^M |
2012/2013 動作確認済
●使い方
１．円オブジェクト選択 ⇒ 繰返し
※線色：RED / 線種：CENTER / 中心線の長さ：直径の1.3倍 で中心線記入
▲注意
１．円以外のオブジェクトを選択しないで下さい。
■更新履歴
・2018.07.04 rotetoコマンド部にnon追加修正
・2018.05.24 UP