47.等分割構築線 | AutoCADマクロ屋本舗
[47]
等分割構築線
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;bk;2;;bk;分割数^X\-layer;n;XLine;P;N;XLine;;setenv;to;1,^Pray^P;[$(getenv,bk)分割]^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;2,setenv;to;0)""",,,)$(nth,$(getenv,to),,,line;@;per;\$M="""$(if,$(getvar,cmdactive),;ucs;ob;l;erase;l;;setenv;to;3,setenv;to;0)""",dist;non;@;non;0","0;xline;h;non;0","0;;change;l;;p;la;XLine;C;5;;rotate;p;;non;@;90;setenv;to;4,)$(nth,$(getenv,to),,,,,-array;p;;r;1;$(getenv,bk);$(/,$(getvar,distance),$(getenv,bk));erase;p;;ucs;p;setenv;to;1)^M


LT2000 動作確認済

●使い方
1.分割数を指定
  ※開始時は常に2分割
2.1点目を指定
  ※右クリックで1へ
3.2点目を指定
  ※右クリックで1へ

▲注意
1.画層XLine(印刷不可)を自動で作成
2.構築線の色を青にしています

■コメント
2点間を構築線で等分割します!!

これがあったら、「2.中間オフセット構築線」って必要無いかも?(^^;

by totthi

7日でおぼえるAutoCADL AutoCAD LT2011/2010/2009/2008/2.../鳥谷部 真

¥3,360
Amazon.co.jp