AutoCADマクロ屋本舗 掲示板

いつもお世話になっております。LT2012です。
長方形を作図するマクロに関する質問です。
柱間に梁を作図するのにオフセット等で補助線を引かず作図したいので
長方形の高さを指定、長さは始点と終点を指定して長方形を作図するようなマクロはつくれますでしょうか？
やりたいイメージは　dline;c;b;w;\; で作成した図形がポリラインになってる状態で完成してほしいのです。
（dlineだとオブジェクトスナップが使えなくなるのも何とかしたい）

こんな感じになるでしょうか

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;dw;幅指定^X\;to;1,ray;１点目を指定(R-Clickで幅再指定)^X\$M="""$(if,$(getvar,cmdactive),;line;non;@;\;ucs;ob;l;lengthen;l;dy;;erase;l;;setenv;to;2,setenv;to;0)""",)$(nth,$(getenv,to),,,rectang;non;$(/,$(getenv,dw),2)<S;non;@$(getvar,perimeter)","$(getenv,dw);ucs;p;setenv;to;1)^M

１.マクロ起動
２.幅を指定
３.始点を指定(R-Clickで幅を再指定)
４.終点を指定
５.３～４を繰り返し

※、終了はEscキーです

LT2021で確認です

こんな感じです！
連続でも作図できて、サクサク動きます。
ありがとうございました！

最初から再指定できるように修正しました

よろしければ、コピペし直してください

おまけ、自己満足です

自分用に基準線の切替オプションにしました

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;dw;幅指定^X\;sw0;0;;to;1,;sw1;$(nth,$(getenv,sw0),中心,底辺,上辺);;to;2,,)$(nth,$(getenv,to),,,ray;１点目を指定(R-Clickで切替:<$(getenv,sw1)>)^X\$M="""$(if,$(getvar,cmdactive),;line;non;@;\;ucs;ob;l;lengthen;l;dy;;erase;l;;setenv;to;3,setenv;sw0;$(nth,$(getenv,sw0),1,2,0);;to;1)""",)$(nth,$(getenv,to),,,,rectang;non;$(nth,$(getenv,sw0),$(/,$(getenv,dw),2)<S,0<0,$(getenv,dw)<S);non;@$(getvar,perimeter)","$(getenv,dw);ucs;p;setenv;to;2)^M

１.マクロ起動
２.幅を指定
３.始点を指定(R-Clickで『中心,底辺,上辺』を切替)
４.終点を指定
５.３～４を繰り返し

※、終了はEscキーです
また基準の名称はマクロ内の『$(nth,$(getenv,sw0),中心,底辺,上辺);』部分を
ご自身の分かりやすい名称に変更して使用してください

更に使いやすいです

ありがとうございました！