バルーン尺度変更 [2007.7.25修正]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),id;int+endp;^x円と引出線の交点を指定^x\setenv;p1;$M="""$(getvar,lastpoint)""";;to;1,explode;@;$M="""$(if,$(getvar,cmdactive),;area;o;@;,u;erase;@;;area;o;@;oops;)"""setenv;to;2,,,,)$(nth,$(getenv,to),,,;r1;$(/,$(getvar,perimeter),3.141592654);id;cen;@;setenv;p2;$M="""$(getvar,lastpoint)""";;ds;$(if,$(getvar,dimscale),$(getvar,dimscale),1);;to;3,,,)$(nth,$(getenv,to),,,,ucs;w;select;w;non;@-$(+,$(/,$(getenv,r1),2),1)","-$(+,$(/,$(getenv,r1),2),1);non;@$(+,$(getenv,r1),1)","$(+,$(getenv,r1),1);;ucs;p;scale;p;;non;$(getenv,p2);$(/,$(*,$(getenv,ds),10),$(getenv,r1));setenv;to;4,,)$(nth,$(getenv,to),,,,,stretch;c;endp;$(getenv,p1);non;@;;endp;$(getenv,p1);non;$(getenv,p2);ucs;ob;nea;$(getenv,p1);setenv;to;5,copy;p;;non;0<0;non;@;erase;p;;stretch;c;non;0<0;non;@;;non;@;$(*,$(getenv,ds),5)<0;ucs;p)^M |
LT2004 R2005/R2006 動作確認済
●使い方
１．円(ﾊﾞﾙｰﾝ)と引出線の交点を指定すると
現在の"全体の尺度(dimscale)"の値に尺度変更
▲注意
１．マクロが長い為貼付け出来ない場合は
メニューファイルに直接コピペして下さい
２．寸法スタイル管理の"全体の尺度(dimscale)"の値で変更させてます
また、寸法スタイル管理の"フィット"タブ内、寸法図形の尺度の選択で
「ﾚｲｱｳﾄを適用」を選択の場合、尺度１で計算させています。
■コメント
寸法スタイル管理の"フィット"タブ内、寸法図形の尺度の選択で
「全体の尺度」と「ﾚｲｱｳﾄを適用」のどちらにも対応させました。
ただし、レイアウト作業では、あまり意味の無いマクロかと(^^;
速攻解決AutoCAD LT逆引きリファレンス―2012/2011/2010/2009/200.../猪股 志夫
￥3,570
Amazon.co.jp
↓↓↓ 旧バージョン ↓↓↓
バルーン尺度変更
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),id;endp;^x円と引出線の交点を指定^x\setenv;p1;$M="""$(getvar,lastpoint)""";area;o;qua;@;setenv;to;1,;r1;$(/,$(getvar,perimeter),3.141592654);id;cen;@;setenv;p2;$M="""$(getvar,lastpoint)""";;to;2,,,)$(nth,$(getenv,to),,,select;w;non;@-$(+,$(/,$(getenv,r1),2),1)","-$(+,$(/,$(getenv,r1),2),1);non;@$(+,$(getenv,r1),1)","$(+,$(getenv,r1),1);;scale;p;;non;$(getenv,p2);$(/,$(*,$(getvar,dimscale),10),$(getenv,r1));setenv;to;3,,)$(nth,$(getenv,to),,,,stretch;c;non;$(getenv,p1);non;@;;non;$(getenv,p1);non;$(getenv,p2);ucs;ob;nea;$(getenv,p1);setenv;to;4,copy;p;;non;0<0;non;@;erase;p;;stretch;c;non;0<0;non;@;;non;@;$(*,$(getvar,dimscale),5)<0;ucs;p)^M |
LT2000/LT2004/LT2007 動作確認済
●使い方
１．円(ﾊﾞﾙｰﾝ)と引出線の交点を指定すると
現在の"全体の尺度(dimscale)"の値に尺度変更
▲注意
１．マクロが長い為貼付け出来ない場合は
メニューファイルに直接コピペして下さい
２．寸法スタイル管理の"全体の尺度(dimscale)"の値で変更させてます
■コメント
バルーン作図後、図面尺度変更させた場合
作図されたバルーンは尺度が変更されません。
そんな時の修正にお使いください。
それ以外では、あまり使うこと無いか･･･^^;
速攻解決AutoCAD LT逆引きリファレンス―2012/2011/2010/2009/200.../猪股 志夫
￥3,570
Amazon.co.jp