AutoCADマクロ屋本舗 掲示板

寸法補助線を揃えるマクロ

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

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

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


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

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

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

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

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

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

こちらの２０１３では、動作しませんでしたが、
CADのバージョンは何でしょうか。

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

*^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


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

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


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

他にもマクロ講座として記述していますので
一度参照してみて下さい。

改訂

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

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

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


*^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

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

横から失礼します。
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

返事遅くなりました
バージョンは2016です

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

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

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

私なりに私の使いやすいように直してみました。
2016での操作
orthomode;0;からクリックしてorthomode;1;してクリック；を付けました。（ＵＣＳ終了させてから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