AutoCADマクロ屋本舗 掲示板

はじめまして。
マクロ無知者です。
いつもこちらのサイトのマクロを使わせていただき、大変尊敬しております。

この度、社内のバージョンが2021になりました。
切り取りコピーと切り取り削除の2021バージョンで作成していただくことは可能でしょうか。

標準でできるようになったのかもしれませんが、探しきれません、
大変お手数ですが、よろしくお願いいたします。

68.切り取り削除2017対応

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),id;non;\undo;be;setenv;p;$M="""$(getvar,lastpoint)""";rectang;non;@;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

67.切り取りコピー(2017)


*^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

R版をお使いなら

下記を対応させてみてください
https://ameblo.jp/totthi-macro/entry-10895232361.html

LT版なら

LT2021でもどちらも問題なく使用できました

どう動かないのかご提示ください

ちなみに自分はR版を使用したことが無いのでR版の不明点は回答できません

早速のご連絡ありがとうございます。

そちらの設定をしておりませんでした。LT2021を使用しております。
ツール→アプリケーションロード
とありますが、アプリケーションロードが見当たりません。見る場所が間違っているのでしょうか。

あまりにも無知で大変申し訳ございませんがよろしくお願いいたします。

連続で失礼します。

下記を対応させてみてください
https://ameblo.jp/totthi-macro/entry-10895232361.html

とのことですが、LT2021を使用の場合は上記は不要でしょうか？
添付の通り、オブジェクトスナップが効かない状況です。

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

LT2021版ならその必要はありません

【 新規投稿時のお願い 】の

３．バージョン違いによるマクロの動作不良の場合は、キーボードF2を押し、表示されたテキストウィンドウ内の
　　マクロ開始～終了までのマクロの流れをコピーし、貼り付けてご質問下さい。
　　※全てのＣＡＤのバージョンを所持している訳ではありませんので
　　　　マクロ修正等のやり取りが長くなる場合もありますが、ご協力の方お願い致します。

を確認してコピペしてください

オブジェクトスナップをきかせたいなら

冒頭の
$(nth,$(getenv,to),id;non;\undo;be;setenv;p;$M="""$(getvar,lastpoint)""";rectang;non;@;non;\setenv;to;1,,,,,,)部分を

$(nth,$(getenv,to),id;\undo;be;setenv;p;$M="""$(getvar,lastpoint)""";rectang;non;@;\setenv;to;1,,,,,,)と変更すればできると思いますが

もしかしたら切り取りが意図しない動作をするかもしれません

ご連絡ありがとうございます。

ご指摘も感謝いたします。

変更してみましたところ、変数を入力するような状況になります。

変更前をみたら下記のようでしたのでTをいれてみましたがうまくいきませんでした。

やはり難しいでしょうか。



重複したブロック定義 管-流水記号-シンボル管渠 は無視されます。
重複したブロック定義 管-起点記号-起点 は無視されます。
重複したブロック定義 管-断面円形 は無視されます。
重複したブロック定義 管-基礎Ｍ は無視されます。
重複したブロック定義 管-材質ＨＰ は無視されます。
重複したブロック定義 桝-汚水宅地桝 は無視されます。
重複したブロック定義 取-材質Ｋ１ は無視されます。
重複したブロック定義 取-断面円形 は無視されます。
重複したブロック定義 取-材質ＨＰ は無視されます。
重複したブロック定義 地-基準点-県市道三角点 は無視されます。
重複したブロック定義 管-更生Ｋ は無視されます。
挿入点を指定:
コマンド:
コマンド:
コマンド: setenv
変数名を入力: t
値 <0>: 0
コマンド: id
点を指定: non

とりあえず修正してみました

68.切り取り削除2017対応
*^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

67.切り取りコピー(2017)
*^C^C$M=setenv;t;0;$(nth,$(getenv,t),id;\undo;be;setenv;p;$M="""$(getvar,lastpoint)""";rectang;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

どちらも一時Ｏスナップの『non』を2か所づつ削除しただけです

もう一度コピペしなおしてみてください

chibi-tom様

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

マクロを読めないため、応用が利かずのところ、
お手を煩わせてしまい、申し訳ありませんでした。

おかげさまでできるようになりました！！

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