AutoCADマクロ屋本舗 掲示板

いつも、いつも、お世話になっております。

ここ数か月で仕事の能率が劇的に向上しております。
（決して大袈裟ではありません。）

ありがとうございます。

先日、”二つのマクロを一つのマクロにできないでしょうか？ ”の件で
その後、欲がでまして、、、

今現在は

*^C^C-layer;on;画層名;;-insert;ブロック名Ａ;\;;;_Explode;l;_rotate;l;;\\
*^C^C-layer;on;画層名;;-insert;ブロック名Ｂ;\;;;_Explode;l;_rotate;l;;\\
*^C^C-layer;on;画層名;;-insert;ブロック名Ｃ;\;;;_Explode;l;_rotate;l;;\\
*^C^C-layer;on;画層名;;-insert;ブロック名Ｄ;\;;;_Explode;l;_rotate;l;;\\

、、、と複数のブロック貼り付けマクロをボタンに割り付けて使用しています。

これを、１つのボタンにできないかと、、、


右クリックで、Ａ→Ｂ→Ｃ→Ｄ→Ａ→Ｂ.....
というように、それぞれのブロックがグルグルと循環して、尚且つ回転もできる、、、
それから、それぞれのブロックのイメージというのか、プレビューが出ていてほしい、、、

こんなマクロができたらな！と思っています。

可能でしょうか？

