AutoCADマクロ屋本舗 掲示板

長穴についても質問です。
マクロ集の中心線付長穴ですが、
中心線を1.5倍、長さを半円を入れた全長指定にしたいです...
少し触ってみたのですが
上手くいかずもやもやしてます。。。
連投すみません。
宜しくお願い致します。

どなたかわかる方
いらっしゃらないでしょうか。。。

こんな感じでどうですか？

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;D1;直径＝^X\;L1;全長＝^X\;to;1,,,,)$(nth,$(getenv,to),,;R1;$(/,$(getenv,D1),2);ucs;m;中心点指定^X\rectang;non;-$M="$(/,$(getenv,L1),2),-$(/,$(getenv,D1),2)";non;@"$(getenv,L1),$(getenv,D1)";setenv;to;2,,,)$(nth,$(getenv,to),,,fillet;r;$M=$(getenv,R1);;p;l;erase;l;;setenv;L2;$(*,$(getenv,D1),1.5);;to;3,,)$(nth,$(getenv,to),,,,line;non;$M=$(+,$(/,$(getenv,L1),2),$(/,$(getenv,L2),2))<180;non;@$(+,$(getenv,L1),$(getenv,L2))<0;;chprop;l;;lt;CENTER;C;1;;oops;erase;p;l;;setenv;to;4,)$(nth,$(getenv,to),,,,,line;non;$(+,$(/,$(getenv,D1),2),$(/,$(getenv,L2),2))<270;non;@$(+,$(getenv,D1),$(getenv,L2))<90;;chprop;l;;lt;CENTER;C;1;;oops;select;p;l;;ucs;p;setenv;to;0)^M

おまけ
縦横切替付けてみました
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;D1;直径＝^X\;L1;全長＝^X\;to;1,,,,,)$(nth,$(getenv,to),,;R1;$(/,$(getenv,D1),2);ucs;m;中心点指定^X\rectang;non;-$M="$(/,$(getenv,L1),2),-$(/,$(getenv,D1),2)";non;@"$(getenv,L1),$(getenv,D1)";setenv;to;2,,,,)$(nth,$(getenv,to),,,fillet;r;$M=$(getenv,R1);;p;l;erase;l;;setenv;L2;$(*,$(getenv,D1),1.5);;to;3,,,)$(nth,$(getenv,to),,,,line;non;$M=$(+,$(/,$(getenv,L1),2),$(/,$(getenv,L2),2))<180;non;@$(+,$(getenv,L1),$(getenv,L2))<0;;chprop;l;;lt;CENTER;C;1;;oops;erase;p;l;;setenv;to;4,,)$(nth,$(getenv,to),,,,,line;non;$(+,$(/,$(getenv,D1),2),$(/,$(getenv,L2),2))<270;non;@$(+,$(getenv,D1),$(getenv,L2))<90;;chprop;l;;lt;CENTER;C;1;;oops;select;p;l;;setenv;to;5,)$(nth,$(getenv,to),,,,,,ray;決定(L-Click)／縦横切替(R-Click)＝^X\$M="""$(if,$(getvar,cmdactive),;ucs;p;setenv;to;0,rotate;p;;non;0<0;90;setenv;to;5)""")^M

chibi-tom様

ご返信ありがとうございます(T_T)
AutoCAD2015 R版で
しっかり反映されました！
縦横切替まで教えていただき、
ありがとうございます。

