FUKUDAさんこんにちは。
これでいいでしょうか。
①マクロ実行
②線種入力(例えば「hidden」)
③A点クリック、C点クリック
④方向が気に入らなければ、右クリック。 okなら何もしないで③へ
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;線種;\id;\setenv;to;1,,,,,,,)$(nth,$(getenv,to),,;X1;$M=$(index,0,$(getvar,lastpoint));;Y1;$(index,1,$(getvar,lastpoint));;to;2,,,,,,)$(nth,$(getenv,to),,,line;non;@;\;setenv;X2;$M="""$(index,0,$(getvar,lastpoint));;Y2;$(index,1,$(getvar,lastpoint))""";;to;3;erase;l;,,,,,)$(nth,$(getenv,to),,,,;sw;$(/,$(-,$(getenv,X1),$(getenv,X2)),$(-,$(getenv,Y1),$(getenv,Y2)));;sw;$M="""$(*,$(getenv,sw),$(getenv,sw))""";;to;4,,,,)$(nth,$(getenv,to),,,,,;to;$(if,$(>=,$(getenv,sw),1),6;;sw;$(+,$(getenv,sw),1),5),,,)$(nth,$(getenv,to),,,,,,;to;7;pline;non;$(getenv,X1)","$(getenv,Y1);non;$(getenv,X2)","$(/,$(+,$(getenv,Y2),$(getenv,Y1)),2);non;$(getenv,X1)","$(getenv,Y2);;chprop;l;;c;3;lt;$(getenv,線種);;explode;l;;,,)$(nth,$(getenv,to),,,,,,,;to;7;pline;non;$(getenv,X1)","$(getenv,Y1);non;$(/,$(+,$(getenv,X2),$(getenv,X1)),2)","$(getenv,Y2);non;$(getenv,X2)","$(getenv,Y1);;chprop;l;;c;3;lt;$(getenv,線種);;explode;l;;,)$(nth,$(getenv,to),,,,,,,,ray;\$M="""$(if,$(getvar,cmdactive),;setenv;to;1,erase;l;;;l;;setenv;sw;$(/,1,$(getenv,sw));;to;4)""")^M
- Lon
- 2017/10/06 (Fri) 17:20:02