当掲示板は、AuroCADマクロ屋本舗 の掲示板です。
AutoCADのマクロ に関する質問の前に 【 マクロ使用前の注意事項 】 を、必ずお読みください。

尚、新規投稿フォーム下の【 新規投稿時のお願い 】を確認の上、新規投稿をお願い致します。
線分の中点に半円50mmと半円75mmを一発で作成したい
AUTOCADバージョン:autocad2017
内容:線分の中点に半円50mmと半円75mmを一発で作成したい


この記号を多数作図するため、困っています。
そんなコマンド作成って可能でしょうか?
  • go
  • MAIL
  • 2017/04/18 (Tue) 08:31:49
Re: 線分の中点に半円50mmと半円75mmを一発で作成したい
レギュラー版の場合は、ご利用の前に

●レギュラー版での使用に関する注意事項
http://ameblo.jp/totthi-macro/entry-10895232361.html

こちらを参照ください。

※追記 2017.04.19
半円と気付かずにマクロを投稿していました。
他の方々が紹介されているみたいなので、そちらを参照ください。
こちらのマクロは削除させて頂きます。
  • とってぃ
  • 2017/04/18 (Tue) 13:05:23
Re: 線分の中点に半円50mmと半円75mmを一発で作成したい
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

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


  • chibi-tom
  • 2017/04/18 (Tue) 13:29:25
Re: 線分の中点に半円50mmと半円75mmを一発で作成したい
「半円方向が気に入らない時は右クリックで反転」も付けてみました。

*^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

  • Lon
  • 2017/04/18 (Tue) 16:39:46

返信フォーム






プレビュー (投稿前に内容を確認)