角度分割 構築線 Ver.2015 [2015.2.11追加]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),offset;;^Xｵﾌﾞｼﾞｪｸﾄ選択^X\;select;nea;@;nea;@;;setenv;p1;$M="""$(getvar,lastpoint)^H^H""";;to;1,offset;;^X2つ目のｵﾌﾞｼﾞｪｸﾄ選択^X\;setenv;to;1;select;nea;@;nea;@;;setenv;p2;$M="""$(getvar,lastpoint)^H^H""";;to;2,,,,,,)$(nth,$(getenv,to),,,;bk;分割数^X\zoom;non;@;non;$(getenv,p1);id;int;$(getenv,p1);$(getenv,p2);setenv;p0;$M="""$(getvar,lastpoint)^h^h""";;to;3,,,,,)$(nth,$(getenv,to),,,,dist;non;$(getenv,p1);non;$(getenv,p0);arc;nea;$(getenv,p1);c;$(getenv,p0);nea;$(getenv,p2);setenv;to;4,,,,)$(nth,$(getenv,to),,,,,lengthen;L;;;;erase;L;;setenv;ro;$M="""$(/,$(*,$(getvar,perimeter),180),$(*,$(getvar,distance),3.14159265))""";;to;5,;ro;$(if,$(<,180,$(getenv,ro)),$(-,$(getenv,ro),360),);;to;6,,)$(nth,$(getenv,to),,,,,,,-layer;n;XLine;P;N;XLine;;xline;non;$(getenv,p0);non;$(getenv,p1);;chprop;L;;LA;XLine;C;5;;-array;p;;P;non;$(getenv,p0);$(+,$(getenv,bk),1);$(getenv,ro);y;erase;p;L;;zoom;p)^M |
LT2015 動作確認済 ※LT2013未動作
角度分割 構築線 [2006.6.14修正]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),offset;;^Xｵﾌﾞｼﾞｪｸﾄ選択^X\;select;nea;@;nea;@;;setenv;p1;$M="""$(getvar,lastpoint)^H^H""";;to;1,offset;;^X2つ目のｵﾌﾞｼﾞｪｸﾄ選択^X\;setenv;to;1;select;nea;@;nea;@;;setenv;p2;$M="""$(getvar,lastpoint)^H^H""";;to;2,,,,,,)$(nth,$(getenv,to),,,;bk;分割数^X\zoom;non;@;non;$(getenv,p1);id;int;$(getenv,p1);$(getenv,p2);setenv;p0;$M="""$(getvar,lastpoint)^h^h""";;to;3,,,,,)$(nth,$(getenv,to),,,,dist;non;$(getenv,p1);non;$(getenv,p0);arc;nea;$(getenv,p1);c;$(getenv,p0);nea;$(getenv,p2);setenv;to;4,,,,)$(nth,$(getenv,to),,,,,lengthen;L;;erase;L;;setenv;ro;$M="""$(/,$(*,$(getvar,perimeter),180),$(*,$(getvar,distance),3.14159265))""";;to;5,;ro;$(if,$(<,180,$(getenv,ro)),$(-,$(getenv,ro),360),);;to;6,,)$(nth,$(getenv,to),,,,,,,-layer;n;XLine;P;N;XLine;;xline;non;$(getenv,p0);non;$(getenv,p1);;chprop;L;;LA;XLine;C;5;;-array;p;;P;non;$(getenv,p0);$(+,$(getenv,bk),1);$(getenv,ro);y;erase;p;L;;zoom;p)^M |
LT2000 動作確認済
LT2013 動作確認済 ※2015/2/11追記
●使い方
１．１つ目のオブジェクトを選択
２．２つ目のオブジェクトを選択
３．分割数記入
▲注意
１．選択するオブジェクトが何重かになっている場合、うまく作図されないことがあります。
２．分割数には２以上の数値を入れてください。
３．同角度のオブジェクトには対応していません。
４．マクロが長い為、メニューファイルに直接コピペして下さい。
５．画層「XLine」が作成され、構築線は画層「XLine」に描かれます。
■コメント
２つのオブジェクトを等分する構築線作成♪
修正し、ミスピックに対応させました。
ちなみに･･･
現在の画層に作成される構築線の場合･･･
こちら↓
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),offset;;^Xｵﾌﾞｼﾞｪｸﾄ選択^X\;select;nea;@;nea;@;;setenv;p1;$M="""$(getvar,lastpoint)^H^H""";;to;1,offset;;^X2つ目のｵﾌﾞｼﾞｪｸﾄ選択^X\;setenv;to;1;select;nea;@;nea;@;;setenv;p2;$M="""$(getvar,lastpoint)^H^H""";;to;2,,,,,,)$(nth,$(getenv,to),,,;bk;分割数^X\zoom;non;@;non;$(getenv,p1);id;int;$(getenv,p1);$(getenv,p2);setenv;p0;$M="""$(getvar,lastpoint)^h^h""";;to;3,,,,,)$(nth,$(getenv,to),,,,dist;non;$(getenv,p1);non;$(getenv,p0);arc;nea;$(getenv,p1);c;$(getenv,p0);nea;$(getenv,p2);setenv;to;4,,,,)$(nth,$(getenv,to),,,,,lengthen;L;;erase;L;;setenv;ro;$M="""$(/,$(*,$(getvar,perimeter),180),$(*,$(getvar,distance),3.14159265))""";;to;5,;ro;$(if,$(<,180,$(getenv,ro)),$(-,$(getenv,ro),360),);;to;6,,)$(nth,$(getenv,to),,,,,,,xline;non;$(getenv,p0);non;$(getenv,p1);;-array;l;;P;non;$(getenv,p0);$(+,$(getenv,bk),1);$(getenv,ro);y;erase;p;L;;zoom;p)^M |
LT2000 動作確認済
by totthi
AutoCADのコツ/三角 照夫
￥3,780
Amazon.co.jp
【旧バージョン】
２等分角構築線
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),-layer;n;XLine;P;N;XLine;;offset;;【１つ目】^X\;select;@;;$M="""$(if,$(getvar,cmdactive),@;L;;setenv;to;0,setenv;to;1)""",;p1;$(getvar,lastpoint)^H^H;;to;2,,,)$(nth,$(getenv,to),,,offset;;【２つ目】^X\;select;@;;$M="""$(if,$(getvar,cmdactive),@;L;;setenv;to;2,setenv;to;3)""",;p2;$(getvar,lastpoint)^H^H;;to;4,)$(nth,$(getenv,to),,,,,xline;b;int;$(getenv,p1);$(getenv,p2);nea;$(getenv,p1);nea;$(getenv,p2);;chprop;L;;C;5;LA;XLine;)^M |
LT2000 動作確認済
●使い方
１．１つ目のオブジェクトを選択
２．２つ目のオブジェクトを選択
▲注意
角度の異なる２つのオブジェクトを選択して下さい。
平行な２つのオブジェクトを選択しないで下さい。
■コメント
２つのオブジェクトを２等分した構築線を作図します♪
過去に何度か紹介したけど、
マクロを極力短くしてみました(￣∀￣)
ミスピックにも対応してます♪
by totthi
AutoCADのコツ/三角 照夫
￥3,780
Amazon.co.jp