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

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

円の中心点をポリラインで繋ぐマクロ
お世話になっております。
AutoCAD LT 2014を使用しております。

マクロ作成をお願いしたいです。

<操作内容>
複数配置してある円の中心点をポリラインで繋いでいく。
(参考画像をアップ致します。)

この作業をマクロ化することは可能なのでしょうか?
よろしくお願い致します。
  • vine
  • 2018/12/11 (Tue) 14:08:20
Re: 円の中心点をポリラインで繋ぐマクロ
とりあえず作ってみました。実用性無いと思うけど。

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;cv;$(getenv,CreateViewports);select;\undo;be;zoom;o;p;;copybase;non;0<0;p;;zoom;p;setenv;to;1,,,)$(nth,$(getenv,to),,;to;2;;CreateViewports;0;-layout;n;LO_PL;;s;LO_PL;pasteclip;non;0<0;zoom;e;-layer;n;LY_PL;f;LY_PL;;ucs;e;l;id;non;0<0;ucs;p,,)$(nth,$(getenv,to),,,;to;3;select;l;;ucs;e;l;line;non;@;non;0<0;;ucs;p;chprop;l;;la;LY_PL;;erase;l;;setenv;to;2,)$(nth,$(getenv,to),,,,-layer;t;LY_PL;;pedit;m;all;;j;;;copybase;non;0<0;l;;erase;l;;-layout;s;Model;;d;LO_PL;setenv;CreateViewports;$(getenv,cv);pasteclip;non;0<0;chprop;l;;la;$(getvar,clayer);;^Cundo;e)^M

使い方
①マクロ実行
②円を2個以上選択

但し、円の順番はCAD任せ。 
(どんな順番で線をつないで良いのか判らないので。)

例えば、「X座標の小さい順」とかなら出来なくはないかもしれないが、(私が出来るとは言わない)
任意の順番であるなら、その順番はあなたしか判らない。

つなぐ順番を1個づつ円をクリックして指示するのなら、マクロなんて必要ない。
オブジェクトスナップの「中心」だけを有効にしておけば出来ますから。
  • lon
  • 2018/12/11 (Tue) 17:51:17
Re: 円の中心点をポリラインで繋ぐマクロ
lonさん

ご対応ありがとうございます。
繋ぎたい順番はx座標の小さい順か大きい順の2択ですが、
lonさんに言われて、マクロ化は必要ないのかなと思ってしまいました。

お時間を作っていただきありがとうございました。
  • vine
  • 2018/12/12 (Wed) 09:11:11

返信フォーム






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