AutoCADマクロ屋本舗 掲示板

オフセット色指定　*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;cl;2;;to;2,offset;;【色:$(getenv,cl)】--Option(Rc)--^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;1;select;non;@;non;@;;setenv;to;4,setenv;to;3)""",,,,,)$(nth,$(getenv,to),,,offsetdist;\$M="""$(if,$(getvar,cmdactive),\,)"""setenv;to;1,,,)$(nth,$(getenv,to),,,,dist;^X--色変更(Lc)/オフセット値変更(Rc)--^X\$M="""$(if,$(getvar,cmdactive),;setenv;cl;色番号記入^X\;to;1,setenv;to;2)""",,)$(nth,$(getenv,to),,,,,;p1;$(getvar,lastpoint);copybase;non;@;p;;setenv;to;1;id;^xオフセット方向指定^x\setenv;p2;$M="""$(getvar,lastpoint)""";;to;5;u;chprop;p;;C;$(getenv,cl);,)$(nth,$(getenv,to),,,,,,;to;1;offset;;$(getenv,p1);non;$(getvar,lastpoint);;erase;p;;pasteclip;non;$(getenv,p1))^M


下記↓マクロに上記↑のマクロに有る色指定を追加して頂きたいのですがよろしくお願いします

対角オフセット　*^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

ｆｕｋｕｄａさん

マクロを張り付けただけの修正要望は感心しませんね。

とってぃさん掲示板で回答される方は自分の時間を割いて回答されています。

元々のマクロの動作手順や作成してもらった経緯が分かる掲示板のURLを提示して下さい。

私が回答する場合は、自分の必要なマクロしか回答しません。
作成した時間に値する代価があれば。とことん作り上げます。

Denさんご指摘ありがとう御座います
URLの提示は下記になるのでしょうか

https://totthi.bbs.fc2.com/?act=reply&tid=16228070#23056572

マクロはLonさんに作成していただいたものです，
大変失礼しました．

Lonさんのマクロになんとなく色変更を足したもの
使用方法は使ってみればわかるかなと思います

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;cl;2;;to;1,;オフセット幅;\ray;点を指定【色:$(getenv,cl)】--色変更(Rc)--^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;2,setenv;cl;色番号記入^X\id;\setenv;to;2)""",,,,,,)$(nth,$(getenv,to),,,;X1;$M=$(index,0,$(getvar,lastpoint));;Y1;$(index,1,$(getvar,lastpoint));;to;3,,,,,)$(nth,$(getenv,to),,,,line;non;@;\;setenv;X2;$M="""$(index,0,$(getvar,lastpoint));;Y2;$(index,1,$(getvar,lastpoint))""";;to;4;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;5,,,)$(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;6,,)$(nth,$(getenv,to),,,,,,,rectang;non;$(getenv,X1)","$(getenv,Y1);non;$(getenv,X2)","$(getenv,Y2);setenv;to;7,)$(nth,$(getenv,to),,,,,,,,chprop;l;;C;$(getenv,cl);;ray;点を指定(R-Clickで終了)^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;2,^Csetenv;to;0)""")^M

また自己満足で
全く違った考えでハッチング使ってみました

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;cl;2;;to;1,offsetdist;\$M="""$(if,$(getvar,cmdactive),\,)"""setenv;to;2,,,,)$(nth,$(getenv,to),,,-hatch;内側の点を指定【色:$(getenv,cl)】--Option(Rc)--^X\$M="""$(if,$(getvar,cmdactive),;select;l;;setenv;to;4,setenv;to;3)""",,,)$(nth,$(getenv,to),,,,ray;^X--色変更(Lc)/オフセット値変更(Rc)--^X\$M="""$(if,$(getvar,cmdactive),;setenv;cl;色番号記入^X\;to;2,setenv;to;1)""",,)$(nth,$(getenv,to),,,,,-hatchedit;l;ad;s;l;;;erase;l;;ucs;ob;l;select;non;0<0;non;@;;offset;;non;0<0;オフセット方向指定^X\;setenv;to;5,)$(nth,$(getenv,to),,,,,,erase;p;;chprop;l;;C;$(getenv,cl);;ucs;p;setenv;to;0)^M

１.マクロ起動
２.オフセット幅指定
３.四角の内側を指定(R-Clickでオプションへ色変更またはオフセット幅の再設定)
４.オフセット方向を指示

終了はEscキーです

chibi-tomさん
上段のマクロは理想通りの完璧で早速使用しています，ありがとう御座います

下段のマクロは対象の四角が消えてしまいます，新しい四角のみになってしまいます，四角付近にある寸法線も
削除されてしまい，止まってしまいます．付近に有る寸法線にも反応をしているようです．

二つも作成していただきましてありがとうございます，上段のマクロを使わせていただきます

参考までに修正してみました

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;cl;2;;to;1,offsetdist;\$M="""$(if,$(getvar,cmdactive),\,)"""setenv;to;2,,,,)$(nth,$(getenv,to),,,-hatch;内側の点を指定【色:$(getenv,cl)】--Option(Rc)--^X\$M="""$(if,$(getvar,cmdactive),;select;l;;setenv;to;4,setenv;to;3)""",,,)$(nth,$(getenv,to),,,,ray;^X--色変更(Lc)/オフセット値変更(Rc)--^X\$M="""$(if,$(getvar,cmdactive),;setenv;cl;色番号記入^X\;to;2,setenv;to;1)""",,)$(nth,$(getenv,to),,,,,-hatchedit;l;b;p;y;erase;p;;ucs;ob;l;select;non;0<0;non;@;;offset;;non;0<0;オフセット方向指定^X\;setenv;to;5,)$(nth,$(getenv,to),,,,,,erase;p;;chprop;l;;C;$(getenv,cl);;ucs;p;setenv;to;0)^M

追記
注意事項を2点ばかり<m(__)m>

１.四角の中にオブジェクトがあると不具合が出ると思います(きっと境界線が残ってしまう)
２.ハッチングの設定次第では不具合が出ると思います(例としては境界を保持するにチェックが入っていたら境界線が残ってしまう)

chibi-tomさん
エラー無く作成することができました，
使用させていただきます
クリック数が少なくて使いやすいです．
ありがとう御座います

さらにおまけで
2つをくっつけてみました

あくまで自己満足ですのであしからず

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;cl;2;offsetdist;\$M="""$(if,$(getvar,cmdactive),\,)"""setenv;to;1,,,,,)$(nth,$(getenv,to),,-hatch;内側の点を指定(R-Clickで矩形指定)^X\$M="""$(if,$(getvar,cmdactive),;select;l;;setenv;to;3,setenv;to;2)""",,,,)$(nth,$(getenv,to),,,rectang;\\ucs;ob;l;select;non;0<0;non;@;;setenv;to;4,,,)$(nth,$(getenv,to),,,,-hatchedit;l;b;p;y;erase;p;;ucs;ob;l;select;non;0<0;non;@;;setenv;to;4,,)$(nth,$(getenv,to),,,,,offset;;non;0<0;オフセットする側の点を指定(R-Clickで色変更)^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;5,setenv;cl;色番号記入^X\;to;4)""",)$(nth,$(getenv,to),,,,,,erase;p;;chprop;l;;C;$(getenv,cl);;ucs;p;setenv;to;0)^M

