AutoCADマクロ屋本舗 掲示板

AUTOCADバージョン：autocad2017
内容：線分の中点に半円50mmと半円75mmを一発で作成したい


この記号を多数作図するため、困っています。
そんなコマンド作成って可能でしょうか？

レギュラー版の場合は、ご利用の前に

●ﾚｷﾞｭﾗｰ版での使用に関する注意事項
http://ameblo.jp/totthi-macro/entry-10895232361.html

こちらを参照ください。

※追記　2017.04.19
半円と気付かずにマクロを投稿していました。
他の方々が紹介されているみたいなので、そちらを参照ください。
こちらのマクロは削除させて頂きます。

go様
半円○○mmとは半径○○mmの半円でしょうか？
であれば、こんな感じで出来るかなと思います。

*^C^C^Pcopy^P;線分選択:^X\non;@;;non;@;non;@;erase;p;;lengthen;l;DY;;ucs;ob;@;arc;c;non;0<0;non;50<0;a;180;erase;l;;arc;c;non;0<0;non;75<0;a;180;oops;move;l;p;;non;0<0;non;$M=$(/,$(getvar,perimeter),2)<0;ucs;p^M

線分を選択するだけですが
半円の向きが反対になってしまう場合は線分の逆端点付近を選択してみてください。
また、線分以外を選択すると、うまく作図しないと思います。

「半円方向が気に入らない時は右クリックで反転」も付けてみました。

*^C^C$M=useri1;0;$(nth,$(getvar,useri1),id;nea;\useri1;1,ucs;e;@;;m;mid;@;arc;c;non;0<0;non;50<e;a;180;select;l;;arc;c;non;0<0;non;75<e;a;180;ucs;p;;p;useri1;2,)$(nth,$(getvar,useri1),,,ray;nea;^X反転(R-Click)^X\$M="""$(if,$(getvar,cmdactive),;useri1;1,rotate;l;p;;non;@;180;useri1;2)""")^M