この掲示板は AutoCADマクロ屋本舗 の掲示板です。

【 注意 】最初に必ず ↓↓ 下記内容 ↓↓ を参照ください。
① マクロが分からない方は、まず 【 マクロ講座 】 を参照ください。
② 質問の前に 【 マクロ使用前の注意事項 】 をお読みください。
③ 質問する時は、新規投稿フォーム下の【 新規投稿時のお願い 】を必ずお読みください。

148.二点間中点オフセットについて
こんにちは。

AutoCAD LT 2014でこちらのマクロを
使わせてもらっている者です。

そのマクロの内、148.二点間中点オフセットについて
質問があります。

1つ目のオブジェクト選択後、画面外にそのオブジェクトが
消えてしまっている状態で、2つ目のオブジェクトを選択するには
どのようにすればいいのでしょうか?

アップにしないと選択できない混み具合の1線ですが
1つ目のオブジェクトが遠く離れていて、、、
という場合にうまくできなくて不便を感じております。

うまくできる方法がありましたら教えてください。
よろしくお願いします。
  • 多喜浜
  • 2016/10/25 (Tue) 13:46:23
Re: 148.二点間中点オフセットについて
ズームにてオブジェクト範囲を表示する様にしてみました。
お試しください。

♪二点間中点オフセット Ver2013 改
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),offset;;^Xオブジェクト選択^X\;select;nea;@;nea;@;;setenv;p1;$M="""$(getvar,lastpoint)^H^H""";;to;1,,,,,,)$(nth,$(getenv,to),,offset;;^X2つ目のオブジェクト選択^X\;setenv;to;1;select;nea;@;nea;@;;setenv;p2;$M="""$(getvar,lastpoint)^H^H""";zoom;e;dimradius;nea;@;nea;$(getenv,p1);$M="""""""$(if,$(getvar,cmdactive),;setenv;to;2,u;setenv;to;3)""""""",,,,,)$(nth,$(getenv,to),,,dimangular;nea;$(getenv,p1);nea;$(getenv,p2);$M="""$(if,$(getvar,cmdactive),;setenv;to;4,setenv;to;3)""",,,,)$(nth,$(getenv,to),,,,line;nea;$(getenv,p1);per;$(getenv,p2);;lengthen;l;;erase;l;;offset;$M="""$(/,$(getvar,perimeter),2)""";@;$(getenv,p1);,,,)$(nth,$(getenv,to),,,,,dist;nea;$(getenv,p2);int;@;$(getenv,p1);arc;nea;$(getenv,p2);c;int;$(getenv,p1);$(getenv,p2);nea;$(getenv,p1);setenv;to;5,,)$(nth,$(getenv,to),,,,,,lengthen;L;;erase;L;;setenv;ro;$M="""$(/,$(*,$(getvar,perimeter),180),$(*,$(getvar,distance),3.14159265))""";;to;6,)$(nth,$(getenv,to),,,,,,,;ro;$(if,$(<,180,$(getenv,ro)),$(-,$(getenv,ro),360),);-array;$(getenv,p2);;P;int;$(getenv,p1);$(getenv,p2);3;$M="""$(getenv,ro)""";y;erase;l;)^M
  • とってぃ
  • 2016/10/25 (Tue) 15:32:34
解決です!
とってぃ様

返信おそくなりまして申し訳ありません。

早速、動作確認してみましたところ
問題なく動作しましたのでお知らせします。

迅速な神対応ありがとうございました。
  • 多喜浜
  • 2016/10/26 (Wed) 09:52:45

返信フォーム






プレビュー (投稿前に内容を確認)