縦横切替Ver.に、長穴半円の中心線二箇所いれることは
可能でしょうか？
(全長中心線はそのままでお願いします）

要望が多くてすみません;;

ちょっと自信ないですがこれでできますか？

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;D1;直径＝^X\;L1;全長＝^X\;to;1,,,,,,)$(nth,$(getenv,to),,;R1;$(/,$(getenv,D1),2);ucs;m;中心点指定^X\rectang;non;-$M="$(/,$(getenv,L1),2),-$(/,$(getenv,D1),2)";non;@"$(getenv,L1),$(getenv,D1)";setenv;to;2,,,,,)$(nth,$(getenv,to),,,fillet;r;$M=$(getenv,R1);;p;l;erase;l;;setenv;L2;$(*,$(getenv,D1),1.5);;L3;$(-,$(getenv,L1),$(getenv,D1));;to;3,,,,)$(nth,$(getenv,to),,,,l;non;$(+,$(/,$(getenv,D1),2),$(/,$(getenv,L2),2))<270;non;@$(+,$(getenv,D1),$(getenv,L2))<90;;chprop;l;;lt;CENTER;C;1;;offset;$(/,$(-,$(getenv,L1),$(getenv,D1)),2);non;0<0;non;0.1<180;;oops;e;p;l;;setenv;to;4,,,)$(nth,$(getenv,to),,,,,offset;$(/,$(-,$(getenv,L1),$(getenv,D1)),2);non;0<0;non;0.1<0;;oops;erase;p;l;non;0<0;;setenv;to;5,,)$(nth,$(getenv,to),,,,,,line;non;$M=$(+,$(/,$(getenv,L1),2),$(/,$(getenv,L2),2))<180;non;@$(+,$(getenv,L1),$(getenv,L2))<0;;chprop;l;;lt;CENTER;C;1;;oops;select;p;l;;setenv;to;6,)$(nth,$(getenv,to),,,,,,,ray;決定(L-Click)／縦横切替(R-Click)＝^X\$M="""$(if,$(getvar,cmdactive),;ucs;p;setenv;to;0,rotate;p;;non;0<0;90;setenv;to;6)""")^M

chibi-tom様

ご回答ありがとうございます！
反映されました！
こちらのマクロの3つの中心線のうち、
真ん中は不要なのですが、
その場合、どの部分を削除したら良いのでしょうか(・・;)
先程から質問ばかりですみません。。。

chibi-tom様

もう一点ご回答いただけますでしょうか。。
何点も質問すみません。。

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;n1;長さ^X\;h1;幅^x\id;\setenv;to;1,pline;non;@-$(/,$(getenv,n1),2)","-$(/,$(getenv,h1),2);non;@$(getenv,n1)","0;a;non;@0","$(getenv,h1);l;non;@-$(getenv,n1)","0;a;non;@0","-$(getenv,h1);;setenv;to;2,,,,)$(nth,$(getenv,to),,,line;non;@-$(+,$(/,$(getenv,h1),2),$(*,$(getvar,dimscale),5))","$(/,$(getenv,h1),2);non;@$(+,$(+,$(getenv,n1),$(getenv,h1)),$(*,$(getvar,dimscale),10))","0;;chprop;L;;C;1;LT;center;;setenv;to;3,,,)$(nth,$(getenv,to),,,,line;non;@-$(+,$(/,$(getenv,h1),2),$(*,$(getvar,dimscale),5))","$(+,$(/,$(getenv,h1),2),$(*,$(getvar,dimscale),5));none;@0","-$(+,$(getenv,h1),$(*,$(getvar,dimscale),10));;chprop;L;;C;1;LT;center;;setenv;to;4,,)$(nth,$(getenv,to),,,,,copy;l;;non;@0","0;@-$(getenv,n1)","0;setenv;to;5,ray;Edit(R-Click)^x\$M="""$(if,$(getvar,cmdactive),;setenv;to;1,id;)""")^M