１.マクロ起動
２.オフセット幅指定
３.内側の点を指定(R-Clickで矩形指定に切替で対角を指定)
４.オフセットする側の点を指定(色変更の場合はR-Clickして色変更後に点を指定)

終了はＥｓｃキーです

↑の追記の解消対策になっているかなと思います(手数が多いのでビミョーではありますが)

手数減らせたみたいです

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),offsetdist;\$M="""$(if,$(getvar,cmdactive),\,)"""setenv;to;1,,,,)$(nth,$(getenv,to),,ray;一方のコーナーまたは内側の点を指定【色:$(getenv,cl)】--(R-Clickで色変更)--^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;3;select;non;@;non;@;;setenv;to;2,setenv;cl;色番号記入^X\;to;1)""",,,)$(nth,$(getenv,to),,,rectang;non;@;\ucs;ob;l;select;non;0<0;non;@;;setenv;to;4,,)$(nth,$(getenv,to),,,,-hatch;non;@;;select;l;;-hatchedit;l;b;p;y;erase;p;;ucs;ob;l;select;non;0<0;non;@;;setenv;to;4,)$(nth,$(getenv,to),,,,,offset;;non;0<0;オフセットする側の点を指定(R-Clickで色変更)^X\$M="""$(if,$(getvar,cmdactive),;erase;p;;chprop;l;;C;$(getenv,cl);;ucs;p;setenv;to;0,setenv;cl;色番号記入^X\;to;4)""")^M

１.マクロ起動
２.オフセット幅指定
３.一方のコーナーまたは内側の点を指定(色変更の場合はR-ClicKして変更後に点を指定)
４.オフセットする側の点を指定(色変更の場合はR-ClicKして変更後に点を指定)
※オフセットする側の点を指定せずにキャンセルするとUCSが移動したままになりますのでご注意を

終了はＥｓｃキーです

chibi-tomさん
作成してくださってありがとう御座います
使い分けして使用していきます．