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

尚、新規投稿フォーム下の【 新規投稿時のお願い 】
を確認の上、新規投稿をお願い致します。
マクロを作成して頂けないでしょうか。
はじめまして。じんと申します。
いきなりで大変申し訳ありませんがマクロを作成して頂けないでしょうか。

使用しているAutoCADのバージョン
AutoCAD Mechanical 2011 Version 2
(TdMacros.lspはサポートフォルダに導入させて頂いております)

■作成して頂きたいマクロの操作内容
WCSを中心にした指定円を描き、その円より内側へ指定ピッチでオフセットして
最小円まで自動作成したいです。
※添付画像のイメージになります※

どなたか作成して頂ければ幸いです。
以上、宜しく御願い申し上げます。

じん

  • じん
  • 2017/06/02 (Fri) 21:41:04
Re: マクロを作成して頂けないでしょうか。
お邪魔します。

マクロ実行
 ⇒オフセットのピッチを数値で入力
  ⇒一番外側の円の半径を数値で入力 又は マウスで位置を指示

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;ピッチ;\zoom;c;0<0;;circle;non;0<0;\setenv;to;1,,)$(nth,$(getenv,to),,;r;$(-,$(getvar,circlerad),$(getenv,ピッチ));;to;2,)$(nth,$(getenv,to),,,$(if,$(>,$(getenv,r),0),circle;non;0<0;$(getenv,r);setenv;to;1,^Cid;))^M

(LT2017で動作確認)
  • Lon
  • 2017/06/03 (Sat) 09:45:49
Re: マクロを作成して頂けないでしょうか。
Lon様

返信が遅くなってしまい申し訳ありません。
問題なく円を描く事ができました。
作成して頂いたマクロより勉強させて頂きます。

以上、この度は有難う御座いました。

じん
  • じん
  • 2017/06/05 (Mon) 11:11:14
すみませんが、あと1つだけ甘えさせて下さい(マクロ作成依頼)
管理人様
皆様

御世話になっております。じんです。
すみませんが、あと1つだけ甘えさせて下さい。
これから少しずつ勉強していきます。

使用しているAutoCADのバージョン
AutoCAD Mechanical 2011 Version 2
(TdMacros.lspはサポートフォルダに導入させて頂いております)

■作成して頂きたいマクロの操作内容
WCSを中心にした最外の指定半円(0°から180°)を描き、その終点より指定ピッチ(全て等ピッチ)で
半円(180°から360°)を描き、自動で繰り返し最小半円まで自動作成したいです。
(スパイラル形状で外側から内側へ)※添付画像のイメージになります※

どなたか作成して頂ければ幸いです。
以上、宜しく御願い申し上げます。

じん
  • じん
  • 2017/06/05 (Mon) 21:25:53
Re: マクロを作成して頂けないでしょうか。
ちょっと仕事がたてこんでますので
しばらくお待ちください。
  • とってぃ
  • 2017/06/06 (Tue) 10:58:21
Re: マクロを作成して頂けないでしょうか。
とってぃ様

返信、有難うございます。
御忙しい中、申し訳ありませんが宜しく御願い申し上げます。

じん
  • じん
  • 2017/06/06 (Tue) 11:20:54
Re: マクロを作成して頂けないでしょうか。
マクロ実行
 ⇒オフセットのピッチを数値で入力
  ⇒一番外側の円の半径を数値で入力

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;ピッチ;\;r;\;s;1;;to;1;zoom;c;0<0;$M="""$(*,$(getenv,r),3);id;non;$(getenv,r)"""<e,,)$(nth,$(getenv,to),,$(if,$(>,$(getenv,r),0),arc;non;@;c;non;@$(*,$(getenv,r),$(getenv,s))<w;non;@$(*,$(getenv,r),$(getenv,s))<w;setenv;to;2,^Cpeditaccept;1;pedit;l;j;all;;),)$(nth,$(getenv,to),,,;$;r;$(-,$(getenv,r),$(getenv,ピッチ));;s;$(if,$(>,$(getenv,s),0),-1,1);;to;1)^M

とりあえず、作ってみました。
(LT2017で確認)
  • Lon
  • 2017/06/06 (Tue) 12:56:18
Re: マクロを作成して頂けないでしょうか。
あちゃー
やっぱLonさんに咲きこされちゃいましたねー

とりあえずボクも作ってみたのでお試しください。


*^C^C$M=setenv;to;0;$(nth,$(getenv,to),offset;;^x円弧(半円)を選択^x\;select;non;@;non;@;;copy;p;;non;@;non;@;erase;p;;setenv;pc0;ピッチ記入^X\;to;1,,,)$(nth,$(getenv,to),,;to;2;dist;nea;@;cen;@;setenv;r0;$M="""$(getvar,distance)""";ucs;ob;l;zoom;c;0<0;,,)$(nth,$(getenv,to),,,;r1;$(-,$(getenv,r0),$(getenv,pc0));$M="""$(if,$(>,$(getenv,r1),0),;to;3,ucs;p;^Cid;^X***完了***^X^Z)""",)$(nth,$(getenv,to),,,,arc;C;non;-$(getenv,pc0)<0;non;$(nth,$(getenv,sw),-,)$(getenv,r0)<0;non;$(nth,$(getenv,sw),,-)$(getenv,r0)<0;ucs;p;;ob;l;dist;non;$(getenv,r1)<0;non;0<0;setenv;r0;$M="""$(getvar,distance)""";;to;2)^M

●使い方
1.円弧(半円)を選択
2.ピッチを記入
 ※選択した円弧の半径は自動処理です。
 ※終了時、コマンドラインに「***完了***」と表示されます。


LT2013にて動作確認
  • とってぃ
  • 2017/06/06 (Tue) 13:35:13
Re: マクロを作成して頂けないでしょうか。
Lon様

上記のスパイラル形状も問題なく描く事ができました。
有難う御座います。

とってぃ様
返信および検討して頂き有難う御座いました。

自分でも作成できる様に頑張ります。

じん
  • じん
  • 2017/06/06 (Tue) 13:38:51
Re: マクロを作成して頂けないでしょうか。
とってぃ様

試させて頂きます。
御忙しい中、有難う御座いました。

じん
  • じん
  • 2017/06/06 (Tue) 14:08:19

返信フォーム






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