AutoCADマクロ屋本舗 掲示板

いつも拝見させていただき、大変活用しております。ありがとうございます。
表題の件ですが、2022LTでは下記のマクロで使用できていたのですが、
2022に変わり、同じものをコピペで使用していたのですが、添付画像のようになります。
解決方法がございましたら伝授いただければ幸いです。
注意してコピペしましたが内容が間違っていたら大変お手数ですがご指摘いただけたらと思います。

切り取りコピー

*^C^C$M=setenv;t;0;$(nth,$(getenv,t),id;non;\undo;be;setenv;p;$M="""$(getvar,lastpoint)""";rectang;non;@;non;\setenv;t;1,,,,,,)$(nth,$(getenv,t),,erase;l;;line;non;@;non;$(getenv,p)^H^H;;lengthen;dy;;;l;;;ucs;ob;l;id;non;$M="""$(/,$(getvar,perimeter),2)"""<0;oops;ucs;p;id;non;@;setenv;t;2,,,,,)$(nth,$(getenv,t),,,erase;l;;ucs;o;non;$(getvar,lastpoint);ucs;ob;l;id;non;0<0;ucs;p;setenv;t;3,,,,)$(nth,$(getenv,t),,,,;s;0;;x1;$(*,1.001,$(index,0,$(getvar,lastpoint)));;y1;$(*,1.001,$(index,1,$(getvar,lastpoint)));;x2;$M="""$(*,-1,$(getenv,x1));;y2;$(*,-1,$(getenv,y1))""";;t;4;zoom;c;non;0<0;$(getvar,perimeter);select;l;,,,)$(nth,$(getenv,t),,,,,trim;p;;f;$(getenv,x1)",$(getenv,y1);$(getenv,x2),$(getenv,y1);$(getenv,x2),$(getenv,y2);$(getenv,x1),$(getenv,y2);$(getenv,x1),"$(getenv,y1);;;setenv;t;5,,)$(nth,$(getenv,t),,,,,,;s;$(+,$(getenv,s),1);;t;$M="""$(if,$(=,$(getenv,s),4),6,4)""",erase;p;;copybase;non;0<0;c;non;$(getenv,x1)",$(getenv,y1);non;$(getenv,x2),"$(getenv,y2);;undo;e;u;pasteclip)^M




切り取り削除

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),id;\undo;be;setenv;p;$M="""$(getvar,lastpoint)""";rectang;non;@;\setenv;to;1,,,,,,)$(nth,$(getenv,to),,erase;l;;line;non;@;non;$(getenv,p)^H^H;;lengthen;dy;;;l;;;ucs;ob;l;id;non;$M="""$(/,$(getvar,perimeter),2)"""<0;oops;ucs;p;id;non;@;setenv;to;2,,,,,)$(nth,$(getenv,to),,,erase;l;;ucs;o;non;$(getvar,lastpoint);ucs;ob;l;id;non;0<0;ucs;p;setenv;to;3,;x;$(*,0.999,$(index,0,$(getvar,lastpoint)));;y;$(*,0.999,$(index,1,$(getvar,lastpoint)));;to;4,,,)$(nth,$(getenv,to),,,,,zoom;c;non;0<0;$(getvar,perimeter);trim;l;;f;$(getenv,x)",$(getenv,y);$(*,-1,$(getenv,x)),$(getenv,y);$(*,-1,$(getenv,x)),"$(*,-1,$(getenv,y));;;setenv;to;5,,)$(nth,$(getenv,to),,,,,,trim;p;;f;$(*,-1,$(getenv,x))",$(*,-1,$(getenv,y));$(getenv,x),$(*,-1,$(getenv,y));$(getenv,x),"$(getenv,y);;;setenv;to;6,)$(nth,$(getenv,to),,,,,,,erase;w;non;$(getenv,x)",$(getenv,y);non;$(*,-1,$(getenv,x)),"$(*,-1,$(getenv,y));p;;ucs;p;undo;e)^M

添付画像のようになります<添付されていないようですね


またLTからR版のようなので
まずは下記を確認されてみてはどうでしょう

【 新規投稿時のお願い 】と
https://ameblo.jp/totthi-macro/entry-10894483533.html
https://ameblo.jp/totthi-macro/entry-10895232361.html

早速のお返事大変感謝いたします。
早速試してみたのですが、状況が変わりません＞＜
「TdMacros.lsp」をダウンロードし、スタートアップ登録が完了しているのですが、
「Lispで"SETENV/GETENV"を使用できる環境にした上」
というのは登録の後に何か作業は発生するのでしょうか？
無知すぎて大変お手数おかけしますがよろしくお願いいたします。

先ほどの件ですが、オートキャドを再起動しましたら解決いたしました！！
ありがとうございました！！

「TdMacros.lspをダウンロードし、スタートアップ登録」しただけでは、その環境ではまだTdMacros.lspはロード（使用可能な状況）されていません。
あくまでも、その時点ではスタートアップに登録しただけなのです。

ですので、使用可能にするには、お書きの通り再起動するか、ロードするかが必要になります。

レギュラー版（LTじゃないAutoCAD）をお使いなら、
LISPで同様の機能を探すと、もっと気の利いた物が転がってるみたいですよ。

また、こんなんも有りますよ。
矩形以外の形状で切り取りたい場合に使えるかもしれません。2022で動くか知りませんけど。
https://totthi.bbs.fc2.com/?act=reply&tid=16577842#23870475

LUNE様
ご連絡遅くなり申し訳ございません。
ロード、再起動が必要なことが無知でございました！！
大変勉強になりました！
ありがとうございました！！

Lon様
ご連絡遅くなり申し訳ありません！！
LTでなくなったことで便利になる部分もあるのですね＾＾
勉強になります！！
社内で取り入れたいとおもいます！！
ありがとうございました！！