AutoCADマクロ屋本舗 掲示板

マクロを作成して頂けないでしょうか。
AutoCAD LT 2016使用しています。

1.オブジェクト(線分)を選択
2.境界線を選択
3.オブジェクトと境界線の交点で分割

このような感じで使用したいです。
宜しくお願い致します。

とりあえず

マクロ屋
100.ニ点間交点自動分割

を、お試しください。

バージョン違いによる不動作の場合は、再度ご報告ください。

以前､どなたかが作られたマクロですごいなぁとメモしていたマクロです。

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),^X■切断幅入力■^X^Puserr1;\^P$M="""$(if,$(getvar,cmdactive),;userr2;$(if,$(getvar,userr1),$(getvar,userr1),$(/,$(getvar,VIEWSIZE),100000));undo;be;^Pline^P;non;$(getvar,lastpoint);\;lengthen;DY;;;l;;;setenv;to;1,;)""",,,)$(nth,$(getenv,to),,ucs;e;l;erase;l;;xline;h;non;@$(/,$(getvar,userr2),2)<N;;copy;l;;non;@;non;@$(getvar,userr2)<S;setenv;to;2,,)$(nth,$(getenv,to),,,ltscale;0.000001;trim;l;p;;f;non;0<0;non;@$(getvar,perimeter)<0;;f;non;0<0;non;@$(getvar,perimeter)<0;;;erase;p;;ltscale;$(getvar,ltscale);setenv;to;3,)$(nth,$(getenv,to),,,,$(if,$(getvar,userr1),,line;non;0<0;non;@$(getvar,perimeter)<0;;extend;l;;f;non;$(getvar,userr2)<N;non;@$(getvar,perimeter)<0;;f;non;$(getvar,userr2)<S;non;@$(getvar,perimeter)<0;;;erase;l;;)ucs;p;undo;e)^M

2017LTで動作確認済みです。

切断幅を0にして境界線をなぞれば希望の動作かと思います。
それにしてもすごいマクロだと思う。

すみません（汗

マクロ屋
100.ニ点間交点自動分割

↑これ全然動作違いました

chibi-tomさんご報告のマクロをお試しください。

お礼が遅れてしまいすみません(＞＜)
chibi-tom様　とってぃ様ありがとうございました！
希望通りでした！