円弧(円弧長・中心・半径) [2017/3/7修正]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),;a1;円弧長記入^X\id;\setenv;p1;$M="""$(getvar,lastpoint)""";setenv;to;1,dist;non;@;または半径記入<$(getvar,distance)>^X\ucs;o;$(getvar,viewctr);setenv;to;2,,)$(nth,$(getenv,to),,,arc;non;$(getvar,distance)<0;c;non;0<0;a;$(/,$(*,$(getenv,a1),180),$(*,$(getvar,distance),3.14159265));setenv;to;3,copybase;non;@;L;;erase;L;;ucs;p;pasteclip;non;$(getenv,p1);rotate;L;;non;@;\setenv;to;0)^M |
LT2004/2013 動作確認済
●使い方
１．円弧長を記入
２．中心位置を指定
３．半径を数値で記入
又は、点で指定
４．方向を指定
▲注意
特に無し
■更新履歴
・2017/3/7 LT2004未動作の為修正
AutoCADのコツ/三角 照夫
￥3,780
Amazon.co.jp
↓旧バージョン↓
円弧(円弧長・中心・半径)
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),setenv;円弧長;\id;\setenv;p1;$M="""$(getvar,lastpoint)""";setenv;to;1,dist;non;@;半径記入<$(getvar,distance)>^X\ucs;o;$(getvar,viewctr);setenv;to;2,,)$(nth,$(getenv,to),,,arc;$(getvar,distance)","0;c;0","0;a;$(/,$(*,$(getenv,円弧長),180),$(*,$(getvar,distance),3.14159265));setenv;to;3;,ucs;p;copybase;non;@;L;;erase;L;;pasteclip;$(getenv,p1);rotate;L;;non;@;\setenv;to;0)^M |
LT2000 動作確認済
●使い方
１．円弧長を記入
２．中心位置を指定
３．半径を数値で記入
又は、点で指定
４．方向を指定
▲注意
特に無し
■コメント
円弧長を指定して円弧を作図するマクロって
最初からあればいいのに･･･(-_-;
by totthi
AutoCADのコツ/三角 照夫
￥3,780
Amazon.co.jp