当掲示板は、AuroCADマクロ屋本舗 の掲示板です。
AutoCADのマクロ に関する質問の前に 【 マクロ使用前の注意事項 】 を、必ずお読みください。

尚、新規投稿フォーム下の【 新規投降時のお願い 】を確認の上、新規投降をお願い致します。
寸法補助線を揃えるマクロ
寸法補助線を揃えるマクロ

2個のマクロを使って
行いますが、出来れば一つにしたいのでお願いします。

1.
ucs;'orthomode;0;\'orthomode;1;\\;select;\

このマクロで補助線の長さ決めたいところで
寸法線に平行に2点をクリック(UCSのX方向を合わせる)
最後にselect;\で寸法をまとめて拾いEnterキーを押す


2.
*^C^C\.y;0,0,0;@;

寸法補助線の先端を次々にクリックして行く
と先ほどのUCSの位置に寸法補助線合わさる。

簡単に補助線の長さを合わせるようなマクロありますか。

setenv;toのマクロ私は作れないので、出来れば一つにしたいのですが
できますでしょうか。
以前は、真似事改造で強引に作っていたのですが、理屈を正確に理解していないのが現状です。

一つわからないことがあります。
select;\;でピックボックスが現れるはずねのですができません
キーボードで行うとできるのですがマクロで行うと
ピックボックスと言うかグリップと言うのかわかりませんが
現れないのです

他のマクロでもこれができれば良いのに思っていいるのですが
たとえば、オブジェクトクリックして(文字でもなんでも)ピックボックスをクリック
基点を覚えさせて、select;@;;すればピックボックスが現れるはずなのですが
キーボードと違って表せない、システム変数で調整出来るのでしょう。
この二つを繋げるには、必要なのですが、出来ません。
宜しくお願いします。



  • umsmatsushita
  • MAIL
  • 2017/03/31 (Fri) 16:48:38
Re: 寸法補助線を揃えるマクロ
こちらの2013では、動作しませんでしたが、
CADのバージョンは何でしょうか。

動作未確認ですが
とりあえず、1つにしてみました。

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),ucs;'orthomode;0;\'orthomode;1;\\;select;\setenv;to;1,\.y;0,0,0;@;setenv;to;1)^M


>一つわからないことがあります。
どのような状況の事なのか分からないですが
キーボードでのコマンド動作と
マクロでのコマンド動作が違うことは多々あります。

その為には、ダミーで別コマンドを使ったりすることもあります。


例としましては
当HPのマクロ講座
http://ameblo.jp/totthi-macro/entry-10895457994.html
■中級 8.ダミーでオブジェクト選択

他にもマクロ講座として記述していますので
一度参照してみて下さい。
  • とってぃ
  • 2017/04/03 (Mon) 08:34:45
Re: 寸法補助線を揃えるマクロ
改訂

ちょっと検証してもらえました。

元々のマクロ1は動かないみたいだったのでちょっと修正し

改めて一つにしてみました。


*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;pic;$(getvar,pickadd);line;\\;ucs;ob;l;Erase;l;;pickadd;2;setenv;to;1,select;\\.y;"0,0,0;@;\.y;0,0,0";@;ucs;p;pickadd;$(getenv,pic))^M

長さ寸法をベースに考えていますのです
2つの寸法補助線を選択すると終了です。

  • とってぃ
  • 2017/04/03 (Mon) 12:00:15
Re: 寸法補助線を揃えるマクロ
横から失礼します。
stretchでやりました、グリップモードでやるのは考え付きませんでした。
やりたいことと手順はあってると思います。
umsmatsushitaさんの案をほとんど無視しているのですが。。。

*^C^C$M=setenv;to;0;$(if,$(=,$(getenv,to),0),orthomode;1;ucs;位置合わせする点を指定^X\\\orthomode;0;setenv;to;1)$(if,$(=,$(getenv,to),1),ray;補助線の足を指定、右クリックで終了^Xnod;\$M="""$(if,$(getvar,cmdactive),;setenv;to;2,^Cucs;p)""")$(if,$(=,$(getenv,to),2),stretch;c;@0.001<45;@0.002<225;;nod;@0.001<225;.y;0<0;@;setenv;to;1)^M
  • zukki-
  • 2017/04/03 (Mon) 13:10:48
Re: 寸法補助線を揃えるマクロ
返事遅くなりました
バージョンは2016です

zukkiさんの作って頂いたものは、
私の望んでいた動きそのものです。
私は常に直行モードが入っているので
orthomodeが0でスタートすればF8押さなく済みます。
2016だからでしょうか。
UCSの扱いが変わったので、昔のマクロが動かなったものが
結構あります。

とっていさんの作って頂いたものはちょっと微妙ですが
私の操作がおかしいのかselectでピックボックスが出ず
もう一度補助線をクリックすると1か所だけ訂正ができます。

2013でこのselectでグリップが出ていたように思うのですが
今は、2013が私の手元にありません。

  • umsmatsushita
  • MAIL
  • 2017/04/03 (Mon) 14:47:24
Re: 寸法補助線を揃えるマクロ
私なりに私の使いやすいように直してみました。
2016での操作
orthomode;0;からクリックしてorthomode;1;してクリック;を付けました。(UCS終了させてからrayに入るよう)
そうさが少しへったので使いやすくなりました。

*^C^C$M=setenv;to;0;$(if,$(=,$(getenv,to),0),orthomode;0;ucs;位置合わせする点を指定^X\'orthomode;1;\;setenv;to;1)$(if,$(=,$(getenv,to),1),ray;補助線の足を指定、右クリックで終了^Xnod;\$M="""$(if,$(getvar,cmdactive),;setenv;to;2,^Cucs;p)""")$(if,$(=,$(getenv,to),2),stretch;c;@0.001<45;@0.002<225;;nod;@0.001<225;.y;0<0;@;setenv;to;1)^M


  • umsmatsushita
  • MAIL
  • 2017/04/03 (Mon) 15:46:16

返信フォーム






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