バルーン/矢印位置編集 Ver.2013 [2015.2.11追加]
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),^Pcopy^P;\non;@;;non;@;non;@;erase;p;;undo;be;explode;non;@;;non;@;id;endp;@;ucs;ob;l;setenv;to;$M="""$(if,$(index,0,$(getvar,lastpoint)),1,5)""";undo;e;u;select;l;,,,,,)$(nth,$(getenv,to),,undo;be;dimoverride;dimldrblk;_none;;l;;explode;l;;l;ucs;ob;l;id;non;0<0;ucs;p;setenv;to;2,;p1;$(getvar,lastpoint);pedit;l;y;e;;i;;x;;pickbox;0;dist;non;@;cen;@;setenv;p2;$M="""$(getvar,lastpoint)""";;to;3,,,)$(nth,$(getenv,to),,,,undo;e;u;ucs;w;move;w;from;cen;$(getenv,p2);non;@-$(getvar,distance)",-$(getvar,distance);non;@$(*,2,$(getvar,distance)),"$(*,2,$(getvar,distance));;cen;$(getenv,p2);non;@;ucs;p;move;p;;non;@;\setenv;to;4,,)$(nth,$(getenv,to),,,,,line;non;@;non;$(getenv,p1);;ucs;ob;l;id;non;$(getvar,distance)<0;ucs;p;erase;l;;;l;;$m=leader;non;$(getenv,p1);non;"""$(getvar,lastpoint)""";;;n,)$(nth,$(getenv,to),,,,,,leader;\per;\;;n;zoom;@;$(getvar,lastpoint);erase;p;;zoom;p)^M |
LT2013/LT2014 動作確認済
バルーン/矢印位置編集 [2007.7.25修正]
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),^Pcopy^P;\non;@;;non;@;non;@;erase;p;;undo;be;explode;non;@;;non;@;id;endp;@;ucs;ob;l;setenv;to;$M="""$(if,$(index,0,$(getvar,lastpoint)),1,5)""";undo;e;u;select;l;,,,,,)$(nth,$(getenv,to),,undo;be;dimoverride;dimldrblk;_none;;l;;explode;l;;l;ucs;ob;l;id;non;0<0;ucs;p;setenv;to;2,;p1;$(getvar,lastpoint);pedit;l;y;e;;i;;x;;pickbox;0;dist;non;@;cen;@;setenv;to;3,,,)$(nth,$(getenv,to),,,,undo;e;u;ucs;w;move;w;from;cen;@;non;@-$(getvar,distance)",-$(getvar,distance);non;@$(*,2,$(getvar,distance)),"$(*,2,$(getvar,distance));;cen;@;non;@;ucs;p;move;p;;non;@;\setenv;to;4,,)$(nth,$(getenv,to),,,,,line;non;@;non;$(getenv,p1);;ucs;ob;l;id;non;$(getvar,distance)<0;ucs;p;erase;l;;;l;;$m=leader;non;$(getenv,p1);non;"""$(getvar,lastpoint)""";;;n,)$(nth,$(getenv,to),,,,,,leader;\per;\;;n;zoom;@;$(getvar,lastpoint);erase;p;;zoom;p)^M |
LT2004 R2005/R2006 動作確認済
●使い方
【パターン１】
１．バルーン側の引出線部分を選択
２．バルーンの位置を修正
【パターン２】
１．矢印側の引出線部分を選択
２．引出線矢印を２点で指定
▲注意
１．マクロが長い為、カスタマイズダイアログに貼付け出来ない場合は
メニューファイルに直接貼り付けて下さい。
■コメント
UCSがワールド以外での、動作の不具合を修正しました。
使い方等は前バージョンと同じです。
by totthi
AutoCAD LT [トレーニングブック] 2006/2007/2008対応/鈴木孝子
￥2,079
Amazon.co.jp
↓↓↓前バージョン↓↓↓
バルーン/矢印位置編集 [2007.2.8修正]
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),^Pcopy^P;\non;@;;non;@;non;@;erase;p;;undo;be;explode;non;@;;non;@;id;endp;@;ucs;ob;l;setenv;to;$M="""$(if,$(index,0,$(getvar,lastpoint)),1,5)""";undo;e;u;select;l;,,,,,)$(nth,$(getenv,to),,undo;be;dimoverride;dimldrblk;_none;;l;;explode;l;;l;ucs;ob;l;id;non;0<0;ucs;p;setenv;to;2,;p1;$(getvar,lastpoint);pedit;l;y;e;;i;;x;;pickbox;0;dist;non;@;cen;@;setenv;to;3,,,)$(nth,$(getenv,to),,,,undo;e;u;ucs;w;move;w;from;cen;@;non;@-$(getvar,distance)",-$(getvar,distance);non;@$(*,2,$(getvar,distance)),"$(*,2,$(getvar,distance));;cen;@;non;@;ucs;p;move;p;;non;@;\setenv;to;4,,)$(nth,$(getenv,to),,,,,line;non;@;non;$(getenv,p1);;ucs;ob;l;id;non;$(getvar,distance)<0;ucs;p;erase;l;;;l;;$m=leader;non;$(getenv,p1);non;"""$(getvar,lastpoint)""";;;n,)$(nth,$(getenv,to),,,,,,leader;\per;\;;n;zoom;@;$(getvar,lastpoint);erase;p;;zoom;p)^M |
LT2000/LT2004/ 動作確認済
●使い方
【パターン１】
１．バルーン側の引出線部分を選択
２．バルーンの位置を修正
【パターン２】
１．矢印側の引出線部分を選択
２．引出線矢印を２点で指定
▲注意
１．マクロが長い為、カスタマイズダイアログに貼付け出来ない場合は
メニューファイルに直接貼り付けて下さい。
■コメント
LT2007に対応しました。※協力：ケロケロさん
前バージョンでは、「undo;be;explode;non;@;」としても問題無かった部分が
LT2007では、「undo」コマンド後に「non;@;」と指定しても
最後の点を指定しないみたいです。
その為、「undo;be;explode;l;」と変更しました。
ってゆ～か、最初から、こぉしとけば良かっただけの話なんですが･･･(--;
使い方等は前バージョンと同じです。
by totthi
AutoCAD LT [トレーニングブック] 2006/2007/2008対応/鈴木孝子
￥2,079
Amazon.co.jp
↓↓↓旧バージョン↓↓↓
バルーン/矢印位置編集 [2006.12.4修正]
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),^Pcopy^P;\non;@;;non;@;non;@;erase;p;;undo;be;explode;non;@;;non;@;id;endp;@;ucs;ob;l;setenv;to;$M="""$(if,$(index,0,$(getvar,lastpoint)),1,5)""";undo;e;u;select;l;,,,,,)$(nth,$(getenv,to),,undo;be;dimoverride;dimldrblk;_none;;l;;explode;l;;l;ucs;ob;l;id;non;0<0;ucs;p;setenv;to;2,;p1;$(getvar,lastpoint);pedit;l;y;e;;i;;x;;pickbox;0;dist;non;@;cen;@;setenv;to;3,,,)$(nth,$(getenv,to),,,,undo;e;u;move;w;from;cen;$(getvar,lastpoint);non;@-$(getvar,distance)",-$(getvar,distance);non;@$(*,2,$(getvar,distance)),"$(*,2,$(getvar,distance));;cen;$(getvar,lastpoint);\setenv;to;4,,)$(nth,$(getenv,to),,,,,line;non;@;non;$(getenv,p1);;ucs;ob;l;id;non;$(getvar,distance)<0;ucs;p;erase;l;;;l;;$m=leader;non;$(getenv,p1);non;"""$(getvar,lastpoint)""";;;n,)$(nth,$(getenv,to),,,,,,leader;\per;\;;n;zoom;@;$(getvar,lastpoint);erase;p;;zoom;p)^M |
LT2000/LT2004 動作確認済
●使い方
【パターン１】
１．バルーン側の引出線部分を選択
２．バルーンの位置を修正
【パターン２】
１．矢印側の引出線部分を選択
２．引出線矢印を２点で指定
▲注意
１．マクロが長い為、カスタマイズダイアログに貼付け出来ない場合は
メニューファイルに直接貼り付けて下さい。
■コメント
掲示板に改造依頼があったので、修正してみました。
マクロの長さが結構いっぱいいっぱいなので
自動作図は無理でしたが、ある意味使い易い仕様になったかも？(^^;
by totthi
AutoCAD LT [トレーニングブック] 2006/2007/2008対応/鈴木孝子
￥2,079
Amazon.co.jp
↓↓↓旧バージョン↓↓↓
バルーン位置編集
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),^Pcopy^P;\non;@;;0<0;;erase;p;;undo;be;dimoverride;dimldrblk;_none;;l;;explode;l;;l;ucs;ob;l;id;non;0<0;setenv;to;1,,,)$(nth,$(getenv,to),,ucs;p;$m=pedit;l;y;e;;i;;x;;pickbox;0;dist;non;@;cen;@;setenv;p1;"""$(getvar,lastpoint)""";;to;2,,)$(nth,$(getenv,to),,,undo;e;u;move;w;from;cen;$(getvar,lastpoint);non;@-$(getvar,distance)",-$(getvar,distance);non;@$(*,2,$(getvar,distance)),"$(*,2,$(getvar,distance));;cen;$(getvar,lastpoint);\setenv;to;3,)$(nth,$(getenv,to),,,,line;non;@;non;$(getenv,p1);;ucs;ob;l;id;non;$(getvar,distance)<0;ucs;p;erase;l;;;l;;$m=leader;non;$(getenv,p1);non;"""$(getvar,lastpoint)""";;;n)^M |
LT2000 動作確認済
●使い方
１．バルーンの引出線部分選択
２．バルーンの位置を修正
▲注意
マクロ長の為、メニューファイルに直接コピペ！
他特に無し！
■コメント
元ネタを参考に改良してたら、結局１から作るハメに･･･
しかし！どぉも気に入らず！
結局、かずぼ～大先生に助けて頂きました･･･(^^;
かなりの大作マクロ！感謝です♪
※9.バルーン作図＆10.カウントアップバルーンマクロと合わせて御使用下さい。
by totthi
AutoCAD LT [トレーニングブック] 2006/2007/2008対応/鈴木孝子
￥2,079
Amazon.co.jp