このマクロの場合、
どこを触れば中心線1.5倍にできるのでしょうか。
(マクロ集から引用させていただきました。)
(こちらは全長ではなく半円の中心から中心までを長さの値として入力タイプです）

宜しくお願い致します。

やっぱりそうですよね

ちょっとすぐには思いつかないんです
あと先ほどのを少し修正しました。

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;D1;直径＝^X\;L1;全長＝^X\;to;1,,,,,,)$(nth,$(getenv,to),,;R1;$(/,$(getenv,D1),2);ucs;m;中心点指定^X\rectang;non;-$M="$(/,$(getenv,L1),2),-$(/,$(getenv,D1),2)";non;@"$(getenv,L1),$(getenv,D1)";setenv;to;2,,,,,)$(nth,$(getenv,to),,,fillet;r;$M=$(getenv,R1);;p;l;erase;l;;setenv;L2;$(*,$(getenv,D1),1.5);;L3;$(-,$(getenv,L1),$(getenv,D1));;to;3,,,,)$(nth,$(getenv,to),,,,l;non;$(+,$(/,$(getenv,D1),2),$(/,$(getenv,L2),2))<270;non;@$(+,$(getenv,D1),$(getenv,L2))<90;;chprop;l;;lt;CENTER;C;1;;offset;$(/,$(getenv,L3),2);non;0<0;non;0.1<180;;oops;e;p;l;;setenv;to;4,,,)$(nth,$(getenv,to),,,,,offset;$(/,$(getenv,L3),2);non;0<0;non;0.1<0;;oops;erase;p;l;non;0<0;;setenv;to;5,,)$(nth,$(getenv,to),,,,,,line;non;$M=$(+,$(/,$(getenv,L1),2),$(/,$(getenv,L2),2))<180;non;@$(+,$(getenv,L1),$(getenv,L2))<0;;chprop;l;;lt;CENTER;C;1;;oops;select;p;l;;setenv;to;6,)$(nth,$(getenv,to),,,,,,,ray;決定(L-Click)／縦横切替(R-Click)＝^X\$M="""$(if,$(getvar,cmdactive),;ucs;p;setenv;to;0,rotate;p;;non;0<0;90;setenv;to;6)""")^M

２本にするのは、明日以降でお願いします。

chibi-tom様

ご対応ありがとうございます。
修正までしていただいて...(T_T)
修正後のマクロも
早速確認しました！
中心線が2.5倍になっていました。。

明日以降でも構いませんので
ご回答宜しくお願い致します。

やはり自信はありませんが
これでどうでしょうか？

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;D1;直径＝^X\;L1;全長＝^X\;to;1,,,,,,)$(nth,$(getenv,to),,;R1;$(/,$(getenv,D1),2);ucs;m;中心点指定^X\rectang;non;-$M="$(/,$(getenv,L1),2),-$(/,$(getenv,D1),2)";non;@"$(getenv,L1),$(getenv,D1)";setenv;to;2,,,,,)$(nth,$(getenv,to),,,fillet;r;$M=$(getenv,R1);;p;l;erase;l;;setenv;L2;$(*,$(getenv,D1),1.5);;L3;$(-,$(getenv,L1),$(getenv,D1));;to;3,,,,)$(nth,$(getenv,to),,,,line;non;$M=$(+,$(/,$(getenv,L3),2),$(/,$(getenv,L2),2))<180;non;@$(+,$(getenv,L3),$(getenv,L2))<0;;chprop;l;;lt;CENTER;C;1;;oops;erase;p;l;;setenv;to;4,,,)$(nth,$(getenv,to),,,,,line;non;-$(-,$(/,$(getenv,L1),2),$(/,$(getenv,D1),2))","-$(/,$(*,$(getenv,D1),1.5),2);non;@$(*,$(getenv,D1),1.5)<90;;chprop;l;;lt;CENTER;C;1;;oops;erase;p;l;;setenv;to;5,,)$(nth,$(getenv,to),,,,,,line;non;$(-,$(/,$(getenv,L1),2),$(/,$(getenv,D1),2))","-$(/,$(*,$(getenv,D1),1.5),2);non;@$(*,$(getenv,D1),1.5)<90;;chprop;l;;lt;CENTER;C;1;;oops;select;p;l;;setenv;to;6,)$(nth,$(getenv,to),,,,,,,ray;決定(L-Click)／縦横切替(R-Click)＝^X\$M="""$(if,$(getvar,cmdactive),;ucs;p;setenv;to;0,rotate;p;;non;0<0;90;setenv;to;6)""")^M

chibi-tom様

おはようございます。
朝早くから対応していただき
ありがとうございます。

マクロ反映しました☆
本当にありがとうございます！

