AutoCADマクロ屋本舗 掲示板

はじめまして、
私は最近　AUTOCAD LT 98から　LT2014を導入したのですが

昔使っていたマクロを移植しても使えないためもしご存知の方がいたら教えていただけないでしょうか。

私自身はマクロを制作できなく使いまわししてるだけの知識のため、大変ご迷惑をおかけします。

今後使えるマクロであれば嬉しいです。

■エンターオフセット
*^C^C$m=setenv;to;0;$(nth,$(getenv,to),setenv;OFFSET;\;c1;$M="""$(getenv,OFFSET)""";select;si;\setenv;to;1,;to;0;setenv;p1;$(getvar,lastpoint);id;non;^Xオフセットする側の点を指定^X\setenv;p2;"""$m=$(getvar,lastpoint)""";;to;2,,)$(nth,$(getenv,to),,,;to;0;sortents;0;move;p;;@;@;offset;$(getenv,c1);$(getenv,p1);$(getenv,p2);;sortents;$(getvar,sortents);setenv;OFFSET;\;c1;"""$m=$(+,$(getenv,c1),$(getenv,OFFSET))""";;to;2)^M

図形を指示しオフセットしたい方向を指示し数値を1回ごとに数値を変更してオフセットできる。

■ﾎﾟﾘﾗｲﾝ編集一括処理
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),fillet;^X結合するｵﾌﾞｼﾞｪｸﾄを選択^X\;$M="""$(if,$(getvar,cmdactive),@;setenv;to;1,setenv;to;0)""",,,,)$(nth,$(getenv,to),,pedit;@;;$M="""$(if,$(getvar,cmdactive),;,)"""setenv;p1;$(getvar,lastpoint);;to;2,,,)$(nth,$(getenv,to),,,pedit;$(getenv,p1);j;ALL;;L;ON;;setenv;to;3,extend;$(getenv,p1);;^X結合するｵﾌﾞｼﾞｪｸﾄを選択^X\u;;setenv;to;4,)$(nth,$(getenv,to),,,,,offset;;@;;u;;setenv;to;0;select;@;non;@;;setenv;to;1)^M

つながってる線を自動で選択しポリライン化してくれる。
図形を指示しなくても良い

ＬＴ98では動作するマクロです。
申し訳ありませんがよろしくお願いいたします。

2013で試しましたが、どちらも動作してます。
2014でも動くと思いますが、どの様に動かないのでしょうか？

R2014でも問題なく動きますね

ポリライン編集一括処理はこれでもＯＫだと思います。
*^C^Coffset;;nea;^X^X【線分を選択／Enterで終了】^X\$M=$(if,$(getvar,cmdactive),;,^C_list;;)_pedit;@;;"$M=$(if,$(getvar,cmdactive),,_pedit;@;)"j;all;;;

おはようございます。
返信遅れて申し訳ありません。

自分が記載したほうだとフリーズしてしまいました。
でも、記載して頂いたマクロだと正常に動かすことができました。
こちらのマクロを使わせていただきます！！

なぜ動かなくなってしまうのかは。。。。自分にはわからなかったです。
でもこれで楽になりました。
ありがとうございます。

補足
会社の作図システムが導入されているCADなので
もしかしたらだめだったのかもしれません。
みなさんがお使いになってるCADで動作されるなら良かったです。