AutoCADマクロ屋本舗 掲示板

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

仕事の作業として、
長方形や長穴等を中心を変えずに
両端を同じ数字だけ大きくしたり小さくしたりすることが多いです。
それをストレッチで片側ずつ行っているのですが
この流れをマクロで両側一気にストレッチすることは
可能なのでしょうか。

・ACAD2016R使用です。

マクロで同時は難しいのではないのでしょうか？
レギュラー版なので他の方法も検討してはどうでしょうか？

参考までに、水平垂直限定でストレッチの手間を減らしてみました

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),ray;水平(L-Click)／垂直(R-Click)：^X\$M="""$(if,$(getvar,cmdactive),;setenv;sw;0,setenv;sw;1)""";;sr1;増減値入力：^X\;to;1,,)$(nth,$(getenv,to),,stretch;c;\\;@;$(if,$(getenv,sw),@$(getenv,sr1)<N,@$(getenv,sr1)<E);setenv;to;2,)$(nth,$(getenv,to),,,;to;0;stretch;c;\\;@;$(if,$(getenv,sw),@$(getenv,sr1)<S,@$(getenv,sr1)<W);^Cid;)^M

１.水平ストレッチは左クリック／垂直ストレッチは右クリック
２.増減数値入力
(小さくする場合は『－』記入するか下記工程の３と４を逆にして左側(下側)からストレッチしてください)
３.ストレッチをしたい右側(上側)を通常のストレッチのようにオブジェクトを囲む
４.同様に左側(下側)を囲む

LT2017で確認です

単純に増減の数値の入力を1回にしてストレッチの基点、目的点の指定を省略しただけです。

chibi-tom様
ありがとうございます！
こちらのマクロでもかなり仕事の効率があがりました！

やはりなかなか難しいですか...
センター位置を固定に、
右に100mm、左に200mm等
値も必ずしも同じではないので
どうにかならないかと思いましたが...

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

増減の違いがある場合に対応させて見ました。
手順が増えているのであまり普通の操作と変わらないと思います
自己満足ですのでスルーしていただいてＯＫです。

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),ray;水平(L-Click)／垂直(R-Click)：^X\$M="""$(if,$(getvar,cmdactive),;setenv;sw;0,setenv;sw;1)""";;sr1;１つ目の増減値入力：^X\;to;1,,)$(nth,$(getenv,to),,;sr2;$(getenv,sr1);;sr2;２つ目の増減値入力：<$(getenv,sr1)>^X\stretch;c;\\;@;$(if,$(getenv,sw),@$(getenv,sr1)<N,@$(getenv,sr1)<E);setenv;to;2,)$(nth,$(getenv,to),,,;to;0;stretch;c;\\;@;$(if,$(getenv,sw),@$(getenv,sr2)<S,@$(getenv,sr2)<W);^Cid;)^M

１.水平ストレッチは左クリック／垂直ストレッチは右クリック
２.１つ目の増減数値入力
(小さくする場合は『－』記入してください)
３.２つ目の増減数値入力(１つ目と同じ場合はエンター)
４.ストレッチをしたい右側(上側)を通常のストレッチのようにオブジェクトを囲む
５.同様に左側(下側)を囲む

長方形とか長穴とか対称軸の片側の頂点を全て選ぶような簡単な図形限定で、
２倍ストレッチして半分、逆方向に移動するだけです。
ポリラインになっていることが前提です。

*^C^C$M=setenv;to;0;$(if,$(=,$(getenv,to),0),id;;select;\undo;m;orthomode;1;pline;\\;area;o;l;$M=undo;b;"""setenv;len;$(getvar,perimeter);;ang;$(getvar,lastangle);""";to;1)$(if,$(=,$(getenv,to),1),stretch;p;;non;@;non;@$(*,$(getenv,len),2)<$(getenv,ang)r;move;p;;non;@;non;@-$(*,$(getenv,len),1)<$(getenv,ang)r)^M

１．コマンド発行
２．ストレッチする頂点を指定
３．移動する方向と距離を指定、直行モードにしています。適宜変えてください
４．２へ、ESCで終了

zukki-様のマクロ見て

片方でいけるのかと思いやってみました

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),ray;水平(L-Click)／垂直(R-Click)：^X\$M="""$(if,$(getvar,cmdactive),;setenv;sw;0,setenv;sw;1)""";;sr1;１つ目の増減値入力：^X\;to;1,,,)$(nth,$(getenv,to),,;sr2;$(getenv,sr1);;sr2;２つ目の増減値入力：<$(getenv,sr1)>^X\;to;2,,)$(nth,$(getenv,to),,,stretch;c;\\;@;$(if,$(getenv,sw),@$(+,$(getenv,sr1),$(getenv,sr2))<N,@$(+,$(getenv,sr1),$(getenv,sr2))<E);setenv;to;3,)$(nth,$(getenv,to),,,,;to;0;move;p;;non;@;$(if,$(getenv,sw),@$(getenv,sr2)<S,@$(getenv,sr2)<W);^Cid;)^M

１.水平ストレッチは左クリック／垂直ストレッチは右クリック
２.１つ目の増減数値入力
３.２つ目の増減数値入力(１つ目と同じ場合はエンター)
(小さくする場合は『－』記入するか下記工程の４を逆にして左側(下側)をストレッチしてください)
４.右側(上側)を通常のストレッチのようにオブジェクトを囲む

※、寸法が振ってあると寸法が飛んでしまうのであまり使えないかも

chibi-tom様
zukki-様
ありがどうございます！
マクロも何通りもあるのですね...!
いまのところ、
全てのマクロがエラーもなく使用できています。
chibi-tom様のマクロの
寸法飛びですが、いまのところ
私のCADでは問題ないようです。

共有していただきありがとうございます！