83.カウントアップバルーン(バルーンのみ) | AutoCADマクロ屋本舗
[83]
カウントアップバルーン(バルーンのみ) [2008.11.3修正]
*^C^C$m=setenv;to;0;$(nth,$(getenv,to),id;\setenv;ds;$(if,$(getvar,dimscale),$(getvar,dimscale),1);;to;1,;No;\;to;2,,,)$(nth,$(getenv,to),,,circle;non;@;$(*,$(getenv,ds),5);chprop;l;;c;9;;-color;7;ucs;w;-mtext;non;@;j;mc;h;$(*,$(getenv,ds),4);w;0;$(getenv,no);;-color;$(getvar,cecolor);setenv;no;$(+,1,$(getenv,no));;to;3,,)$(nth,$(getenv,to),,,,ucs;p;ray;---MOVE(Enter)---^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;2,setenv;to;4)""",)$(nth,$(getenv,to),,,,,copybase;non;@;p;l;;erase;p;;undo;be;pasteblock;non;@;explode;l;copy;p;;m;non;@;^X四半円点(Enter)^X\$M="""$(if,$(getvar,cmdactive),;erase;P;,undo;e;u;pasteblock;non;@;explode;l;move;P;;qua;\qua;\id;)""")^M


LT2004/LT2007 R2005/R2006 動作確認済


●使い方
1.バルーン位置指定(後で変更可)
2.バルーンNo記入
3.バルーン位置指定→2へ
  右クリックバルーン移動→4へ

4.バルーン移動位置指定→1へ
  右クリックで四半円点バルーン移動→5へ

5.四半円点の位置指定
6.四半円点指定でバルーンを指定
  ~繰返し~


▲注意
1.寸法スタイル管理の"フィット"タブ内、寸法図形の尺度の選択で
 「レイアウトを適用」を選択の場合、尺度1で計算させています。
2.マクロが長い為、カスタマイズダイアログに貼り付け出来ない場合は
  メニューファイルに直接貼り付けて下さい。

■コメント
2006以降、copyコマンドの連続"M"の仕様が変わった為
Ver.2006以上では動作しなかったので修正しました。

※「9.バルーン作図」&「11.バルーン位置編集」マクロも参照!!


AutoCAD Mechanical 2011公式トレー二ングガイド/オートデスク(株)

¥4,935
Amazon.co.jp




↓↓↓ 前バージョン ↓↓↓

カウントアップバルーン(バルーンのみ) [2008.7.25修正]
*^C^C$m=setenv;to;0;$(nth,$(getenv,to),id;\setenv;ds;$(if,$(getvar,dimscale),$(getvar,dimscale),1);;to;1,;No;\;to;2,,,)$(nth,$(getenv,to),,,circle;non;@;$(*,$(getenv,ds),5);chprop;l;;c;9;;-color;7;ucs;w;-mtext;non;@;j;mc;h;$(*,$(getenv,ds),4);w;0;$(getenv,no);;-color;$(getvar,cecolor);setenv;no;$(+,1,$(getenv,no));;to;3,,)$(nth,$(getenv,to),,,,ucs;p;ray;---MOVE(Enter)---^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;2,setenv;to;4)""",select;p;l;;copy;p;;m;non;@;^X四半円点(Enter)^X\$M="""$(if,$(getvar,cmdactive),;erase;P;,move;P;;qua;\qua;\id;)""")^M


LT2004 R2005/R2006 動作確認済


●使い方
1.バルーン位置指定(後で変更可)
2.バルーンNo記入
3.バルーン位置指定→2へ
  右クリックバルーン移動→4へ

4.バルーン移動位置指定→1へ
  右クリックで四半円点バルーン移動→5へ

5.四半円点の位置指定
6.四半円点指定でバルーンを指定
  ~繰返し~


▲注意
1.寸法スタイル管理の"フィット"タブ内、寸法図形の尺度の選択で
 「レイアウトを適用」を選択の場合、尺度1で計算させています。

■コメント
UCSがワールド以外での、動作の不具合を修正しました。
また、寸法スタイル管理の"フィット"タブ内、寸法図形の尺度の選択で
「全体の尺度」と「レイアウトを適用」のどちらにも対応させました。

※「9.バルーン作図」&「11.バルーン位置編集」マクロも参照!!


AutoCAD Mechanical 2011公式トレー二ングガイド/オートデスク(株)

¥4,935
Amazon.co.jp



↓↓↓ 旧バージョン ↓↓↓

カウントアップバルーン(バルーンのみ) [2006.3.14修正]
*^C^C$m=setenv;to;0;$(nth,$(getenv,to),id;\setenv;to;1,;No;\;to;2,,,)$(nth,$(getenv,to),,,circle;non;@;$(*,$(getvar,dimscale),5);chprop;l;;c;9;;-color;7;-mtext;non;@;j;mc;h;$(*,$(getvar,dimscale),4);w;0;$(getenv,no);;-color;$(getvar,cecolor);setenv;no;$(+,1,$(getenv,no));;to;3,,)$(nth,$(getenv,to),,,,ray;---MOVE(Enter)---^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;2,setenv;to;4)""",select;p;l;;copy;p;;m;non;@;^X四半円点(Enter)^X\$M="""$(if,$(getvar,cmdactive),;erase;P;,move;P;;qua;\qua;\id;)""")^M


LT2000 動作確認済

●使い方
1.バルーン位置指定(後で変更可)
2.バルーンNo記入
3.バルーン位置指定→2へ
  右クリックバルーン移動→4へ

4.バルーン移動位置指定→1へ
  右クリックで四半円点バルーン移動→5へ

5.四半円点の位置指定
6.四半円点指定でバルーンを指定
  ~繰返し~


▲注意
特に無し 
 
■コメント
修正時にべんりかな?

※「9.バルーン作図」&「11.バルーン位置編集」マクロも参照!!


AutoCAD Mechanical 2011公式トレー二ングガイド/オートデスク(株)

¥4,935
Amazon.co.jp