もしかして
> 1.グローバル線種尺度の設定は”0.1”・・・但し、変更の場合もあります。
> 2.選択された線自体の線種尺度は”1”にしたい。
ただの「1」で良いのかな?
とりあえず貼っておきます。
♪隠れ線処理(線種尺度1)
*^C^C$m=setenv;to;0;$(nth,$(getenv,to),copy;^X\non;@;;non;@;non;@;erase;p;;setenv;to;1,explode;non;@;$M="""$(if,$(getvar,cmdactive),;setenv;to;2,undo;;setenv;to;3);;p0;$(getvar,lastpoint)^H^H""",,,,,)$(nth,$(getenv,to),,,area;o;non;@;$m="""$(if,$(getvar,cmdactive),;setenv;to;3,setenv;to;4)""",break;non;@;f;int;\non;@;;non;$(getenv,p0);f;int;\non;@;chprop;non;$(getenv,p0);;lt;HIDDEN;S;1;,,,)$(nth,$(getenv,to),,,,,move;non;@;;int;\non;@;setenv;p1;$M="""$(getvar,lastpoint)^H^H""";move;p;;int;\non;@;setenv;to;5,,)$(nth,$(getenv,to),,,,,,;p2;$(getvar,lastpoint)^H^H;arc;non;@;nea;$(getenv,p0);non;$(getenv,p1);chprop;L;;lt;HIDDEN;S;1;;setenv;to;6,)$(nth,$(getenv,to),,,,,,,copybase;non;$(getenv,p2);L;;erase;L;;line;non;$(getenv,p1);non;$(getenv,p2);;trim;L;;non;$(getenv,p0);;erase;p;;pasteclip;non;$(getenv,p2))^M
- とってぃ
- 2016/11/01 (Tue) 13:17:22