AutoCADマクロ屋本舗 掲示板

バージョンは、AUTOCAD2019です。

毎回、用紙枠をCAD図に描くのですが、そのサイズを忘れてしまいます。

なので、図面の用紙枠を作図するコマンドをお願いできないでしょうか？

A1横594×841、A3横297×420、A4横210×297

を選択できて、かつ作図できるコマンドなのです。

いかがでしょうか？

一例ですが。
用紙は横使いということで、いいでしょうか。
サイズのところで、A1なら1、A3なら3と数字だけを入力してください。
A1～A4まで対応です。
2020Verで動作確認しました。

^c^csetenv;サイズ;\id;^X左下位置^X\rec;non;@;non;$M=$(nth,$(-,$(getenv,サイズ),1),@841,@594,@420,@297),$(nth,$(-,$(getenv,サイズ),1),594,420,297,210);

早速対応して頂き、ありがとうございます。

うまく作動しました。

たしかに、これで作図可能なのですが、もう一つお願いしてもよろしいでしょうか。

(ご無理を申し上げて恐縮です。)


A1、A3、A4とコマンドライン上で選択できるようにしたいのですが、

それは可能でしょうか？

マクロではご希望の動作は不可能です。
あくまでもコマンドを羅列したものですので、選択オプションをマウス選択できるようにはなりません。

マウス選択したいのなら、Lispでコマンドを作成する必要があります。

マウスだけで操作したいということであれば

R-Clickで切替する方法ならマクロでも可能です

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;sw;0;;to;1,;wk;$(nth,$(getenv,sw),A1横594×841,A3横297×420,A4横210×297);;to;2,,,)$(nth,$(getenv,to),,,;to;0;ray;左下位置を指定<$(getenv,wk)>--切替(R-Click)^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;4,setenv;to;3)""",,)$(nth,$(getenv,to),,,,;sw;$(nth,$(getenv,sw),1,2,0);;to;1,)$(nth,$(getenv,to),,,,,rectang;non;@;non;$M=$(nth,$(getenv,sw),@841,@420,@297)","$(nth,$(getenv,sw),594,297,210);setenv;to;1)^M

１.マクロ起動
２.左下位置を指定(最初はA1横　R-ClickでA1横→A3横→A4横→A1横・・・の順で切り替わります)

終了はEscキーです

lt2021で確認です

丁寧に回答いただきありがとうございました。

右クリックで変換できたので、大変助かりました。

あと、マクロで選択オプションをマウス選択できないことを知りませんでした。

今後は、気を付けて投稿します。

早急に対応してくださり、本当にありがとうございました。

談話室でアドバイスいただいたので

コマンドライン選択ができるみたいです

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;wk;用紙サイズを選択：[A1横594×841/A3横297×420/A4横210×297]^X\;to;1,,,)$(nth,$(getenv,to),,;sw;$(if,$(eq,$(getenv,wk),A1),0,$(if,$(eq,$(getenv,wk),A3),1,2));;to;2,,)$(nth,$(getenv,to),,,ray;左下位置を指定<$(getenv,wk)>--再選択(R-Click)^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;3,setenv;to;0)""",)$(nth,$(getenv,to),,,,rectang;non;@;non;@$M=$(nth,$(getenv,sw),841,420,297)","$(nth,$(getenv,sw),594,297,210);setenv;to;0)^M

１.マクロ起動
２.コマンドラインのサイズを選択
３.左下位置を指定(R-Clickで再選択)

※個人的にはR-Clickで切り替えるほうが使いやすい(笑)