AutoCADマクロ屋本舗 掲示板

はじめまして。じんと申します。
いきなりで大変申し訳ありませんがマクロを作成して頂けないでしょうか。

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

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

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

じん

お邪魔します。

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

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

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

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

じん

管理人様
皆様

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

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

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

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

じん

ちょっと仕事がたてこんでますので
しばらくお待ちください。

とってぃ様

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

じん

マクロ実行
　⇒オフセットのピッチを数値で入力
　　⇒一番外側の円の半径を数値で入力

*^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さんに咲きこされちゃいましたねー

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


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

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


LT2013にて動作確認

Lon様

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

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

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

じん

とってぃ様

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

じん