AutoCADマクロ屋本舗 掲示板

よろしくお願いいたします。autocad2024を使用しています。　　矩形の図形を等分割するという"マクロ"または"リスプ"を希望しています。

矩形図形を指定の分割数で分割できればいいな。と思い、投稿いたしました。(分割数はその都度変化します。)

よろしくお願いいたします。

とりあえず自分が使用している
指定間等分割オフセットのマクロです
お試しください

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;分割数;\;to;1,offset;;nea;オブジェクトを選択(再設定は右クリック)^X\$M="""$(if,$(getvar,cmdactive),;setenv;P1;$(getvar,lastpoint);undo;be;setenv;to;2,setenv;to;0)""",,,,,)$(nth,$(getenv,to),,,;to;1;select;non;@;non;@;;xplode;non;$(getenv,P1);;$M="""$(if,$(getvar,cmdactive),e;setenv;to;2,setenv;to;3)""",,,,)$(nth,$(getenv,to),,,,regen;copybase;non;$(getenv,P1);non;$(getenv,P1);;undo;e;u;pasteclip;non;$(getenv,P1);setenv;to;4,,,)$(nth,$(getenv,to),,,,,line;non;$(getenv,P1);per;２点目を指定^X\;ucs;ob;l;lengthen;l;dy;;setenv;to;5,,)$(nth,$(getenv,to),,,,,,;l1;$(/,$(getvar,perimeter),$(getenv,分割数));erase;l;;setenv;to;6,)$(nth,$(getenv,to),,,,,,,copy;l;;non;0<0;a;$(getenv,分割数);non;$(getenv,l1)<0;erase;p;;ucs;p;setenv;to;0)^M


操作方法
１.マクロ起動
２.分割数を入力
３.１辺選択(オフセットしたい辺)
４.対辺を選択(一時オブジェクトスナップで垂直選択になっています)
以上です

chibi-tom様

いつもお世話になっております。ご教授いただきました"マクロ"の動作確認いたしました。すごいですね!!

思いついたままに、投稿いたしましたが　素晴らしいマクロをご教授いただき誠にありがとうございます。

どんどん使わせていただきます。本当にありがとうございました。