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

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

二点間中点連続複写
とってい様
いつも拝見させていただいております。
autocad lt 2018を使用しています。複数のオブジェクト(例えば 円)を選択し、それを二点間中点で指示した場所に連続して複写したいのですが、このような動作をマクロにしていただけないでしょうか。よろしくお願いいたします。
  • ベス
  • MAIL
  • 2018/06/13 (Wed) 20:31:51
Re: 二点間中点連続複写
>それを二点間中点で指示した場所に連続して複写したい

ここの意味がちょと不明です。

動作例
1.オブジェクト選択
2.二点間の1点目指定
3.二点間の2点目指定
4.二点間の中点に複写 ⇒繰り返し2?1?

こんな感じをご希望ですか?
  • とってぃ
  • 2018/06/14 (Thu) 11:54:04
Re: 二点間中点連続複写
とってぃ様
ご連絡ありがとうございます。
説明不足で、お手数をおかけします。
内容は、選択したオブジェクトを保持したままでいくつかの他の中点の場所に複写したいのです。
言葉では表現がむつかしく動作例でお示しいただいた言葉で書き入れます。
1.オブジェクト選択
2.二点間の1点目指定
3.二点間の2点目指定
4.二点間の中点に複写
5.次の二点間の1点目指定
6.次の二点間の2点目指定
7.二点間の中点に複写    このように連続してできればいいなと思っています。
わかりづらい説明だと思いますが、よろしくお願いいたします。
  • ベス
  • MAIL
  • 2018/06/14 (Thu) 20:23:54
Re: 二点間中点連続複写
仕事が忙しくて返信遅れました。

とりあえず作ってみましたのでお試しください。

♪二点間中点コピー
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),select;\id;基点を指定^x\copybase;non;@;p;;setenv;to;1,;to;0;line;^x2点間の1点目を指定^x\^x2点間の2点目を指定^x\;ucs;ob;l;lengthen;dy;;;l;;id;$M="""$(/,$(getvar,perimeter),2)"""<0;erase;l;;ucs;p;pasteclip;non;@;setenv;to;1)^M

●使い方
1.オブジェクト選択
2.コピーの基点を指定
3.二点間の1点目指定
4.二点間の2点目指定 ⇒ 繰り返し2へ

  • とってぃ
  • 2018/06/15 (Fri) 10:00:05
Re: 二点間中点連続複写
lt2018とのことで
たぶんlengthen;dy;;;l;;を
lengthen;dy;;;l;;;にしないと動かないと思います

ついでにcopy仕様で考えてみました

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),select;\id;基点を指定^X\setenv;p1;$M="""$(getvar,lastpoint)""";setenv;to;1,)$(nth,$(getenv,to),,;to;0;copy;p;;non;$(getenv,p1);mtp;\setenv;to;1)^M

  • chibi-tom
  • 2018/06/15 (Fri) 11:04:46
Re: 二点間中点連続複写 解決
とってぃ様
chibi-tom様
お二方ご連絡ありがとうございます。
とってぃ様へ
頂戴したマクロではうまく動きませんでした。2点目の指定後停止しました。
chibi-tom様
頂戴したマクロで思いどうりの動作が確認出来ました。ありがとうございます。
改めて お二人にお礼申し上げます。
貴重なお時間をいただきありがとうございました。
これで解決とさせていただきます。本当にありがとうございました。
  • ベス
  • MAIL
  • 2018/06/15 (Fri) 20:46:06
Re: 二点間中点連続複写
>頂戴したマクロではうまく動きませんでした。2点目の指定後停止しました。

lengthen;dy;;;l;; を
lengthen;dy;;;l;;; に変更すれば動くと思います。



※参考

【 マクロ使用前の注意事項 】
https://ameblo.jp/totthi-macro/entry-10894483533.html

の「●AutoCAD R/LT 2015以降の注意点」にも記載しています。
  • とってぃ
  • 2018/06/18 (Mon) 08:46:05

返信フォーム






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