AutoCADマクロ屋本舗 掲示板

よろしくお願いいたします。　autocad2024を使用しています。

交差する線分を交点で切断し、残った線分を現在画層に変更したいのです。

マクロ化できればと思い投稿しました。よろしくお願いいたします。

参考画像でちょっと疑問です
縦線、横線の判断はどーするのか？(画像では横線だけになっているが縦線はしない？)

ちなみに切断した線を変更するのではなくトリムで消してしまって新たに2本線分を記入すればそんなに大変な作業ではないのでは？

chibi-tom様

ありがとうございます。横線だけを指定しています。おっしゃる通りトリムの使用も考えましたがちょっと横着な発想で投稿いたしました。申し訳ございません。

参考図②の2本の横線を縦線との交点で切断したいのですが。いかがでしょうか。

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

LISPなら、多分ここのトピックのものが使えると思います。

https://totthi.bbs.fc2.com/?act=reply&tid=16828194#24636142

今回の場合は縦線選択→横線選択で、横線だけ切れます。

参考画像のような4点限定ですがこんな感じで

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),line;１点目の交点を指定^X\'setenv;p1;$M="""$(getvar,lastpoint)""";対角の交点を指定^X\'setenv;p2;$M="""""""$(getvar,lastpoint)""""""";;ucs;ob;l;lengthen;l;dy;;setenv;to;1,,,,,)$(nth,$(getenv,to),,id;non;$(/,$(getvar,PERIMETER),2)<E;ucs;p;id;non;@;erase;l;;setenv;p3;$M="""$(getvar,lastpoint)""";setenv;to;2,,,,)$(nth,$(getenv,to),,,break;non;"$(index,0,$(getenv,p3)),$(index,1,$(getenv,p1))";f;$(getenv,p1);non;@;;non;"$(index,0,$(getenv,p3)),$(index,1,$(getenv,p1))";f;"$(index,0,$(getenv,p2)),$(index,1,$(getenv,p1))";non;@;setenv;to;3,,,)$(nth,$(getenv,to),,,,laycur;non;"$(index,0,$(getenv,p3)),$(index,1,$(getenv,p1))";;setenv;to;4,,)$(nth,$(getenv,to),,,,,break;non;"$(index,0,$(getenv,p3)),$(index,1,$(getenv,p2))";f;$(getenv,p2);non;@;;non;"$(index,0,$(getenv,p3)),$(index,1,$(getenv,p2))";f;"$(index,0,$(getenv,p1)),$(index,1,$(getenv,p2))";non;@;setenv;to;5,)$(nth,$(getenv,to),,,,,,laycur;non;"$(index,0,$(getenv,p3)),$(index,1,$(getenv,p2))";;setenv;to;0)^M

１.マクロ起動
２.１点目の交点を指定
３.対角の交点を指定

以上です

なおR版のようなのでこちらの対応を済ませておいてください
https://ameblo.jp/totthi-macro/entry-10895232361.html

LUNE様
　
　ありがとうございます。前に似たような投稿があったのですね。早速　確認してみます。ありがとうございました。

chibi-tom様
　
　ありがとうございます。大変　お手数をおかけいたしました。つたない質問に丁寧にお答えをいただき感謝いたします。ありがとうございました。

お二方 本当にありがとうございました。