ニ点間交点自動分割 [2006.10.2修正]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),^Pcopy^P;\non;@;;non;@;non;@;erase;p;;setenv;sw;0;;so;$(getvar,sortents);;ed;$(getvar,edgemode);id;int;\ucs;w;setenv;p1;$M="""$(getvar,lastpoint)""";;to;1;ucs;p;line;non;@;int;\;ucs;w,,,,,,)$(nth,$(getenv,to),,;p2;$(getvar,lastpoint);ucs;p;;ob;l;lengthen;l;;erase;l;;sortents;127;edgemode;0;setenv;la;$M="""$(getvar,perimeter)""";;to;2,,,,,)$(nth,$(getenv,to),,,zoom;c;non;$(/,$(getenv,la),2)<0;$(getenv,la);break;non;0<0;non;$(getenv,la)<0;line;non;0<0;non;0.01<0;;painter;non;$(+,$(getenv,la),0.01)<0;l;;setenv;to;3,,,,)$(nth,$(getenv,to),,,,extend;f;non;0<0;non;$(getenv,la)<0;;;non;$(if,$(getenv,sw),@$(/,$(getvar,perimeter),5)<180,0.01<0);;break;non;$(getvar,lastpoint);non;@;lengthen;l;;id;non;@$M="""$(getvar,perimeter)"""<0;setenv;sw;1;;to;4,,)$(nth,$(getenv,to),,,,,ucs;w;dist;non;@;non;$(getenv,p2);ucs;p;setenv;to;$M="""$(if,$(getvar,distance),3,5)""",ucs;p;sortents;$(getenv,so);edgemode;$(getenv,ed))^M |
LT2000/LT2004 動作確認済
●使い方
１．分割するオブジェクトを選択
２．分割する交点の１点目を指定
３．分割する最後の交点を指定
▲注意
１．マクロが長い為、メニューファイルに直接コピペして下さい
■コメント
前バージョンでは、表示順序を最前面にしてた為
画面がチラついていましたが、今回その部分を修正しました。
動作が不安定でしたら、以下の前バージョンをお試し下さい。
AutoCAD LT2000機械製図/理工学社
￥2,961
Amazon.co.jp
↓↓↓前バージョン↓↓↓
ニ点間交点自動分割
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),^Pmove^P;\non;@;;non;@;non;@;draworder;p;;f;setenv;sw;0;;so;$(getvar,sortents);;ed;$(getvar,edgemode);id;int;\ucs;w;setenv;p1;$M="""$(getvar,lastpoint)""";;to;1;ucs;p;line;non;@;int;\;ucs;w,,,,,,)$(nth,$(getenv,to),,;p2;$(getvar,lastpoint);ucs;p;;ob;l;lengthen;l;;erase;l;;sortents;127;edgemode;0;setenv;la;$M="""$(getvar,perimeter)""";;to;2,,,,,)$(nth,$(getenv,to),,,zoom;c;non;$(/,$(getenv,la),2)<0;$(getenv,la);break;non;0<0;non;$(getenv,la)<0;line;non;0<0;non;0.01<0;;painter;non;$(+,$(getenv,la),0.01)<0;l;;setenv;to;3,,,,)$(nth,$(getenv,to),,,,extend;f;non;0<0;non;$(getenv,la)<0;;;non;$(if,$(getenv,sw),@$(/,$(getvar,perimeter),5)<180,0.01<0);;break;non;$(getvar,lastpoint);non;@;lengthen;l;;id;non;@$M="""$(getvar,perimeter)"""<0;setenv;sw;1;;to;4,,)$(nth,$(getenv,to),,,,,ucs;w;dist;non;@;non;$(getenv,p2);ucs;p;setenv;to;$M="""$(if,$(getvar,distance),3,5)""",ucs;p;sortents;$(getenv,so);edgemode;$(getenv,ed))^M |
LT2000/LT2004 動作確認済
●使い方
１．分割するオブジェクトを選択
２．分割する交点の１点目を指定
３．分割する最後の交点を指定
▲注意
１．マクロが長い為、メニューファイルに直接コピペして下さい
■コメント
某掲示板にあったマクロを改良♪
選択した２点間の線上にある交点全てを分割します。
AutoCAD LT2000機械製図/理工学社
￥2,961
Amazon.co.jp