AutoCADマクロ屋本舗 掲示板

切取りコピーマクロについて（切り取りコピー）

とってぃさま、いつもお世話になっています。
切り取りコピーについてご相談があります。

JWユーザー→AutoCADに移行する者がいるのですが、切り取りコピーの要望が多いので、
掲示板にある「切取りコピー」を利用させていただきました。

※そういえば当方AutoCAD2015を使用しているのですが、（tdmacros.lspロード中）
なぜか「切取りコピー2015ver」は動かなく、「切取りコピー2017ver」なら動作しています

概ねこの動作ができるだけでありがたいのですが、
寸法やブロックなどがひっかかった場合に、うまく切り取りはできないので、
必要部分をあとからトリムなど調整するために
あえて「切り取り線残したver」の切取りコピーが欲しいなと思いました。

ただ、マクロ作成から遠ざかっていて、ひさびさに構文を改変しようと思っても
うまくできませんでした。orz
アドバイスいただけますでしょうか？
よろしくお願いいたします。

切り取り線残したver　とはどの様な内容の物でしょうか？

操作手順及び、動作内容や作図結果を
詳しく記述願います。


※追記
矩形選択時の矩形を残したいのでしょうか？
もしそうだとしたら

マクロ前半にある　「undo;be;」　を切り取って

rectang;non;@;non;\undo;be;setenv;t;1,,,,,,)

　　　　　　　　　　↑この位置に配置です。

とってぃさん、説明不足なのに察していただき
また早々の対応ありがとうございます。

矩形選択時の矩形をコピー先に一緒に持ってきたい、という意味でした。
（のちに、はみでた図形を切り取るための線として使用したい）

ご指導いただいた形だと、切取り矩形は確かに図面内には残るようになったのですが
それも一緒にクリップボードに記憶させることはできるでしょうか？

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

こんな感じでしょうか。（LT2017で動作確認）

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

Lonさま
さっそくありがとうございます！
R版2015ですが、無事問題なく動作しています。

切取り範囲の枠が残っている方が、ブロックなどでトリムしきれなかった部分があったとき便利なので、重宝しそうです。

JWから移行する「指定範囲コピーがない～」って言ってたメンバーに、すこしはAutoCAD好きになってもらえるかな？
とってぃさま、Lonさま、本当にありがとうございました。