そして、何点も申し訳ないのですが、
このマクロの全長を半円の中心から中心Ver.を
作成していただけないでしょうか。。。
宜しくお願い致します。

こんな感じでしょうか？

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;D1;直径＝^X\;L0;中心幅＝^X\;to;1,,,,,,)$(nth,$(getenv,to),,;L1;$(+,$(getenv,L0),$(getenv,D1));;R1;$(/,$(getenv,D1),2);ucs;m;中心点指定^X\rectang;non;-$M="""$(/,$(getenv,L1),2),-$(/,$(getenv,D1),2)""";non;@"""$(getenv,L1),$(getenv,D1)""";setenv;to;2,,,,,)$(nth,$(getenv,to),,,fillet;r;$M=$(getenv,R1);;p;l;erase;l;;setenv;L2;$(*,$(getenv,D1),1.5);;L3;$(-,$(getenv,L1),$(getenv,D1));;to;3,,,,)$(nth,$(getenv,to),,,,line;non;$M=$(+,$(/,$(getenv,L3),2),$(/,$(getenv,L2),2))<180;non;@$(+,$(getenv,L3),$(getenv,L2))<0;;chprop;l;;lt;CENTER;C;1;;oops;erase;p;l;;setenv;to;4,,,)$(nth,$(getenv,to),,,,,line;non;-$(-,$(/,$(getenv,L1),2),$(/,$(getenv,D1),2))","-$(/,$(*,$(getenv,D1),1.5),2);non;@$(*,$(getenv,D1),1.5)<90;;chprop;l;;lt;CENTER;C;1;;oops;erase;p;l;;setenv;to;5,,)$(nth,$(getenv,to),,,,,,line;non;$(-,$(/,$(getenv,L1),2),$(/,$(getenv,D1),2))","-$(/,$(*,$(getenv,D1),1.5),2);non;@$(*,$(getenv,D1),1.5)<90;;chprop;l;;lt;CENTER;C;1;;oops;select;p;l;;setenv;to;6,)$(nth,$(getenv,to),,,,,,,ray;決定(L-Click)／縦横切替(R-Click)＝^X\$M="""$(if,$(getvar,cmdactive),;ucs;p;setenv;to;0,rotate;p;;non;0<0;90;setenv;to;6)""")^M

すみません。
考えてたんですが、昨日有給で休んでました。


自分も一応作ったので、お試しください。


*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;n0;長さ^X\;h1;幅^x\id;\setenv;to;1,;n1;$(-,$(getenv,n0),$(getenv,h1));;x0;$(/,$(getenv,n0),2);;y0;$(/,$(getenv,h1),2);;to;2,,,,,)$(nth,$(getenv,to),,,;to;3;pline;non;@-$(/,$(getenv,n1),2)","-$(/,$(getenv,h1),2);non;@$(getenv,n1)","0;a;non;@0","$(getenv,h1);l;non;@-$(getenv,n1)","0;a;non;@0","-$(getenv,h1);,,,,)$(nth,$(getenv,to),,,,;to;4;line;non;@-$(+,$(/,$(getenv,x0),2),$(/,$(getenv,h1),2))","$(/,$(getenv,h1),2);non;@$(*,$(getenv,n0),1.5)","0;;chprop;L;;C;1;LT;center;,,,)$(nth,$(getenv,to),,,,,;to;5;line;non;@-$(+,$(/,$(getenv,x0),2),$(/,$(getenv,h1),2))","$(*,$(getenv,y0),1.5);none;@0","-$(*,$(getenv,h1),1.5);;chprop;L;;C;1;LT;center;,,)$(nth,$(getenv,to),,,,,,copy;l;;non;@0","0;@-$(getenv,n1)","0;setenv;to;6,;to;0;ray;Edit(R-Click)^x\$M="""$(if,$(getvar,cmdactive),;setenv;to;1,id;)""")^M

chibi-tom様

ありがとうございます！
反映されました。
立て続けに依頼してしまい
すみませんでした。

とってぃ様

お休み明けに対応していただき
ありがとうございます！
マクロ反映しました。