作ってみました。
♪基準点から距離指定する度円作図マクロ
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),xline;$(if,$(=,$(getenv,sw),0),v,h);^x^x基準点と方向を指定--方向切換(Rc)--^x\$M="""$(if,$(getvar,cmdactive),;erase;l;;setenv;c1;円の半径記入^x\;to;2,setenv;to;1)""",,,,)$(nth,$(getenv,to),,;sw;$(if,$(getenv,sw),0,1),;p0;$(getvar,lastpoint);;to;3,,)$(nth,$(getenv,to),,,,;to;0;;m1;基準位置からの距離指定^x\ucs;o;non;$(getenv,p0);circle;non;$M="""$(getenv,m1)"""<$(if,$(getenv,sw),E,N);$(getenv,c1);setenv;to;4,;to;3;-text;non;@$(getenv,c1)","$(getenv,c1);;0;$(getenv,m1);ucs;p)^M
●使い方
1.基準点と作図方向指定
※右クリックで水平⇔垂直方向切り替え
2.円の半径指定
3.基準点からの距離を指定 ⇒ 繰返し3へ
2013にて動作確認
お試しください。
- とってぃ
- 2017/09/06 (Wed) 11:13:42