隠れ線処理 [2007.4.11修正]
| *^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;$(*,$(getvar,dimscale),0.5);,,,)$(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;$(*,$(getvar,dimscale),0.5);;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 |
LT2000/LT2004/LT2006 動作確認済
●使い方
１．オブジェクトの破線にする部分を選択
２．交点の１点目指定
３．交点の２点目指定
▲注意
１．マクロが長い為、カスタマイズダイアログに貼り付け出来ない場合は
メニューファイルに直接貼り付けて下さい。
■コメント
旧バージョンのマクロでは、円を選択した時に
たまに、破線がずれたりする事が有りました。
今回のバージョンでは、マクロ的に少し精度を上げました。
AutoCADのコツ/三角 照夫
￥3,780
Amazon.co.jp
↓↓↓旧バージョン↓↓↓
隠れ線処理 [2005.11.22修正]
| *^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;\@;;non;$(getenv,p0);f;\@;chprop;$(getenv,p0);;lt;HIDDEN;S;$(*,$(getvar,dimscale),0.5);,,,)$(nth,$(getenv,to),,,,,move;@;;\@;setenv;p1;$M="""$(getvar,lastpoint)^H^H""";move;p;;\@;setenv;to;5,;p2;$(getvar,lastpoint)^H^H;arc;@;nea;$(getenv,p0);$(getenv,p1);chprop;L;;lt;HIDDEN;S;$(*,$(getvar,dimscale),0.5);;setenv;to;6,)$(nth,$(getenv,to),,,,,,,copybase;$(getenv,p2);L;;erase;L;;line;$(getenv,p1);$(getenv,p2);;trim;L;;$(getenv,p0);;erase;p;;pasteclip;$(getenv,p2))^M |
LT2000/LT2004/LT2006 動作確認済
●使い方
１．オブジェクトの破線にする部分を選択
２．交点の１点目指定
３．交点の２点目指定
▲注意
１．マクロが長い為、メニューファイルに直接コピペして下さい。
■コメント
旧バージョンのマクロでは、寸法スタイル管理の
「円の中心マーク」を"「なし」"以外に設定していないと
動作しなかった部分を、修正しました!!
AutoCADのコツ/三角 照夫
￥3,780
Amazon.co.jp
↓↓↓旧バージョン↓↓↓
隠れ線処理
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),copy;^X\non;@;;non;@;non;@;erase;p;;dimcenter;@;$m="""$(if,$(getvar,cmdactive),;setenv;to;1,u;setenv;to;2);;p0;$(getvar,lastpoint)^H^H""",,,,)$(nth,$(getenv,to),,break;@;f;\@;;$M="""$(getenv,p0)""";f;\@;chprop;$M="""$(getenv,p0)""";;lt;HIDDEN;S;$(*,$(getvar,dimscale),0.5);,move;@;;\@;$M=setenv;p1;"""$(getvar,lastpoint)^H^H""";move;p;;\@;setenv;to;3,,)$(nth,$(getenv,to),,,,;p2;$(getvar,lastpoint)^H^H;arc;@;nea;$(getenv,p0);$(getenv,p1);chprop;$(getenv,p0);;lt;HIDDEN;S;$(*,$(getvar,dimscale),0.5);;setenv;to;4,)$(nth,$(getenv,to),,,,,copybase;$(getenv,p2);L;;erase;L;;line;$(getenv,p1);$(getenv,p2);;trim;L;;$(getenv,p0);;erase;p;;pasteclip;$(getenv,p2))^M |
LT2000 動作確認済
●使い方
１．オブジェクトの破線にする部分を選択
２．交点の１点目指定
３．交点の２点目指定
▲注意
１．寸法スタイル管理の「円の中心マーク」を"「なし」"以外にしておいてください。
２．マクロが長い為、メニューファイルに直接コピペして下さい。
■コメント
かずぼ～大先生のマクロを元に
オイラが隠れ線処理にしてみました!!(￣∀￣)
これも、かなり便利なマクロです♪
AutoCADのコツ/三角 照夫
￥3,780
Amazon.co.jp