(ﾉ`Д´)ﾉ.:･┻┻ 　　無理ですか、、、


よろしくお願いいたします。m(_ _)m　

2016 使用です。
よろしくお願いします。

各ブロック名における、画層名はそれぞれ違うのでしょうか？
それによって作り方が変わります。

※プレビューは無理です。マクロはコマンドの羅列ですのでＣＡＤ自身に無い機能は使えません。

失礼しました。

それぞれのブロックで画層名も分けたいと思います。

よろしくお願いいたします。

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

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;sw;0;;bl1;ブロック名Ａ;;bl2;ブロック名Ｂ;;bl3;ブロック名Ｃ;;bl4;ブロック名Ｄ;;to;1,;to;2;;la1;画層名Ａ;;la2;画層名Ｂ;;la3;画層名Ｃ;;la4;画層名Ｄ,,,,)$(nth,$(getenv,to),,,;to;0;ray;^x挿入点を指定：$(nth,$(getenv,sw),$(getenv,bl1),$(getenv,bl2),$(getenv,bl3),$(getenv,bl4))--ﾌﾞﾛｯｸ名切替(Rc)--^x\$M="""$(if,$(getvar,cmdactive),;setenv;to;4,setenv;to;3)""",,,)$(nth,$(getenv,to),,,,;sw;$(if,$(=,$(getenv,sw),3),0,$(+,$(getenv,sw),1));;to;1,;to;5;-layer;on;$(nth,$(getenv,sw),$(getenv,la1),$(getenv,la2),$(getenv,la3),$(getenv,la4));,)$(nth,$(getenv,to),,,,,,-insert;$(nth,$(getenv,sw),$(getenv,bl1),$(getenv,bl2),$(getenv,bl3),$(getenv,bl4));non;@;;;;Explode;l;rotate;l;;\\setenv;to;2)^M

ブロック名と画層名を記入して下さい。
右クリックで、ブロック名が変わります。

早速、希望マクロを作っていただいたにもかかわらず、
返信できなかったこと、申し訳ありませんでした。

すごいです！

ほぼ、自分がイメージする動きをしてくれています！

本当に、ありがとうございます。

私の中では、汎用性の高いマクロとなるかと思います。


一つ関連した質問よろしいでしょうか？

右クリックでブロック選択貼り付けマクロを自分で作ろうとしたとき
特級 4.「nth」でマクロ作成 で紹介されている構築線のマクロを参考にして
このようなマクロを作ってみました。

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),-insert;ブロック名Ａ;\;;;"""$M=$(if,$(getvar,cmdactive),;setenv;to;0,setenv;to;1)""",)$(nth,$(getenv,to),,-insert;ブロック名Ｂ;\;;;"""$M=$(if,$(getvar,cmdactive),;setenv;to;1,setenv;to;0)""")^M

トッテイ様なら当たり前なのかもしれませんが、うまく動きません。
右クリックで選択できないのです。
構築線では素直に垂直、水平を選択されるのに、、、

なぜ？なんでしょう。

そのほかいろいろ試してみたのですが、やっぱりダメダメでした。

私に簡単に理解できるのなら、”特級”にはならないのでしょうが、
もし、少しでも理解ができるのなら一寸でも理解したいです。

お忙しいかと思いますが、少し、解説していただけるなら、幸いです。

過去と今回の件ともども本当にありがとうございます。

上記マクロで言いますと
nthの構文は問題ないと思いますが
if文に問題が有ります。

＞"""$M=$(if,$(getvar,cmdactive),;setenv;to;0,setenv;to;1)"""

これは、実行中のコマンドが、アクティブかどうかを判断させています。
つまり、-insertコマンドが途中なのか終了しているかどうかです。

マクロを見ますと
-insert;ブロック名Ａ;\;;;　も
-insert;ブロック名Ｂ;\;;;　も
どちらも終了していますよね。

if文でよく使うコマンドは
■中級　8.ダミーでｵﾌﾞｼﾞｪｸﾄ選択
http://ameblo.jp/totthi-macro/entry-11293982095.html
にも記載していますが
offsetやrayコマンドなどです。

今回自分が作ったマクロも、rayコマンドを使っていますが
rayコマンドを実行した場合、コマンドの仕様上
左クリックをした場合、基点を指定⇒方向を指定（コマンド途中）
右クリックをした場合、コマンド終了
となります。

このコマンド仕様の性質を使って
if文で分岐させているわけです。

再度

■上級　2.CMDACTIVE
http://ameblo.jp/totthi-macro/entry-11394602811.html

こちらをご確認頂いた上
色々なコマンドの仕様やマクロにした時の性質を
お試しになった方が良いかと思います。

早速の返信と分かりやすい解説、ありがとうございます。

コマンド(マクロ)が終了していてはまずいのですね。
他のアプローチとしてダミーコマンドを使う…

少し、腰を据えて勉強してみます。

また、分からない事があれば質問してしまうかもしれません。
その時は、また対応していただけると幸いにおもいます。

ありがとうございました。

あけましておめでとうございます。
昨年は大変お世話になりました。
今年もよろしくお願いします。

このまくろその後改良して、大変便利に使わせていただいております。

その、改良マクロなのですが

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;sw;0;;bl1;ブロック１;;bl2;ブロック２;;bl3;ブロック３;;to;1,;to;2;;,,,,)$(nth,$(getenv,to),,,;to;0;ray;^x挿入点を指定：$(nth,$(getenv,sw),$(getenv,bl1),$(getenv,bl2),$(getenv,bl3))^x\$M="""$(if,$(getvar,cmdactive),;setenv;to;4,setenv;to;3)""",,,)$(nth,$(getenv,to),,,,;sw;$(if,$(=,$(getenv,sw),2),0,$(+,$(getenv,sw),1));;to;1,;to;5;,)$(nth,$(getenv,to),,,,,,-insert;$(nth,$(getenv,sw),$(getenv,bl1),$(getenv,bl2),$(getenv,bl3));non;\;;;_layer;m;画層名;;Explode;l;setenv;to;2)^M


ブロックのイメージというのか、プレビューが出て貼り付ける位置を確認しながら作業が行えます。
nonの後を@から\に変えただけなのですが、@の時よりも1クリック余分にかかってしまう。
たいしたことでないのですが、どうもリズムに乗れず、戸惑ってしまいます。

初めは、改善するのはさして難しくはないと思っていたのですが、なかなかうまくいきません。

それから、このマクロはOスナップが効きません。
効かせないほうが私の使用環境では都合が良いのですが、効かせようとするなら
どのようにすれば良いのでしょうか？

どうか、よろしくお願いします。

non;\　の「non;」を削除すればＯスナップが効きます。

nonはＯスナップなしの意味です。

早速のお返事ありがとうございます。

ごめんなさい。少し言葉足らずだったですね。

以前、とってい様から作って頂いたマクロは、
左クリック、左クリックで1クリック事にどんどんブロックが貼り付けられたのですが
私が改良したマクロでは2クリック必要なのです。
1クリック目でブロックの姿が見えて、２クリック目で貼り付ける。。。

それを、２クリック必要なのを1クリックで済ませたいと思ったのです。
大して時間に変わりは無いのですが、なかなかリズムよく作業ができない次第です。

もし、よろしければご再考下さい。
よろしくお願い致します。

＞non;\;;;_layer;m;画層名;;Explode;l;setenv;to;2)^M

この部分で「non;\」を「non;@;」ですかね。
文面から意図的に変更したと思っていたのですが(^-^;

お世話になります。

そうなんですよね。。。
non;@;にすれば、1クリックで済みます。
けれども、そうすると、ブロックのイメージが見えない。。。

元々、non;@;からnon;\に変えた理由というのは
Oスナップを効かせたくなかったからなのです。

普通、non;@でOスナップは効かなくなると思うのですが
何故かこのマクロではOスナップが効いてしまう。。
そこで￥をエイヤッと入れてみたところ、Oスナップが効かなくなって
尚且つ、ブロックのイメージも表示されるようになった。。。。
。。。という次第だったのです。

私の希望としては

1クリックでブロックの姿も見える状態で連続で貼り付けたい。
Oスナップは基本的には必要無いのだけれど、＠から￥に変えてうまくいったと言うことは
Oスナップが必要な時はどうすればよいのかな？
と、おもった次第です。


僅か、0.数秒の話で、私がリズミカルに仕事がしたい。。。
という、わがままな話で申し訳ありません。

なるほど理解しました。

少しお待ちを。

ちょっと使い方を変更しました。

♪ブロック選択挿入【連続版】
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;sw;0;;bl1;ブロック１;;bl2;ブロック２;;bl3;ブロック３;;to;1,;to;2;;,,,,)$(nth,$(getenv,to),,,;to;0;ray;^x挿入ブロックを指定：$(nth,$(getenv,sw),$(getenv,bl1),$(getenv,bl2),$(getenv,bl3))　-決定(Lc)/切替(Rc)^x\$M="""$(if,$(getvar,cmdactive),;setenv;to;4,setenv;to;3)""",,,)$(nth,$(getenv,to),,,,;sw;$(if,$(=,$(getenv,sw),2),0,$(+,$(getenv,sw),1));;to;1,,)$(nth,$(getenv,to),,,,,;to;5;-insert;$(nth,$(getenv,sw),$(getenv,bl1),$(getenv,bl2),$(getenv,bl3));non;@;;;;copybase;non;@;l;;erase;p;,;to;0;pasteclip;non;\layer;m;画層名;;Explode;l;setenv;to;5)^M


●使い方
１．挿入ブロックを指定
　　右クリックで切替
　　左クリックで決定　⇒２へ
２、ブロック挿入点を指定　⇒繰り返し２へ
　　※終了はキャンセル

お試しください

お世話になります。

ありがとうございます。
随分快適に作業できています。

後は、ブロックの並べ方を少しいじって調整しようと思います。

感謝です！！！

追伸
頭の柔らかい人がうらやましいっす(＞Д＜)