AutoCADマクロ屋本舗 掲示板

四角形にオフセットする場合，ポリラインの場合は1回のクリックで出来ますが，ポリラインでない場合は4回クリックが必要です．
そこで，四角形の対角を指定してオフセットは出来ないのでしょうか．

とりいそぎ

31.ポリライン結合
で結合後、オフセットした方が良い気がしますが。

マクロにしたとしても
ポリライン結合後、オフセットすることになります。
その場合、２点指定では確実に結合できるかは不確定となります。

とってぃさん，ありがとうございます
現在は長方形コマンドで処理しています，長方形を作図してオフセットをして長方形を削除しています，この作業が短縮できればと考えたものですから．

(''ω'')ノ

①マクロ実行
②オフセット幅入力（幅=0でもいいよ）
③対角線を書く⇒矩形にトランスフォーム（③を繰り返し、右クリックで終了）

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;オフセット幅;\id;\setenv;to;1,,,,,,)$(nth,$(getenv,to),,;X1;$M=$(index,0,$(getvar,lastpoint));;Y1;$(index,1,$(getvar,lastpoint));;to;2,,,,,)$(nth,$(getenv,to),,,line;non;@;\;setenv;X2;$M="""$(index,0,$(getvar,lastpoint));;Y2;$(index,1,$(getvar,lastpoint))""";;to;3;erase;l;,,,,)$(nth,$(getenv,to),,,,$(if,$(>,$(getenv,X1),$(getenv,X2)),;X1;$(-,$(getenv,X1),$(getenv,オフセット幅));;X2;$(+,$(getenv,X2),$(getenv,オフセット幅)),;X1;$(+,$(getenv,X1),$(getenv,オフセット幅));;X2;$(-,$(getenv,X2),$(getenv,オフセット幅)));;to;4,,,)$(nth,$(getenv,to),,,,,$(if,$(>,$(getenv,Y1),$(getenv,Y2)),;Y1;$(-,$(getenv,Y1),$(getenv,オフセット幅));;Y2;$(+,$(getenv,Y2),$(getenv,オフセット幅)),;Y1;$(+,$(getenv,Y1),$(getenv,オフセット幅));;Y2;$(-,$(getenv,Y2),$(getenv,オフセット幅)));;to;5,,)$(nth,$(getenv,to),,,,,,rectang;non;$(getenv,X1)","$(getenv,Y1);non;$(getenv,X2)","$(getenv,Y2);setenv;to;6,)$(nth,$(getenv,to),,,,,,,ray;\$M="""$(if,$(getvar,cmdactive),;setenv;to;1,^Cid;)""")^M

Lonさん，ありがとう御座います．作業が短縮できてとても便利になりそうです．