作ってみました
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;r1;半径入力^X\;n1;個数入力^X\;to;1,,,,,,,)$(nth,$(getenv,to),,offset;;オブジェクト選択(R-Clickで終了)^X\$M="""$(if,$(getvar,CMDACTIVE),;setenv;to;1;select;non;@;non;@;;setenv;to;2,^Csetenv;to;0)""",,,,,,)$(nth,$(getenv,to),,,;p1;$(getvar,LASTPOINT);undo;be;explode;non;@;lengthen;non;@;dy;;setenv;to;3,,,,,)$(nth,$(getenv,to),,,,;l1;$(-,$(getvar,perimeter),$(getenv,r1));undo;e;u;setenv;to;4,,,,)$(nth,$(getenv,to),,,,,offset;;オブジェクト選択(R-Clickで終了)^X\$M="""$(if,$(getvar,CMDACTIVE),;setenv;to;4;select;non;@;non;@;;setenv;to;5,^Csetenv;to;0)""",,,)$(nth,$(getenv,to),,,,,,;p2;$(getvar,LASTPOINT);ucs;ob;non;$(getenv,p1);setenv;to;6,,)$(nth,$(getenv,to),,,,,,,circle;non;$(getenv,r1)","-$(getenv,r1);$(getenv,r1);copy;l;;non;$(getenv,r1)<E;a;$(getenv,n1);f;non;@$(getenv,l1)<E;ucs;p;setenv;to;7,)$(nth,$(getenv,to),,,,,,,,ucs;ob;non;$(getenv,p2);circle;non;$(getenv,r1)","$(getenv,r1);$(getenv,r1);copy;l;;non;$(getenv,r1)<E;a;$(getenv,n1);f;non;@$(getenv,l1)<E;ucs;p;setenv;to;0)^M
使用方法
1.マクロ起動
2.半径入力
3.個数入力
4.ポリラインの端点(提示画像の左上端点)付近をクリック
5.ポリラインの端点(提示画像の右下端点)付近をクリック
以上です
※、端点の指定順番を逆にするとできません
- chibi-tom
- 2024/04/19 (Fri) 12:37:49