AutoCADマクロ屋本舗 掲示板

とってぃ様

R2014にて54.隠れ線処理を使わせていただいています。

マクロ実行後の破線になる線の色をByLayer、画層を隠線、線種をByLayer、
線種尺度を環境変数に関わらずいつも１にすることはできますでしょうか。

よろしくお願いいたします。

こんな感じでしょうか。


♪隠れ線処理（色：ByLayer/画層：隠線/線種：ByLayer/線種尺度：1）
*^C^C$m=setenv;to;0;$(nth,$(getenv,to),-layer;n;隠線;;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);;C;ByLayer;LA;隠線;lt;ByLayer;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;;C;ByLayer;LA;隠線;lt;ByLayer;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


2013にて動作確認済み。

動作しました。

早速のご対応ありがとうございました。

横から失礼いたします。

上記のマクロでは
隠れ線の画層は「隠線」ですが、
「現在画層」にしたい場合はどのような記述になりますでしょうか。

よろしくお願いします。

LT 2018です

マクロ中２か所にある

C;ByLayer;LA;隠線;lt;ByLayer;

この部分を

C;ByLayer;lt;ByLayer;

この様にしてお試しください。

ありがとうございます！

画層の指定を削除することで
現在画層になるのですね。
勉強になります。