ブログ記事379件
[153]円中心線自動作図*^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